phobia
Terugkerende gebruiker
- Lid geworden
- 4 sep 2006
- Berichten
- 1.777
ik het de Id in tbl leverancier en die heb ik via de wizard naar de tbl artikelen gebarcht
Nu kan ik niet de opdracht uitvoeren WHERE Id_leveranier = rs!Id
Zie code
Gegevenstypen komen niet overeen in criteriumexpressie
Nu kan ik niet de opdracht uitvoeren WHERE Id_leveranier = rs!Id
Zie code
Code:
qstr1 = "SELECT * FROM leverancier WHERE mailen = true"
Set db = CurrentDb
Set rs = db.OpenRecordset(qstr1)
rs.MoveFirst
x = 0
Do While Not rs.EOF
z = rs!Id
Body = Body + "<p><strong>" + "Leverancier: " + rs!Leverancier + "</p>" + "<p> Contactpersoon: " + rs!Contactpersoon + "</p>" + "<p> Adres: " + rs!Adres + "</p>"
Body = Body + "<p>" + "Postcode: " + rs!Postcode + "</p>" + "<p> Plaats: " + rs!Plaats + "</p>" + "<p> E-mail: " + rs!E_mail + "</p></strong>"
Body = Body + "<p></p><p>-----------------------------------------------------------------------------</p>"
Body = Body + "<p>Atiekel: | Bestelnummer: | Aantal: | </p>"
strAan = rs!E_mail
qstr2 = "SELECT * FROM artikelen WHERE bestellen = true and Id_leverancier = '" + rs!Id + "'"
Set rs2 = db.OpenRecordset(qstr2)
rs2.MoveFirst
Do While Not rs2.EOF
z2 = rs2!Id_leverancier
aantal = rs2!aantal
Body_artikel = Body_artikel + "<table><tr><td>" + rs2!Artikel + " </td><td>" + rs2!Bestelnummer + " </td><td>" + aantal + " </td></tr></table>"
rs2.MoveNext
Loop
Gegevenstypen komen niet overeen in criteriumexpressie