SQL Abfrage in VBA von Access

Computer: Software & Programmierung Microsoft Access
#1

Hallo, natürlich scheitert er wieder einmal, wer kann mir bei dieser Abfrage weiter helfen?

Ab dem Zeichen '** kommt der Laufzeitfehler 3061:
Zwei Parameter wurden erwartet, aber es wurden zuwenig Parameter übergeben.

Besten Dank für jeden Hinweiss.
Grüsse Sebastian

Tabelle = „TKunden“
Feld1 = „Name“ 'String
Feld2 = „Vorname“ 'String
Feld3 = „Geburtstag“ 'Date
Kriterium1 = Me.comboxName.Value
Kriterium2 = Me.comboxVorname.Value
Kriterium3 = Me.comboxGebDate.Value
Kriterium3 = „#“ & Mid(Kriterium3, 4, 2) & „/“ & Left(Kriterium3, 2) & „/“ & Right(Kriterium3, 4) & „#“ 'Benötigtes Format #31/12/92#

'**
Set rs = CurrentDb.OpenRecordset("SELECT " & Tabelle & ".* " & _
"FROM " & Tabelle & " WHERE " & Tabelle & „.“ & Feld1 & " = " & Kriterium1 & " and " & Tabelle & „.“ & Feld2 & " = " & Kriterium2 & " and " & Tabelle & „.“ & Feld3 & " = " & Kriterium3)

If rs.RecordCount 0 Then
Set rs = CurrentDb.OpenRecordset("SELECT " & Tabelle & ".* " & _
"FROM " & Tabelle & " WHERE " & Tabelle & „.“ & Feld1 & " = " & Kriterium1 & " and " & Tabelle & „.“ & Feld2 & " = " & Kriterium2 & " and " & Tabelle & „.“ & Feld3 & " = " & Kriterium3)
If rs.RecordCount = 0 Then
MsgBox „Noch nicht vorhanden“
Exit Sub
Else
MsgBox „vorhanden“
End If
End If

#2

Da ist so einiges mürbe…

Kriterium1 = Me!comboxName.Value
Kriterium2 = Me!comboxVorname.Value
Kriterium3 = Me!comboxGebDate.Value
Kriterium3 = "#" & Format(CDate(Kriterium3),"yyyy-mm-dd") & "#" 

Set rs = CurrentDb.OpenRecordset("SELECT \* " & \_
 "FROM [" & Tabelle & "] WHERE [" & Feld1 & "] = '" & Kriterium1 & "' and [" & \_
 Feld2 & "] = '" & Kriterium2 & "' and [" & Feld3 & "] = #" & Kriterium3 & "#", DbOpenDynaset)

wie so etwas eleganter unter Berücksichtigung von Nullwerten (leeren Feldern) geht, kannst du dir im DBWiki ansehen (Beispiele „Suchen“ und „PosFilt“)

Warum du die Tabelle und Feldnamen parametrisieren willst, erschließt sich mir nicht auf Anhieb.

Gruß aus dem Norden
Reinhard Kraasch

(http://www.dbwiki.de - das Datenbank-Wiki)