Office: 1 Parameter wurde erwartet aber es wurden zu wenig Parameter übergeben

Guten Tag

Ich hoffe es kann mir jemand helfen.
Im Unterformular (Endlosformular) gebe ich die Teilnehmer ein (Feld: Teilnehmer_f). Sobald ich das Feld verlasse, soll es in einer Abfrage (Abf_RedFlag_Gesperrt) überprüfen ob der Wert (Zahl) in der Spalte Teilnehmer_f_RedFlag vorkommt. Wenn diese Zahl vorhanden, dann soll er das Formular (Form_Info_Gesperrt) öffnen. Wenn nicht, dann soll nichts passieren.

KI hat mir bisher bischen geholfen und mir den Code ausgegeben.
Ich verstehe den code zu 95% jedoch mit dem Fehler im Titel komme ich nicht klar und finde kein Fehler.

Code:

Private Sub Teilnehmer_f_LostFocus()
Dim rs As Object
Dim strSQL As String
Dim strWert As String

' Wert des Felds in der Abfrage
intWert = Me.Teilnehmer_f

' Abfrage-SQL
strSQL = "SELECT * FROM Abf_RedFlag_Gesperrt WHERE Teilnehmer_f_RedFlag = intWert"

' Datenbankabfrage
Set rs = CurrentDb.OpenRecordset(strSQL)

' Überprüfen, ob der Wert in der Abfrage gefunden wurde
If Not rs.EOF Then
DoCmd.OpenForm "Form_Info_Gesperrt"
End If

' Recordset schließen
rs.Close
Set rs = Nothing
End Sub


Besten Dank
Liebe Grüsse
Aaron

 

so schnell kann doch die Lösung da sein. Eine andere KI hat mir die Lösung gebracht und dort konnte ich auch ein weiteres Kriterium in die Abfrage und in den Code integrieren. Das einzige was ich nicht verstehe ist, was der Unterschied zwischen DAO.Databe und Object ist und auch der Unterschied zwischen rs und db.

Private Sub Teilnehmer_f_LostFocus()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim teilnehmerWert As Variant

' Wert aus dem Teilnehmer_f-Feld
teilnehmerWert = Me!Teilnehmer_f

' SQL-Abfrage zur Überprüfung der Bedingungen
strSQL = "SELECT * FROM Abf_RedFlag_Gesperrt WHERE Teilnehmer_f_RedFlag = " & teilnehmerWert & " AND Aktiv = True"

' Datenbank und Recordset öffnen
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)

' Überprüfen, ob ein entsprechender Datensatz vorhanden ist
If Not rs.EOF Then
' Formular öffnen, wenn Bedingungen erfüllt sind
DoCmd.OpenForm "Form_Info_Gesperrt", , , "Teilnehmer_f_RedFlag = " & teilnehmerWert
End If

' Recordset schließen und Speicher freigeben
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub

 

Hallo,rs und db sind nur die Namen der Objektvariablen denen DU dann mit set eine Instanz des entsprechenden Objekts erstellst. Die können auch Willi oder Franz heißen. CurrentDB ist das Objekt "aktuelle Datenbank" mit all ihren Methoden und Eigenschaften (siehe Objektkatalog). Ein bestimmtes Recordset des Objektes db wird dann über die Methode OpenRecordset geöffnet. In deinem Fall ist es dynamisch die SQL-Abfrage. Es kann aber auch der Name einer Tabelle oder der Name einer bereits gespeicherten Abfrage sein. Theoretisch könntest db auch weglassen, wenn Du schreibst "CurrentDB.OpenRecordset...."
Um das Verständnis zu fördern lohnt es sich mal das Objektmodell von Access anzuschauen. Hier sind die "Collections" ein besonders interessantes Thema, weil man darüber viele Dinge über Schleifen erledigen kann. (Forms oder Fields sind da die Stichworte.