Domino 9 und frühere Versionen > Entwicklung

ws.picklistcollection

(1/2) > >>

Sacki:
Hallo,

ich habe eine DB erstellt (lokal) und habe diese jetzt auf den Server kopiert. Beim öffnen einer Picklistcollection bekomme ich folgende Fehlermedung:

"Das Format des Servernamens wird vom Protokoll nicht erkannt"

Muss ich vielleicht den Server in der LDAP-Struktur angeben(c= , cn = ....)?
Die DB steht jetzt auch in einem Unterordner von DATA in /intern.

So sieht das zur Zeit bei mir aus:

Set dc2 = ws.PickListCollection(1,True,"","kalkullation.nsf","dummybildnr","Auswahl der Dokumente"," Wählen Sie die gewünschten Dokumente")

Glombi:
Aus der Designer Hilfe:
Set notesDocumentCollection = notesUIWorkspace.PickListCollection( type% [,multipleSelection ] [, server$ ] [, databaseFileName$ ] [, viewName$ ] [, title$ ] [, prompt$ ] [, Singlecategory$ ] )
Parameters
type$
Integer. The type of view you specify. This parameter is restricted to PICKLIST_CUSTOM. This value displays the specified view in a dialog.

Also:
Set dc2 = ws.PickListCollection(PICKLIST_CUSTOM,True,"","kalkullation.nsf","dummybildnr","Auswahl der Dokumente"," Wählen Sie die gewünschten Dokumente")

Wenn Du als Server "" angibst, nimmt er die LOKALE Datenbank.
Also so was:
Dim session as New NotesSession
dim db as NotesDatabase
set db = session.CurrentDatabase
Set dc2 = ws.PickListCollection(PICKLIST_CUSTOM,True,db.Server,"kalkullation.nsf","dummybildnr","Auswahl der Dokumente"," Wählen Sie die gewünschten Dokumente")

Dann bist Du unabhängig vom Server - sofern sich die Ansicht auf dem gleichen Server befindet.

P.S.: kalkullation.nsf sollte besser kalkulation.nsf heißen denn da kullert ja nix  ;D

Sacki:
schönen Dank für deine schnelle Hilfe, aber es funktioniert immer noch nicht !

Es kommt eine Fehlermeldung: "Error, Datei nicht gefunden".

Ich glaube er sucht auf meinem lokalen Rechner und nicht auf der DB.

Hir noch mal der Quelltext bis zu der Stelle:

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As notesdocument
   Set db = session.CurrentDatabase
   Set view = db.GetView("bild_nr")
   Dim ws As New NotesUIWorkspace
   Dim dc As NotesDocumentCollection
   Dim uiview As NotesUIView
   Dim suche(1 To 2) As String
   Dim eing As Variant
   
   
   suche(1) = Cstr(Inputbox$("Bitte geben Sie die Bildnummer an"))
   If suche(1) = "" Then
      Exit Sub
   End If
   
   suche(2) = Cstr(Inputbox$("Bitte geben Sie die Kettentype an"))
   If suche(2) = "" Then
      Exit Sub
   End If
   'Set doc = view.GetDocumentByKey( suche, True)
   Set dc = view.getalldocumentsbykey( suche, True)
   'Dim docnab As notesdocument
   
   
   
   If dc.Count <= 0  Then
      
      Msgbox("Das gesuchte Dokument ist nicht vorhanden")
   Else
      
      Call dc.PutAllInFolder( "dummybildnr" )
      
      Dim dc2 As notesdocumentcollection
      
      'Set dc2 = ws.PickListCollection(1,True,"","kalkullation.nsf","dummybildnr","Auswahl der Dokumente"," Wählen Sie die gewünschten Dokumente")
      Set dc2 = ws.PickListCollection(PICKLIST_CUSTOM,True,"","kalkullation.nsf","dummybildnr","Auswahl der Dokumente"," Wählen Sie die gewünschten Dokumente")

Glombi:
Bitte sieh Dir mal mein Posting genau an - dort habe ich bereits den Code gepostet, damit er den Server nimmt.

Sacki:
vielen Dank für deine Nachsicht, hatte ich leider übersehen.

kannst du mir sagen, wo du das her hast, mit db.server, habe nämlich nichts in der Hilfe gefunden.
Es läuft leider immer noch nicht, aber möchte dich auch nicht weiter nerven!

PS: habe kalkulation zum Glück nur im Dateinamen falsch geschrieben und nicht in der Gestaltung, wäre peinlich geworden!
 

Navigation

[0] Themen-Index

[#] Nächste Seite