VBAでの計算処理について

Question

Access VBAについての質問です。
金額÷単価でテーブル内の再計算する処理を作成しています。
しかし、計算がうまく実行されていないようです。(strSqlの結果がFalseになってしまう)
ご協力をお願い致します。

Dim strSql As String
k_ID As Integer

If Me.決裁 = True Then
strSql = ""
strSql = strSql & "UPDATE 見積もり SET "
If k_ID = 5 Then
strSql = strSql & " 確定決済 = true,"
strSql = strSql & 工数計 = 金額 & " / " & 単価
End If
strSql = strSql & " WHERE 番号 = '" & Me.番号 & "';"
Currentdb.Execute strSql
Else
(決済しない時の処理　以下略)

Answer 1

金額, 単価, 工数計 というのが「見積もり」テーブルのフィールド名なら、

strSql = strSql & 工数計 = 金額 & " / " & 単価

は下記のように""の中に入れないとダメです。

strSql = strSql & " 工数計 = 金額 / 単価"

あと、If k_ID = 5 Then でElseがないと、k_IDが5以外の時SQLが構文エラーになりますが、その辺は大丈夫ですか。