Bottone update non funziona

di il
1 risposte

Bottone update non funziona

Ragazzi come avete potuto vedere ho creato un bottone update.Però non funziona perchè mi esce il seguente
errore:Errore di sintassi(operatore mancante)
come posso fare??!
Private Sub BtnUpdate_Click()

STRUPDATE = " UPDATE TblAnagrafe "
STRSET = " SET NomeAnag = '" & Me.TxtNomeAnag & "'"" , CognAnag='" & Me.TxtCognAnag & "'"" ,DataNascAnag='" & Me.TxtDataNascAnag & "'"" , LuogoNascAnag='" & Me.TxtLuogoNascAnag & "'"", ResAnag='" & Me.TxtResAnag & "'"" , StCivileAnag='" & Me.CmbStCvileAnag & "'"", SessoAnag='" & Me.CmbSessoAnag & "'"" , AltAnag='" & Me.TxtAltAnag & "'"" , PesoAnag='" & Me.TxtPesoAnag & "'"" , NumTelAnag='" & Me.TxtNumTelAnag & "'"
STRWHERE = " WHERE CodFiscAnag = '" & Me.TxtCodFiscAnag & "'"
STRSQL = STRUPDATE & STRSET & STRWHERE & ";"
MsgBox (STRSQL)
DoCmd.RunSQL (STRSQL)

End Sub

1 Risposte

Devi accedere o registrarti per scrivere nel forum
1 risposte