Werttransfer zwischen Forms

[zorlayan]

Servus Kollegen,

folgendes Problem habe ich, bitte um Hilfe.
Danke an allen beteiligten im voraus!

ich habe ein FormA in dem Form gibts ein Button welches ein zweites FormB beim Klicken öffnet.
In FormA gibts einen KundenNr Textfeld, diese Kundennummer will ich in dem zweiten Form also in FormB in einem anderen Textfeld heißt auch KundenNr übertragen.

Sub Button_Click()
dim wert as integer
wert = FormA.KundenNr
kopiere Wert
öffne FormB
einfüge Wert in FormB.KundenNr
End Sub

wie schaut es in VBA aus?

Vielen Dank

[Beaker s.a.]

Hallo,

Code [Auswählen] Erweitern

Private Sub DeinButton_Click()
    DoCmd.Openform _
        FormName:="FormB", _
        WhereCondition:="KundenNr = " & Me.KundenNr
'falls KundenNr vom Typ "Text"
'WhereCondition:="KundenNr = '" & Me.KundenNr & "'"
End Sub
(kein Bock Kommas zu zählen, deshalb mit benannten Parametern; Me. = FormA)
gruss ekkehard

[zorlayan]

Hallo,

Code [Auswählen] Erweitern

Private Sub DeinButton_Click()
    DoCmd.Openform _
        FormName:="FormB", _
        WhereCondition:="KundenNr = " & Me.KundenNr
'falls KundenNr vom Typ "Text"
'WhereCondition:="KundenNr = '" & Me.KundenNr & "'"
End Sub

Servus,
danke für die Antwort. Ich glaube ich habe etwas wenig infos gegeben.
Wie ich von deinem Code verstanden habe, öffnen wir zweiten Form und suchen wir Datensätze nach dem Wert welche in FormA wir angegeben haben.
Aber wenn ich keine Datensätze von der Kunde im neuen Form habe und was neues hinzufügen möchte quasi einen neuen Eintrag unter neuen Kunde?
Wie ist der Code zum kopieren des Wertes von ersten Form und hinzufügen in den zweiten?
Danke

[Beaker s.a.]

@zorlayan
Dann übergeben wir die KundenNr mit dem Parameter "OpenArgs".

Code [Auswählen] Erweitern

Private Sub DeinButton_Click()
    DoCmd.Openform _
        FormName:="FormB", _
        OpenArgs:=Me.KundenNr
End Sub
Dann muss dieser Wert allerdings "Beim Öffnen" des FormB zugewiesen werden

Code [Auswählen] Erweitern

Private Sub FormB_Open()
    Me.KundeNr = Me.OpenArgs
End Sub

gruss ekkehard

[PhilS]

Wie ist der Code zum kopieren des Wertes von ersten Form und hinzufügen in den zweiten?

Du kannst über das OpenArgs Argument von DoCmd.OpenForm Werte/Daten an das geöffnete Form übergeben. Das Beispiel in der verlinkten Dokumentation zeigt das Vorgehen.