Feldwert mit Pushbutton setzen

[Steffen_Albrecht]

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

[Axel]

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

[Steffen_Albrecht]

Danke!
Das hilft mir weiter!

Ciao
  Steffen