vreemde zaken van access

[Verwijderd]

Hello .. al enige tijd ben ik bezig met een DB in Access maar op 1 punt loop ik vast :

Ik wil 1 record mailen dmv van een in Vb geschreven functie helaas klopt er iets niet in mijn scriptje, met als gevolg dat ik wel een form kan weg sturen maar access vult deze niet met data van het desbetreffende record.

Het script ziet er als volgt uit

--------------------------------------------------------------------
:Private Sub test_button_Click()

Dim strval As String

strval = Forms!Customer_entry!casenum

DoCmd.OpenReport "storings melding", acViewPreview, test, [casenum] = "& strval &"

DoCmd.SendObject acSendReport, "storings melding", acFormatRTF, "[e-mail]", , , "storings melding", , , False

DoCmd.Close acReport, "storings melding"


End Sub
----------------------------------

Mijn report heet "storings melding" en mijn identifier is "Casenum".

Als iemand mij kan helpen dan ben ik echt gered!

[Lister]

Volgens mij is je aanroep van Openreport niet helemaal goed.
Je moet of een bestaand filter opgeven of een wherecondition en jij geef nu alletwee op en daarbij klopt je wherecondition ook nog niet, het verbaast me eigenlijk dat je geen syntax error of zoiets krijgt.

Als je nu eens dit probeert:

code:

DoCmd.OpenReport "storings melding", acViewPreview, , "[casenum] = "& strval

Als casenum een string veld is in plaats van een numeriek veld dan moet je er enkele quotes omheen zetten en krijg je dit:

code:

DoCmd.OpenReport "storings melding", acViewPreview, , "[casenum] = '"& strval & "'"

[Verwijderd]

Geweldig het werkt!!

echt hardstikke bedankt !

groeten