rs.MoveFirst error!!!

[phobia]

Ik ben een mess mailer aan het maken met html structuur

Ik laat kijken naar welke klanten er gemaild moeten worden.

Aan de hand daarvan laat ik de mail op maken

Deel 1: binnen gekomen orders

Deel 2 : verzonden Orders

nu kan het voor komen dat er of nix binnen gekomen is of verzonden word.

Dus de query is dan leeg. Hoe kan ik de error ondervangen als ik rs.movefirst doen en hij vind nix.

 

[Greenery80]

check voor rs.movefirst

Kan je niet beter eerst een check doen of de query leeg is en dan pas de rs.movefirst.
Eerst rs.movefirst uitvoeren en dan pas controle lijkt me niet correct.

ff een ruw voorbeeldje:

Set rs=con.execute("Select * from *")

If rs Is Null Then
  Msgbox "fout!"
  Exit Sub
Else
  rs.MoveFirst
End If

 

[phobia]

Ik heb jou oplossing in mijn code gedump,

            qstr1 = "SELECT *  FROM TblBrilAdmin  WHERE mailIn = true and debnr =  " + xklant
            Body = Body + "<span class='style1'> Orders Op <strong>" + Date$ + "</strong> ontvangen :</span><br /><hr /><br />"
       'check of er gegevens zijn in de query1
 [COLOR="Red"]           Set rs2 = con.Execute(qstr1)[/COLOR]            If rs2 Is Null Then
                GoTo Knop31_skip1
            Else
                Set rs2 = db.OpenRecordset(qstr1)
                rs2.MoveFirst
            End If
            body_artikel = "<table style='width: 100%' ><tr><td>"
            body_artikel = body_artikel + "<strong>Ordernummer : </strong><br />"
                Do While Not rs2.EOF
                    body_artikel = body_artikel & rs2!briladmin_id & "<br />"
                rs2.MoveNext
                Loop

Maar nu krijg ik de foutmelding

Fout 424 tijdens uitvoering:

Object vereist.

en de foutopsporig geeft het hier boven in rood aan.!!!

Bij help word dit verteld over Execute:
De methode Execute is alleen geldig voor actiequery's
en mijn SQL is geen actiequery.

 

[Floor E]

Verander de regel van qstr1 = in:

qstr1 = "SELECT *  FROM TblBrilAdmin  WHERE mailIn = true and debnr =  " + xklant & ";"

Opes, sorry, ik zie nu de onderstaande aanpassing.
Verander execute eens in open (ik bouw mijn rs anders op vandaar, ik heb weinig ervaring met deze syntax)

 

[phobia]

ik had al een andere oplossing gevonden.

misschien ook handig voor jou!!!

    If Not (rs.BOF And rs.EOF) Then 'There are no records if Beginning-Of-File and End-Of-File are both true.
    If rs.RecordCount <> 0 Then     '100% reliable in DAO, but some ADO recordsets return -1 as the count.

 

[Floor E]

Ik heb een mooie link mbt recordsets 10+ mistakes to avoid when using VBA Recordset objects

 

[phobia]

Heeft iemand enig idee waarom mijn SQL leeg is?

            xklant = rs!Klant_id
            datum = Date$
            qstr1 = "SELECT *  FROM TblBrilAdmin  WHERE datumIn = #" + datum + "# and debnr =  " + xklant

er moet een record naar boven komen.
Als ik het in een query plak dan vind hij de gegevens wel.

 

[Floor E]

Heb je mijn regel al ingevuld?

qstr1 = "SELECT *  FROM TblBrilAdmin  WHERE mailIn = true and debnr =  " + xklant & ";"