Probleme

gismosan · 18. Januar 2005

Hallo,

ich bin es mal wieder. Ich habe da mal wieder ein Problem. Ich habe 2 Datenbanken. Will über eine Schaltfläche Personen suchen die in der 1. DB stehen um Dokmente in 2. DB zu erstellen. Zudem möchte ich gleichzeitig Felder von den Personenmasken filtern um damit weiter zu arbeiten. Folgender Code funktioniert bei einer Person. Ich will aber immer eine unterschiedliche Anzahl an Personen suchen.

Dim session As New NotesSession
Dim source_db As NotesDatabase
Dim source_doc As NotesDocument
Dim source_item As NotesItem
Dim source_eMail As NotesItem
Dim wrk As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Dim tmpUNID As Variant

Set uidoc=wrk.CurrentDocument
tmpUNID = wrk.PickListStrings(3,True,"Server","1. DB","Ansicht", "Personen suchen","Wählen Sie bitte die zu informierenden Personen aus",DocID-Spalte)
Call uidoc.FieldSetText("Daten",tmpUNID)

Set source_db= session.GetDatabase("Server","1. DB")
Set source_doc=source_db.GetDocumentByUNID(tmpUNID)
Set source_eMail = source_doc.GetFirstItem("gewünschtesFeld")
tmp_mail=source_eMail.Text
Call uidoc.FieldSetText("AblageFeld",tmp_mail)
Call uidoc.Refresh()

Das AblageFeld kann Mehrfachwerte anzeigen.

Danke schon mal im voraus.

dnotes · 18. Januar 2005

Ich hoffe nichts uebersehen zu haben:

Code

Dim session As New NotesSession
	Dim source_db As NotesDatabase
	Dim source_doc As NotesDocument
	Dim source_item As NotesItem
	Dim source_eMail As NotesItem
	Dim wrk As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set source_db= session.GetDatabase("Server","1. DB")
	Dim tmpUNID As Variant
	Dim tmp_mail() As String
	Set uidoc=wrk.CurrentDocument
	tmpUNID = wrk.PickListStrings(3,True,"Server","1. DB","Ansicht", "Personen suchen","Wählen Sie bitte die zu informierenden Personen aus",DocID-Spalte)

	Redim tmp_mail(Ubound(tmpUNID))
	i = 0
	Forall Personen In tmpUNID

		Set source_doc=source_db.GetDocumentByUNID(Personen)
		Set source_eMail = source_doc.GetFirstItem("gewünschtesFeld")
		tmp_mail(i) = source_eMail.Text
		i = i +1
	End Forall
	uidoc.Document.AblageFeld = tmp_mail

	Call uidoc.Refresh()

Alles anzeigen

gismosan · 18. Januar 2005

Leider gibt er mir ein Type missmatch zurück!

RockWilder · 18. Januar 2005

wo bekommst du den Type mismatch? Mal den Debugger versucht?

Ich könnt mir vorstellen, dass es die Zeile

Code

uidoc.Document.AblageFeld = tmp_mail

ist

gismosan · 18. Januar 2005

Was soll ich denn stattdessen angeben? Komme damit nicht wirklich weiter!

Homer · 18. Januar 2005

Da du in das Feld "AblageFeld" eine Liste zuweisen willst, musst du über den Umweg des NotesItems gehen.

also
dim AblageFeld as NotesItem

und
set AblageFeld=uidoc.Document.ReplaceItemValue("AblageFeld",tmp_mail)

Teilen