errore di sintassi:
Public Shared Function ClientiUpdate(ByVal prmIDRecord As Long, ByVal table As String) As String
If prmIDRecord > 0 Then
sSQL = " UPDATE " & table
sSQL = sSQL & " SET Ragione_sociale = @Ragione_sociale "
sSQL = sSQL & " ,Nome = @Nome "
sSQL = sSQL & " ,Citta = @Citta "
sSQL = sSQL & " ,Indirizzo = @Indirizzo "
sSQL = sSQL & " ,CAP = @CAP "
sSQL = sSQL & " ,Provincia = @Provincia "
sSQL = sSQL & " ,Stato = @Stato "
sSQL = sSQL & " ,Telefono = @Telefono "
sSQL = sSQL & " ,Email = @Email "
sSQL = sSQL & " ,PIVA = @PIVA "
sSQL = sSQL & " ,CF = @CF "
sSQL = sSQL & " ,Note = @Note "
sSQL = sSQL & " WHERE ID = " & prmIDRecord
Else
sSQL = " INSERT INTO " & table
sSQL = sSQL & " (Ragione_sociale, Nome, Citta, Indirizzo, CAP, Provincia, Stato, Telefono, Email, PIVA, CF, [Note]) "
sSQL = sSQL & " VALUES ("
sSQL = sSQL & " @Ragione_sociale, @Nome, @Citta, @Indirizzo, @CAP, @Provincia, @Stato, @Telefono, @Email, @PIVA, @CF, @Note)"
End If
ClientiUpdate = sSQL
Debug.Print(ClientiUpdate)
End Function
io purtroppo non riesco a vedere l'errore voi?