Probleme mit @DBlookuo, @DBcollumn, @getdocField ...

Hallo leute

Ich sitze hier schon seit um halb 9 vor meinem Rechner in Geschäft und versuche felder eines dokumentes in einer Dialogbox sichtbar zu machen...
Doch bis jetzt habe ich keinen schimmer wie das gehen soll ich verzweifle
Benutze @DBlookup aber kein Feld wird angezeigt genauso wie bei @DBCollumn..
Habe alles versuch aber des will net.

Bitte um Hilfe

MFG TUBEMAN

hi

und zwar habe ich habe ein Script(in lotus script) geschrieben welches mir eine selbst generiertes Dialogboxfenster aufruft.

In dem die Felder des zuvor markierten Dokumentes angezeigt werden sollen und genau da hänge ich.

Sinn und zweck der geschichte ist:

Wenn man in ner notes Datenbank ein neues dokument erstellt
wird es von grund auf neu generiert.
Ich möchte das aber einfacher händeln indem ich ausgewählte Felder in ein neues Dokument miteinbinde.
Damit erspart man sich viel kleinkram.

MFG TUBEMAN

Ja das wäre eine gute lösung.

Wie geht das?

MFG TUBEMAN

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim pool As NotesDocumentCollection
Dim doc As NotesDocument
Dim dummyDoc As NotesDocument

Set db = session.currentDatabase
Set pool = db.unprocessedDocuments

If pool.count = 0 Then
Messagebox "Sie müssen erst ein Dokumente für die erstellung einer Vorlage auswählen!",(0+48),"Vorlage erstellen"
Exit Sub
End If

If pool.count > 1 Then
Messagebox "Sie können nur ein Dokumente für die erstellung einer Vorlage auswählen!",(0+48),"Vorlage erstellen"
Exit Sub
End If

Set doc = pool.GetFirstDocument()

While Not(doc Is Nothing)
Forall item In doc.Items
'Messagebox item.Name & " = " & item.Text
If item.Name = "VerDat_anz" Then
Dim Feld_Ansprechpartner As Variant
Feld_Ansprechpartner = item.name
End If

If item.Name = "TraceBarAendern" Then
Dim Feld_Text_in_Tracebar As Variant
Feld_Text_in_Tracebar = item.name
End If

If item.Name = "ProduktArt" Then
Dim Feld_Hirarchie_Ebene_1 As Variant
Feld_Hirarchie_Ebene_1 = item.name

End If
If item.Name = "Kategorie" Then
Dim Feld_Hirarchie_Ebene_2 As Variant
Feld_Hirarchie_Ebene_2 = item.Name

End If

End Forall
Set doc = pool.GetNextDocument(doc)
Msgbox Feld_Ansprechpartner
Msgbox Feld_Text_in_Tracebar
Msgbox Feld_Hirarchie_Ebene_1
Msgbox Feld_Hirarchie_Ebene_2
Wend

'Aufruf der Dialogbox Vorlage_erstellen
Set dummyDoc = db.createdocument
dummyDoc.Felderanzeigen = ""

'hier rufe ich die Dialogbox auf
Call ws.dialogbox ( "(Dialogbox \ Vorlage_erstellen)", True, True, False, False, False, False, " Vorlage erstellen - Felder Auswahl" , dummyDoc)

End Sub

Du meinst wenn ich das so schreibe

dummyDoc.Felderanzeigen = "TestFeld"

???

Ich teste das mal kurz dann melde ich mich nochmal!

THX

MFG TUBEMAN

Ich habe da noch was...

'Aufruf der Dialogbox Vorlage_erstellen
Set dummyDoc = db.createdocument
dummyDoc.VerDat_anz = [color=CC0033]""[/color]

was für ein Parameter kommt denn zwischen die beiden zeichen??

Sorry aber die ausgabe nimmt den dummyDoc.[color=FF0000]VerDat_anz[/color]
als namen für das Feld.

und nicht dummyDoc.VerDat_anz = "was hier steht..."

kannst du dir das erklären?

MFG TUBEMAN

Also

ich habe in meinem Script ein dummydoc den ich befülle.
Syntax:

Set dummyDoc = db.createdocument
dummyDoc.VerDat_anz = ""
dummyDoc.Kategorie = ""
danach rufe ich eine selbst generierte Dialogbox auf.
Der name der einzelnen Spalten in der Dialogbox lautet wie die befüllungen des dummyDoc's und zwar

VarDat_anz, Kategorie etc...

Hier werden also die werte zwischen den Gänsefüsschen, auch wenn ich was eintrage nicht beachtet.

Das verwirrt mich etwas...

Sorry das kann ich nicht machen ich kann schwer 900 MB verschicken.
Zu viele Betriebsinterne Informationen.

Okay ich versuche es dann selbst mal weiter...

Vielen Dank für die Hilfe ihr werdet sich mal wieder was von mir hören.

PS: Stylisches Board

MFG TUBEMAN