small-step: ACCESS 2002 - Übergabe von... Teilerfolg

Beitrag lesen

Hallo ich selbst,

Das Formular mit dem Listenfeld
    Private Sub btMitarbeiterDetails_Click()
    On Error GoTo Local_Error
        Dim strFormName As String
        Dim strOpenArgs As String

strFormName = "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