[gaz_manos]

Private Sub cmdUpdate_Click()
Dim strSQL As String
On Error GoTo Err_Hadle
If Not (IsNull(Me.txtTable) Or IsNull(Me.txtTmima)) Then
strSQL = "UPDate " & Me.txtTable & " SET Tmima='" & Me.txtTmima & "';"
CurrentDb.Execute strSQL
MsgBox "Ç åíçìÝñùóç ïëïêëçñþèçêå"
End If

Exit Sub
Err_Hadle:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
End Sub
Αυτός είναι ο κώδικάς;
Που φαίνεται οτι το όνομα του πίνακα και το όνομα του πεδίου;