par HOUDA1 » 27 Août 2003 à 11:41
tu peux egalement utiliser :Sub Querysave(Source As Notesuidocument, Continue As Variant) Dim session As New NotesSession Dim db As NotesDatabase Dim Doc As notesdocument Dim View As notesview Dim Num_Doc As Integer Dim Enreg As Integer Dim maildoc As notesdocument Dim rtitem As Variant Set db = session.CurrentDatabase If source.fieldgettext("champ1")="" Then Msgbox "Veuillez saisir le champ1" continue=False End If If source.fieldgettext("champ2")="" Then Msgbox "Veuillez saisir le champ2" continue=False End If End Sub