1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub Click(Source As Button)
Dim w As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim key As String
key = session.UserName
Set db = session.CurrentDatabase
Set view = db.GetView ("Solde congés" )
Set doc = view.GetDocumentByKey (key )
If Not (doc Is Nothing) Then
Set newUIDoc = W.EditDocument(False, doc, True)
Else
Msgbox key
Messagebox "Aucun document de solde de congés n'a été trouvé, veuillez vous adresser aux Ressources Humaines" ,, "Congés Frais"
End If
End Sub |
Partager