Как занести значение вычисляемого поля формы в поле таблицы

Private Sub Кнопка108_Click()
Dim sql As String
sql = "update Исплист set zabk= Me.zabrez "
CurrentDb.Execute sql
End Sub

Private Sub Кнопка108_Click()
Dim sql As String
sql = "update Исплист set zabk= " & Me.zabrez
 
'''''для символьного поля
''sql = "update Исплист set zabk='" & Me.zabrez & "'"
''''для дате через формат
CurrentDb.Execute sql
End Sub

sql = "update Исплист set zabk= " & Me.zabrez & "  WHERE ..."

Private Sub Кнопка108_Click()
Dim sql As String
sql = "update Исплист set zabk= " & Me.zabrez _
& " where oznv=1" _
& " and mesz=" & Month(Forms!Ф1!datan) _
& " and god=" & Year(Forms!Ф1!datan)
CurrentDb.Execute sql
End Sub

Private Sub prozal_AfterUpdate()
    If Me!oznv = 1 Then
        Me!al = Me!mal
    Else
        Me!al = Null
    End If
End Sub

Private Sub oznv_AfterUpdate()
    alUPD
End Sub
 
Private Sub prozal_AfterUpdate()
    alUPD
End Sub
 
Private Sub alUPD()
    If Me!oznv = 1 Then
        Me!al = Me!mal
    Else
        Me!al = Null
    End If
End Sub

Private Sub Кнопка114_Click()
On Error Resume Next
    With Me.Recordset
        .MoveFirst
        Do Until .EOF = True 'Цикл до конца
            If !oznv = 1 Then
                .Edit
                !al = !mal
                .Update
            End If
            .MoveNext
        Loop
    End With
Err.Clear
End Sub