DominoArea.org [Archive]

Bonjour a tous,

Je cherche à ouvrir un document d'une base B dans la base A via une dialogbox

Voici le code que j'ai fais : il fonctionne nickel

Code : Tout sélectionner

Sub Click(Source As Button)
   
   Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim db1 As New NotesDatabase ("chemin_serveur","chemin_fichier")
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   
   Set Db = session.CurrentDatabase   
   Set uidoc = ws.CurrentDocument
   
   recupcode = uidoc.FieldGetText("ac1_fc")
   
   Dim view As NotesView
   Dim collection As NotesDocumentCollection
   variable = recupcode
   Set view = db1.GetView("Par code AC")
   Set doc = view.GetDocumentByKey(variable, True)
   
   If Not doc Is Nothing Then
   Call ws.EditDocument(False, doc)
   Else
   Msgbox "Il n'y a aucun document correspondant au code AC : " & recupcode
   End If
   
End Sub

Il m'ouvre bien le document souhaité mais je ne sais pas comment je peux intégrer la notion de Dialogbox

est ce quelqu'un aurait-il une idée?

Merci d'avance

Cordialement

salut

tu remplace tout simplement

Call ws.EditDocument(False, doc)

par

call ws.dialoguebox()

OK, ben désolé pour ce post.

Merci bcp

Cordialement

pas de souci

Voici ce que j'ai mis :

Code : Tout sélectionner

Call ws.DialogBox("Fichier Correspondant : ", True, True, False, False, False,  False, "Fichier Correspondant : ", doc)

et j'ai le message suivant :
"Dialogbox cannot be used in this context ; a document muste be selected"

Est ce que tu pourrais me donner un coup de main.

le dialogbox ne fonctionne que sur le NoteSUIWorkspace ?

Merci

Cordialement

oui il ne fonctionne que sur le NotesUIworkspace

le premiere parametre c'est le nom du form que tu affiche pas "Fichier Correspondant : "

OK.

Effectivement je me suis trompé, je vais chercher un café.

Désolé de t'avoir dérangé.

Merci

Cordialement

re pas de souci