J'ai un petit souci avec une base en Local.
A partir d'un bouton sur une vue, je souhaite ouvrir une autre vue, le tout en local mais cela ne fonctionne pas correctement.
pour info, les utilisateurs sont en Windows 7, c'est pour cela que le chemin c'est c:\User..... et non c:\Documents and settings....
Voici le code :
- Code : Tout sélectionner
Dim winun As String
winun = Environ("username")
If db.Server = "" Then
servername = ""
filepath = "C:\Users\" & winun & "\AppData\Local\Lotus\Notes\Data\Dossier\MaBase.nsf"
Else
servername = db.Server
filepath = db.FilePath
End If
picklist = workspace.PickListStrings(3, False , servername, filepath, "Liste des fiches client (All2)", "Liste de tous les Clients", "Merci de sélectionner le client : " , 1, "")
En pièce jointe le message d'erreur qui s'affiche.
Est ce que quelqu'un aurait-il une idée pour résoudre mon problème car je ne trouve pas de solution ?
Merci d'avance
Cordialement