May 12, 2013, updated at 17:49:50 (UTC)

10229

Access 2010 SQL Abfrage ergebnis Abfragen VBA

Hallo,
ich komme an einer Stelle nicht weiter.

ich habe eine SQL Abfrage, welche über ein Kriteriumswert() mir eine Anzahl von Werten zurückliefert

SELECT [CROSS Betriebe].Betriebsnummer, Count([CROSS Betriebe].Hauptbetrieb) AS AnzahlvonHauptbetrieb
FROM [CROSS Betriebe]
GROUP BY [CROSS Betriebe].Betriebsnummer
HAVING ((([CROSS Betriebe].Betriebsnummer)=varWert()));

Weiter habe ich ein Formular in welches ich den in der SQL Abfrage vorhanden Wert (varWert() ) eingebe.

Nun möchte ich, sobald ich in dem Formular ein Wert eingebe, dieser geprüft wird, ist der wert mehr als 1 mal vorhanden, dann führe X aus ansonsten Y

der Code funktioniert leider so nicht

Private Sub Text190_AfterUpdate()
 Dim strSQL As String
 Dim db As DAO.Database
 'Dim db1 As Database, Liste As Recordset  
 

   varWert = Text190
    DoCmd.Close acForm, "Betriebsübersicht"  
               
        
        strSQL = "SELECT [CROSS Betriebe].Betriebsnummer, Count([CROSS Betriebe].Hauptbetrieb) AS AnzahlvonHauptbetrieb FROM [CROSS Betriebe] GROUP BY [CROSS Betriebe].Betriebsnummer HAVING ((([CROSS Betriebe].Betriebsnummer)=varWert));"  
        Set db = CurrentDb
        Set Liste = db.OpenRecordset(strSQL, dbOpenSnapshot)
    MsgBox Liste.RecordCount
        If Liste.RecordCount > 1 Then
        ' Führe X aus  
		MsgBox "mehr als 1"  
       
        Else
		' Führe Y aus  
        MsgBox "nur 1 wert vorhanden"  

        End If

End Sub

Es erscheint der Hinweis:
Laufzeitfehler '3061'
1 Parameter wurde erwartet, aber es wurden zu wenig Parameter übergeben

Vielleicht kann mir hier jemand helfen

Please also mark the comments that contributed to the solution of the article

Content-Key: 206347

Url: https://administrator.de/contentid/206347

Printed on: April 25, 2024 at 15:04 o'clock

8 Comments

Latest comment

Moin,

magst Du uns auch noch verraten in welcher Zeile der Fehler passiert?`

lg,
Slainte

Moin,

1 Parameter wurde erwartet, aber es wurden zu wenig Parameter übergeben

der Fehler deutet immer auf ein fehlerbehaftetes SQL Statement hin hast Du die Abfrage so schonmal getestet?

LG

"SELECT ... HAVING ((([CROSS Betriebe].Betriebsnummer)=varWert));"

Was genau soll den "varWert" sein? Wenn das eine Variable sein soll die aus dem Code an das SQL Statement übergeben werden soll, dann muss das so aussehen:

"SELECT ... HAVING ((([CROSS Betriebe].Betriebsnummer)=" & varWert & "));"

Hallo,
danke für die Rückmeldungen

der VarWert ist ein Textfeld innerhalb eines Formulars.

Der Code soll eigentlich per SQL Abfrage prüfen ob ein Wert innerhalb einer Tabelle wie oft vorhanden ist und sollte dieses der Fall sein entweder oder als Aktion durchführen.

der jetzige code

varWert = Text190
        strSQL = "SELECT Betriebsnummer FROM [CROSS Betriebe] WHERE Betriebsnummer=" & varWert & ";"  
        Set db = CurrentDb
        Set Liste = db.OpenRecordset(strSQL, dbOpenSnapshot)
        MsgBox Liste.RecordCount
        If Liste.RecordCount > 1 Then
 '      MsgBox "mehr als 1"  
       'Me!cmdWeiter.Enabled = False  
        Else
        MsgBox "nur 1 wert vorhanden"  
        'Me!cmdWeiter.Enabled = True  
      Exit Sub
        End If

end Sub

Funktioniert hier leider nicht.
Es wird immer nur der wert 1 Ausgegeben, obwohl mehrfach vorhanden.
Bei einer manuellen Abfrage wird der Richtige Wert zurück gegeben.

Vielleicht kann hier nochmal jemand drüber schauen

Selbst im Bereich

MsgBox Liste.RecordCount

wird nur der Wert 1 anstatt z.b. 4 zurück geliefert

Moin svenac2010,

die Query macht schon das Richtige (vermutlich), aber was du abfragst, ist doch mitnichten der "AnzahlVonHauptbetrieb"-Wert, der dich vielleicht interessiert.
Du fragst doch immer nur die Anzahl der zurückgegebenen Zeilen (=.RecordCount) ab.
Und die ist immer =1, egal ob nun für den Betrieb varwert=4 nun zurückkommt, dass er 0 oder 1 oder 27 Hauptbetriebe hat.

Works as designed - ich würde mir da gar keine Sorgen machen.

Grüße
Biber

Hallo Biber,

wie frage ich den die Summe in meinem Fall ab, wenn .RecordCount falsch ist.
In der jetzigen SQL Abfrage, wird nur nach Betriebsnummer gesucht, nicht ,mehr nach Hauptbetrieb

Lt. Microsoft wird die Funktion RecordCount wie folgt angegeben

"...
Die RecordCount -Eigenschaft ist eine DAO-Eigenschaft, die die Anzahl der Datensätze in einer Tabelle in Ihrer Access-Datenbank angibt.
..."

Danke, Problem selber behoben.

Er muss auch wissen, wann der letzte Datensatz vorhanden ist

....
Set db = CurrentDb
        Set Liste = db.OpenRecordset(strSQL, dbOpenSnapshot)
        Liste.MoveLast
        If Liste.RecordCount > 1 Then
....

Moin svenac2010,

upps, sorry, ich hatte immer noch Bezug genommen auf die (korrigierte) Version der "SELECT Count(*)"-Abfrage aller Hauptbetriebsstätten eines Betriebes.

Okay, dann muss die Ursache noch banaler sein - ist denn die vielleicht die "Betriebsnummer" ein numerischer Wert und "varwert" ein Text?

Wäre im moment das Einzige, was mir noch einfiele.

Grüße
Biber

[Edit]
Viiiel langsamer getippselt als svenac2010 --- und ist jetzt gegenstandslos.
{/Edit]

German Question Microsoft Office Microsoft

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments

Wireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments

Access 2010 SQL Abfrage ergebnis Abfragen VBA

Hallo,ich komme an einer Stelle nicht weiter.

Hallo,
ich komme an einer Stelle nicht weiter.