Originariamente inviato da nicolamanzoni
sì è nella sezione generale!
posto il codice, magari c'è altro che non va (intanto grazie per la celere risposta)
Option Compare Database
Public FlagEvento As String
Private Sub Comando21_Click()
If FlagEvento <> "Già chiesto" Then
comp.Requery
comp = comp.ItemData(0)
comp2.Requery
comp2 = comp2.ItemData(0)
FlagEvento = Salva("aggiunto", "contatto", IdRec, comp, comp2)
End If
DoCmd.Close
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
If FlagEvento <> "Già chiesto" Then
comp.Requery
comp = comp.ItemData(0)
comp2.Requery
comp2 = comp2.ItemData(0)
FlagEvento = SalvaSiNo("aggiunto", "contatto", IdRec, comp, comp2)
End If
End Sub