4
Wo ist der Unterschied....
dass eins funktioniert und das andere nicht
Hallo zusammen,
Access 2000 und VBA treiben mich in den Wahnsinn:
Geht nicht:
Geht
Wo ist das Problem? Bei dem ersten gibt es als Ergebnis nur Null zurück.
Danke!!
Access 2000 und VBA treiben mich in den Wahnsinn:
Geht nicht:
Dim Jahr_Monat as string
Dim Jahr_Monat2 as string
Jahr_Monat = "2008_08“
Jahr_Monat2 = "2008_07“
Set rs = dbs.OpenRecordset("SELECT Avg(BZ), Avg(NHZ), Avg(LZ) FROM Tbl_Produktionsdaten WHERE Jahr_Monat='" & Jahr_Monat & "' OR Jahr_Monat='" & Jahr_Monat2 & "'") Geht
Set rs = dbs.OpenRecordset("SELECT Avg(BZ), Avg(NHZ), Avg(LZ) FROM Tbl_Produktionsdaten WHERE Jahr_Monat='2008_08' OR Jahr_Monat='2008_07'") Wo ist das Problem? Bei dem ersten gibt es als Ergebnis nur Null zurück.
Danke!!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 98172
Url: https://administrator.de/contentid/98172
Printed on: April 26, 2024 at 18:04 o'clock
4 Comments
Latest comment
Hi,
beim ersten Codebeispiel ist rs = NULL? Da stimmt imo dann was anderes nicht. Eigentlich sollte wenn keine Records ausgewählt wurden rs schon gesetzt werden - halt mit rs.recordcount=0 bzw rs.eof & rs.bof =true.
Wo genau wird denn ein Fehler ausgelöst?
lg,
Slainte
beim ersten Codebeispiel ist rs = NULL? Da stimmt imo dann was anderes nicht. Eigentlich sollte wenn keine Records ausgewählt wurden rs schon gesetzt werden - halt mit rs.recordcount=0 bzw rs.eof & rs.bof =true.
Wo genau wird denn ein Fehler ausgelöst?
lg,
Slainte
Hi,
bei dem ersten ist rs.fields(0) etc Null, der recordcount ist 1
Er legt 3 Felder an, die aber alle leer sind...
Der Rest des Codes ist ALLES gleich, ich habe nur die beiden Zeilen ausgetauscht
bei dem ersten ist rs.fields(0) etc Null, der recordcount ist 1
Er legt 3 Felder an, die aber alle leer sind...
Der Rest des Codes ist ALLES gleich, ich habe nur die beiden Zeilen ausgetauscht
Hi Maik,
versuch's doch mal so. Ich setzte die Selects vorher zusammen und habe damit keine Probleme. Das hat auch dden Vorteil, dass du variabler bist.
Dim Jahr_Monat as string
Dim Jahr_Monat2 as string
Dim SQLS as string
Jahr_Monat = "2008_08“
Jahr_Monat2 = "2008_07“
SQLS ="SELECT Avg(BZ), Avg(NHZ), Avg(LZ) FROM Tbl_Produktionsdaten WHERE Jahr_Monat='"& Jahr_Monat & "' OR Jahr_Monat = '" & Jahr_Monat2 & "'"
Set rs = dbs.OpenRecordset(SQLS)
Gruß
Ralf
versuch's doch mal so. Ich setzte die Selects vorher zusammen und habe damit keine Probleme. Das hat auch dden Vorteil, dass du variabler bist.
Dim Jahr_Monat as string
Dim Jahr_Monat2 as string
Dim SQLS as string
Jahr_Monat = "2008_08“
Jahr_Monat2 = "2008_07“
SQLS ="SELECT Avg(BZ), Avg(NHZ), Avg(LZ) FROM Tbl_Produktionsdaten WHERE Jahr_Monat='"& Jahr_Monat & "' OR Jahr_Monat = '" & Jahr_Monat2 & "'"
Set rs = dbs.OpenRecordset(SQLS)
Gruß
Ralf
Hey Ralf,
danke für die Antwort. Hab leider vergessen zu erwähnen, dass ich das auch schon versucht habe. Ich hab echt keine Idee mehr.
Gruß
Maik
danke für die Antwort. Hab leider vergessen zu erwähnen, dass ich das auch schon versucht habe. Ich hab echt keine Idee mehr.
Gruß
Maik