Bonjour à tous,
Aujourd'hui, j'ai un nouveau "petit" probléme !
J'ai une action qui me permet de valider mon document, à vrai dire, j'en ai plusieurs, mais l'une d'elle demande un double clique x)
Comment cela se fait ?
Je vous mets son code, il n'est pas long:
Sub Click(Source As Button)
'uidoc est l'objet représentant le document actuel'
Dim wkp As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim Doc As NotesDocument
Dim session As New NotesSession
Dim userName As New NotesName(session.UserName)
Set uidoc= wkp.currentdocument
Set doc= uidoc.document
Set doc= uidoc.document
Set db = session.CurrentDatabase
Call uidoc.Refresh
If (doc.CHRONO(0)="") Then
Msgbox "Renseigner la chronologie dans la description de l'événement"
continue = False
Exit Sub
End If
If (doc.CONSEQ_REEL(0)="") Then
Msgbox "Renseigner la conséquences réelles de la section CONSEQUENCES"
continue = False
Exit Sub
End If
If (doc.CONSEQ_POT(0)="") Then
Msgbox "Renseigner la conséquences potentielles de la section CONSEQUENCES"
continue = False
Exit Sub
End If
If (doc.Etat(0)="Etat0") Then
uidoc.Editmode=True
doc.VALID_DIR="OUI"
doc.Etat="Etat1"
doc.ValidePar_1=userName.Common
doc.DateValideur_1=Now
doc.Heure1=Now
Call uidoc.Refresh
Call doc.save(True,True)
uidoc.save
End If
End Sub
Merci de votre aide