Hallo ich selbst,
Das Formular mit dem Listenfeld
Private Sub btMitarbeiterDetails_Click()
On Error GoTo Local_Error
Dim strFormName As String
Dim strOpenArgs As StringstrFormName = "frmMitarbeiterDetails"
strOpenArgs = "Testparameter"Dim strTest As String
DoCmd.OpenForm strFormName, , , , , , strOpenArgs
Local_Error:
End Sub
Das wurde jetzt zu:
Private Sub btMitarbeiterDetails_Click()
On Error GoTo Local_Error
Dim strFormName As String
Dim strOpenArgs As String
strFormName = "frmMitarbeiterDetails"
strOpenArgs = Me!lstMitarbeiter.Column(2)
DoCmd.OpenForm strFormName, , , , , , strOpenArgs
Local_Error:
End Sub
Und funktioniert jetzt. Ich habe in die Abfrage die Id mit reingenommen und sie im Listenfeld nicht anzeigen lassen, jetzt kann ich sie abrufen.
Und dieser Teil hier:
Private Sub txtVorname_Click()
MsgBox OpenArgs
End Sub
Wurde dazu:
Private Sub Form_Open(Cancel As Integer)
Dim strOpenArgs As String
Dim strVorname As String
Dim strNachname As String
Dim strEMail As String
Dim strSql As String
strOpenArgs = OpenArgs
Dim rs As New Recordset
rs.Open "SELECT Vorname,Nachname,EMail FROM tbMitarbeiter WHERE PKMitarbeiter = " & strOpenArgs & "", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
strVorname = rs("Vorname")
strNachname = rs("Nachname")
strEMail = rs("EMail")
Me!txtVorname.Value = strVorname
Me!txtNachname.Value = strNachname
Me!txtEmail.Value = strEMail
End Sub
Womit auch dieser Teil funktioniert. Jetzt muss ich mir nur noch etwas einfallen lassen, wie ich die das Listenfeld im Popup per VBA füttere, ich muss nämlich auch hier einen Parameter übergeben. Schauen wir mal ob ich das hinbekomme.
Gruß,
small-step