Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!

Mobiles Hauptmenü

Aus einem UF (Tabellenansicht) ein Formular öffnen und Wert übergeben

Begonnen von KleinerBlauerHase, April 12, 2019, 15:41:38

⏪ vorheriges - nächstes ⏩

KleinerBlauerHase

Hallo,
ich will folgendes realisieren:
aus einem Unterformular (frm1, tabellarische Darstellung, basierend auf Tabelle 1) in das Feld "ID1" eines beliebigen Datensatzes mit Doppelklick den folgenden Vorgang auslösen:
a) ein Formular (frm2, tabellarische Darstellung, basierend auf Tabelle 2) öffnen und einen neuen DS anfügen
b) den Wert aus Feld "ID1" in das Feld "ID2" in dem neu angelegten DS in frm2 eintragen

Kann mir jemand helfen.

Vielen Dank im Voraus.

PhilS

Zitat von: KleinerBlauerHase am April 12, 2019, 15:41:38
a) ein Formular (frm2, tabellarische Darstellung, basierend auf Tabelle 2) öffnen und einen neuen DS anfügen
b) den Wert aus Feld "ID1" in das Feld "ID2" in dem neu angelegten DS in frm2 eintragen
Ähnliche Problemstellungen wurden hier in der letzten Zeit häufiger diskutiert. U.a. z.B. im Thema Werttransfer zwischen Forms
Neue Videoserie: Windows API in VBA

Klassische CommandBars visuell bearbeiten: Access DevTools CommandBar Editor

KleinerBlauerHase

#2
Vielen Dank für den Hinweis. Aber ich komme noch nicht weiter.

Mit dem folgenden Code erzeuge ich folgende Fehlermeldung:
Code:
Private Sub ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "frm4", , , "IDMitarbeiter=" & Me.ID, , acDialog, ctl.Value
End Sub

Fehlermeldung:
Laufzeitfehler '424' Objekt erforderlich

Vielleicht wird es durch folgendes Bild (siehe Anlage) deutlicher:
a) Doppelklick auf das Feld "ID" im frm3
b) öffnen frm4 und Wert aus dem Feld "ID" aus frm3 in den letzten DS in frm4 in das Feld "IDMitarbeiter" eintragen


PhilS

Zitat von: KleinerBlauerHase am April 12, 2019, 17:12:17
Private Sub ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "frm4", , , "IDMitarbeiter=" & Me.ID, , acDialog, ctl.Value
End Sub

Fehlermeldung:
Laufzeitfehler '424' Objekt erforderlich
Vermutlich muss es am Ende heißen: ... , Me.Id.Value
Neue Videoserie: Windows API in VBA

Klassische CommandBars visuell bearbeiten: Access DevTools CommandBar Editor

KleinerBlauerHase

Vielen Dank. Folgender Code funktioniert:

Private Sub ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "frm4"
DoCmd.GoToRecord , , acNewRec
Forms!frm4!IDMitarbeiter = Me.ID
Forms!frm4!IDMitarbeiter.SetFocus
End Sub