PDA

Vollständige Version anzeigen : Wertübergabe in UFO


Markusb
05.08.2004, 13:50
Hi Leute!

Möchte Werte von einem geöffnetem Form in ein UFO übergeben.

Bis jetzt habe ich das umständlich über die Tabelle mit:

Private Sub VA_Nachfrage_neu_Click()
VA_Nachfrage.Visible = True

Dim DB As Database
Dim rs As Recordset

Set DB = CurrentDb
Set rs = DB.OpenRecordset("VA-Nachfrage")

rs.AddNew

rs.KundenNr = Me![KundenNr]
rs.Aufnahmedatum = Me![Datum]

rs.Update
rs.Close
DB.Close

Me.Refresh

End Sub gemacht.


Möchte es aber irgendwie leichter übertragen wie zb:

VA-Nachfrage.KundenNr = Me![KundenNr]
VA-Nachfrage.Aufnahmedatum = Me![Datum]

wie kann ich das am besten realisieren?

Danke
MFG
Markus

elmar
05.08.2004, 14:39
Möchte es aber irgendwie leichter übertragen wie zb:

VA-Nachfrage.KundenNr = Me![KundenNr]
VA-Nachfrage.Aufnahmedatum = Me![Datum]


Wenn das UF den Focus hat, musst Du das Hauptformular und das darin befindliche Feld anders ansprechen:

Forms!FRM_NAME!KundenNr

Siehe auch in der VBA-Hilfe nach unter dem Stichwort "Parent-Eigenschaft"

Markusb
05.08.2004, 15:02
hat es denn schon den Fokus?

Weise vom Hauptformular per Schaltfläche mit untem angeführtem Code das UFO hin diese zwei zeilen zu übertragen.

Es wird nur zuerst:
VA_Nachfrage.Visible = True

ausgeführt weil das UFO wenn nichts darin steht unsichtbar ist.


hat es aber schon jetzt den Fokus?

du meinst dann so:

VA-Nachfrage.KundenNr = Forms!Kundenverzeichnis!KundenNr
VA-Nachfrage.Aufnahmedatum = Forms!Kundenverzeichnis!Datum



MFG
Markus

Markusb
05.08.2004, 15:22
glaube es geht umgekehrt!

denn Wenn ich mir zb: Me.Datum ausgeben lasse bekomme ich das Datum v. Hauptformular.

Wie greife ich genau auf das UFO: VA-Nachfrage zu??


Forms("VA-Nachfrage").KundenNr = Me.KundenNr


dann bekomme ich eine Fehlermeldung dann "VA-Nachfrage" Formular nicht finden.

muß ich das irgendwie in Klammern od so setzen?

Danke
MFG
Markus

rapunzel
05.08.2004, 15:30
nicht so:
Forms("VA-Nachfrage").KundenNr = Me.KundenNr


sondern so (elmar hats ja schon gezeigt):
Forms![VA-Nachfrage]!KundenNr=Me!KundenNr

Arne Dieckmann
05.08.2004, 15:33
Es handelt sich um ein Unterformular, deshalb müsste es so klappen:

Me![VA-Nachfrage].Form!KundenNr=Me!KundenNr


Für VA-Nachfrage musst du denn Namen des Unterformulares im Hauptformularentwurf verwenden. S. dazu: http://www.ms-office-forum.net/forum/showthread.php?s=&threadid=129755

Markusb
05.08.2004, 15:49
Merci Arne so klappts!


Danke euch allen für die Mühe!


MFG
Markus