Beiträge von Stony

Hallo,

rein theoretisch muss ich doch nur die Variable doc und uidoc auf die Currentdb setzen, oder?

Set dbCurrent = s.currentdatabase
Set uidoc = ws.CurrentDocument
docID = uidoc.FieldGetText ("docID")		
Set doc = dbCurrent.GetDocumentByID (docID)
Set uidoc = ??

Gruß Jan

Hallo,

Zitat

Du meinst...
While uidoc.FieldGetText( "Server_" + Cstr( num% ) ) <> ""

mit uidoc soll auf ein anderes Doc zugegriffen werden??

Ja genau diese Stelle meinte ich. Mit uidoc soll auf ein anderes Document über die ID zugegriffen werden.

Ist das möglich?

Gruß Jan

Hallo,

musste so sein.

Das Problem ist halt, dass eine externe notes db upgedated wird, dies wird von einem document gesteuert und diese prozedur bezieht die daten von einem anderen document. Diese beiden Docs liegen in der CurrentDb.

Gruß Jan

ok, irgendwie bekomme ich es nicht hin, hier mal der Code:

Function Connections (pathName)

	Dim ws As New NotesUIWorkspace
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim num As Integer
	Dim docID As String 
	Dim s As New notessession
	Dim dbCurrent As notesdatabase
	Dim uidoc2 As NotesUIDocument 

	Set dbCurrent = s.currentdatabase
	Set db = New NotesDatabase( "", ""& pathName &"\names.nsf" )
	Set view = db.GetView( "Connections" )
	Set doc = view.GetFirstDocument

	While Not doc Is Nothing
		Call doc.Remove(True)
		Set doc = view.GetFirstDocument
	Wend

	'Hier versuche ich jetzt die "Aufmerksamkeit" der db auf die currentdb zu richten ;-)
	Set uidoc = ws.CurrentDocument
	docID = uidoc.FieldGetText ("docID")		
	Set doc = dbCurrent.GetDocumentByID (docID)
	Set uidoc2 = ??   

	num = 1
	While uidoc.FieldGetText( "Server_" + Cstr( num% ) ) <> ""
		Call CreateConnection( db, "0", "", uidoc.FieldGetText( "Server_" + Cstr( num% )), uidoc.FieldGetText( "ServerAddress_" + Cstr( num% )), "*" )
		If doc.PassthruYN(0) = "1" Then.........

Hier wird halt von Notes aus eine Datenbank upgedated bzw. verändert.
Mein Problem ist, dass sich die Felder in der 2ten while auf ein anderes document in der currentdb beziehen.
Und auf dieses Doc versuche ich mit der id zu zugreifen.

Schon mal vielen Dank für die bisherige Hilfe!

Gruß Jan

ok,

aber wie setze ich db auf currentdb?

Gruß jan

Hmm,

ich bastelle da jetzt schon einige Zeit dran herum und komme einfach nicht weiter! :-?

Ich brauche einfach nur einen Code, der mir ein Document in der Currentdb nach seiner ID öffnet, da ich dann mit den Feldnamen des Documents weiter arbeiten möchte.

Gruß Jan

Hallo!

Wie kann ich ein Document nach seiner ID setzen?
Ich dachte mir das so wie bei currentdocument!

Set uidoc = ws.??

??= ID

Keine Ahnung geht das in der Richtung?

Gruß Jan

ok danke! funktioniert!

Gruß Jan

Hallo,

wie bekomme ich denn den Namen des Documents heraus?

docName = settings_doc.??

Geht das auf diese Weise?

Gruß Jan

Hallo,

und so ziehe ich mir jetzt die ID

unid = settings_doc.UniversalID

Vielen Dank!

Gruß Jan

hat sich erledigt, hab den falschen view namen angegeben!

Schonmal vielen Dank!

Gruß Jan

Hallo,

habe es jetzt so versucht:

Dim coll As notesdocumentcollection
	Dim ws As New NotesUIWorkspace

	Set ws = New notesuiworkspace

	Set coll = ws.PickListCollection( 1, False , "","H:\Test\TestDB.nsf", "view","ID","Please select!")

Ich bekomme aber die Fehlermeldung:

"Entry not in design list".

Gruß Jan

Hallo,

das hört sich sehr gut an, kannst du mir da mal ein Beispiel geben?

Schonmal vielen Dank für die Hilfe!

Gruß Jan

Hallo!

Ich öffne mit einem Button eine View, in der sich einige Documents befinden.
In der View gibt es eine Spalte Doc ID. Anstelle das sich das Document öffnet, wenn ich drauf klicke, möchte ich die DocumentID in ein Feld im CurrentDoc haben.

Dim ws As New NotesUIWorkspace
	Dim uidb As NotesUIDatabase

	Set uidb = ws.CurrentDatabase
	Call uidb.OpenView("ID")

Ist das möglich?

Gruß Jan

ok!

danke werde ich mir mal anschauen.

Gruß Jan

Hallo!

Ist es möglich per Lotus Script ein Script aus einem anderen Document auszuführen, bzw. das Script welches sich hinter einem Button verbirgt auszuführen?

Schon mal vielen Dank für eure Hilfe...!

Gruß Jan

Hallo!

ok funktioniert, habs gerade getestet!

Vielen Dank!

Gruß Jan

Hallo,

also soweit habe ich es schon:

Dim templatedb As NotesDatabase 
	Dim db As NotesDatabase 

	Set templatedb = New NotesDatabase ("", "H:\Projekte\ESA (Email System Administration)\other DB's\pernames.ntf")
	Set db = templatedb.CreateFromTemplate ("", "D:\Test\names.nsf", True)

Kann das so klappen?

Schonmal vielen Dank!

Gruß Jan

Hallo,

wie kann ich mit Lotus Script eine NEUE Datenbank nach einem bestimmten Template erzeugen, sodass alle Felder des Templates in der neuen Db sind?

Gruß Jan

Hallo,

vielen dank! Jetzt verstehe ich wenigstens ein bisschen was in dem Code passiert

Gruß Jan