inner join mit tabelle und texteingabe

  • inner join mit tabelle und texteingabe

    hmm mein problem

    so funktioniert es ja

    SELECT tab_lehrer.LName, tab_lehrer.kuerzel
    FROM tab_lehrer INNER JOIN tab_login
    USING ( LName, kuerzel )

    aber anstatt tab_login (vorhandene tabelle mit daten) will ich mit einem textfeld vergleichen.

    Also ich habe im formular ein textfeld wo ich dann einen Namen eingebe (dieser soll nicht! in eine tabelle geschrieben oder zumindest hinterher wieder gelöscht werden) und dieser name soll mit den vorhandenen namen einer anderen tabelle verglichen werden. Stimmt er mit einem überein, dann werden die Daten des betreffenden Namens angezeigt.

    Also die tabelle tab_login soll es hinterher nicht mehr geben
  • Doch schon richtig verstanden, aber es sind noch mehrere Probleme aufgetreten. Außerdem weiß ich nicht, wie ich sql abfrage bei access einbinden soll.
    tab_lehrer ist leider in das unterformular eingebunden und dann öffnet sich bei dieser abfrage das hauptformular nicht. ich bräuchte irgend wie sowas wie

    "öffne stDocName in For_Kopfnoten"


    ich habe es in vba probiert und bin jett soweit

    Problem:
    ich will aber, das sich das unterformular im Hauptformular öffnet.
    Außerdemm soll verhindert werden, das andere Datensätze angezeigt werden können.

    loginformular: tab_login
    hauptformular: For_Kopfnoten
    unterformular: For_Kopfnoten_Schueler_U

    soweit bin ich bis jetzt:

    Quellcode

    1. Private Sub Befehl6_Click()
    2. On Error GoTo Err_Befehl6_Click
    3. Dim stDocName As String
    4. Dim stLinkCriteria As String
    5. stDocName = "For_Kopfnoten_Schueler_U"
    6. stLinkCriteria = "[LName]=" & "'" & Me![LName] & "'"
    7. DoCmd.OpenForm "For_Kopfnoten"
    8. DoCmd.OpenForm stDocName, , , stLinkCriteria
    9. DoCmd.OpenForm "tab_login"
    10. DoCmd.Close
    11. DBEngine(0)(0).Execute "DELETE FROM tab_login"
    12. Exit_Befehl6_Click:
    13. Exit Sub
    14. Err_Befehl6_Click:
    15. MsgBox Err.Description
    16. Resume Exit_Befehl6_Click
    17. End Sub
    Alles anzeigen