Access-o-Mania

Access-Forum (Deutsch/German) => Formular => Thema gestartet von: KleinerBlauerHase am April 12, 2019, 15:41:38

Titel: Aus einem UF (Tabellenansicht) ein Formular öffnen und Wert übergeben
Beitrag von: KleinerBlauerHase am April 12, 2019, 15:41:38
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.
Titel: Re: Aus einem UF (Tabellenansicht) ein Formular öffnen und Wert übergeben
Beitrag von: PhilS am April 12, 2019, 16:20:52
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 (https://www.access-o-mania.de/forum/index.php?topic=23934.0)
Titel: Re: Aus einem UF (Tabellenansicht) ein Formular öffnen und Wert übergeben
Beitrag von: KleinerBlauerHase am April 12, 2019, 17:12:17
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

Titel: Re: Aus einem UF (Tabellenansicht) ein Formular öffnen und Wert übergeben
Beitrag von: PhilS am April 12, 2019, 18:04:53
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
Titel: Re: Aus einem UF (Tabellenansicht) ein Formular öffnen und Wert übergeben
Beitrag von: KleinerBlauerHase am April 12, 2019, 18:17:44
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