Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Steffen_Albrecht am 27.06.02 - 08:31:29

Titel: Feldwert mit Pushbutton setzen
Beitrag von: Steffen_Albrecht am 27.06.02 - 08:31:29

Hallo!

Ich habe ein kleines Problem.

Ich habe eine Datenbank A mit der Maske X und eine Datenbank B mit der Maske Y. Ich will jetzt das Feld Z,
das in beiden Masken enthalten ist per Pushbutton von Maske  X in Datenbank A in die Maske Y in Datenbank B schreiben.
Weiß jemand wie ich das anstellen kann? ???

Gruß
  Steffen

Titel: Re: Feldwert mit Pushbutton setzen
Beitrag von: Axel am 27.06.02 - 09:04:40

Hi,

das stellt eigentlich kein großes Problem dar. Ich versuchs mal aus dem Kopf

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim dbA As NotesDatabase
Dim uidoc As NotesUIDocument
Dim docX As Notesdocument
Dim docY As NotesDocument
Dim view As NotesView

Set uidoc = ws.CurrentDocument
Set docY = uidoc.Document

Set dbA = New NotesDatabase("Server", "Datenbankname")
Set view = dbA.GetView("Ansichtenname")
Set docX = view.GetDocumentByKey("Suchschlüssel", True)
If docX is Nothing Then
 Messagebox "Kein passendes Dokument gefunden"
 Exit Sub
End If

docY.FeldnameZ = docX.FeldnameZ
Call docY.Save(True,True)

So in etwa müsste der Code aussehen.  Du musst in allerdings noch an deine Feldnamen etc. anpassen. Ich hoffe das hilft dir weiter.

Axel

Titel: Re: Feldwert mit Pushbutton setzen
Beitrag von: Steffen_Albrecht am 27.06.02 - 09:17:54

Danke!
Das hilft mir weiter!

Ciao
  Steffen