Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.
Object variable or with block variable not set
I am trying to use a qry as a recordsource. The qry uses a query(qryVATLett) based on 2 tables + 2 other tables. I think I am getting this error message because of the query. Any ideas?
Sicando
Dim rpt As Report, rst As Recordset, db As Database, rst1 As Recordset, strSQL As String
Dim strQry As String
Dim strDate1 As Date, strDate2 As Date
strDate1 = Forms!frmreports!txtDate1
strDate2 = Forms!frmreports!txtDate2
strSQL = "SELECT tblMember.ReferenceNo, qryVATlett.AccountName, qryVATlett.AccountNumber,"
& " qryVATlett.SortCode, tblMember.FinalAcceptance,
& " tblMember.MethodofPayment,
& " qryVATlett.Address1, qryVATlett.Address2, qryVATlett.Address3," _
& " qryVATlett.Town, qryVATlett.County, qryVATlett.Postcode, " _
& " tblSubscriptionDetails.Net
& " FROM (tblMember INNER JOIN qryVATlett ON tblMember.ReferenceNo = qryVATlett.ReferenceNo) INNER JOIN tblSubscriptionDetails ON tblMember.LevelofMembershi
& " WHERE (tblMember.FrequencyofPaym
& " AND tblMember.RenewalDate Between #" & Format(strDate1, "mm\/dd\/yyyy") & "# And #" & Format(strDate2, "mm\/dd\/yyyy") & "#" _
& " AND (qryVATlett.Bank Is Not Null) AND tblMember.Status In ('LM1','LM2','LM3)" _
& " ORDER BY qryVATlett.Bank"
rpt.RecordSource = strSQL
Sicando
Dim rpt As Report, rst As Recordset, db As Database, rst1 As Recordset, strSQL As String
Dim strQry As String
Dim strDate1 As Date, strDate2 As Date
strDate1 = Forms!frmreports!txtDate1
strDate2 = Forms!frmreports!txtDate2
strSQL = "SELECT tblMember.ReferenceNo, qryVATlett.AccountName, qryVATlett.AccountNumber,"
& " qryVATlett.SortCode, tblMember.FinalAcceptance,
& " tblMember.MethodofPayment,
& " qryVATlett.Address1, qryVATlett.Address2, qryVATlett.Address3," _
& " qryVATlett.Town, qryVATlett.County, qryVATlett.Postcode, " _
& " tblSubscriptionDetails.Net
& " FROM (tblMember INNER JOIN qryVATlett ON tblMember.ReferenceNo = qryVATlett.ReferenceNo) INNER JOIN tblSubscriptionDetails ON tblMember.LevelofMembershi
& " WHERE (tblMember.FrequencyofPaym
& " AND tblMember.RenewalDate Between #" & Format(strDate1, "mm\/dd\/yyyy") & "# And #" & Format(strDate2, "mm\/dd\/yyyy") & "#" _
& " AND (qryVATlett.Bank Is Not Null) AND tblMember.Status In ('LM1','LM2','LM3)" _
& " ORDER BY qryVATlett.Bank"
rpt.RecordSource = strSQL
Asked:
-
3
-
2
-
2
1 Solution
greg is right. where is this code that is running. is it on the report that is opening? is it behind a button? where is it?
as Greg points out, you never set the report variable (rpt) to anything. you need to set rpt = to the report you are trying to open, but depending on where your code is located there are different ways to do it.
i don't think greg's code will work for you though, as his idea is to open the report in preview mode first. if you do this, THEN set the recordsource, the report won't requery.
i think that you should move your code to the On Open event of your report. then, simply change your
rpt.RecordSource = strSQL
to
Me.RecordSource = strSQL
enjoy
dovholuk
as Greg points out, you never set the report variable (rpt) to anything. you need to set rpt = to the report you are trying to open, but depending on where your code is located there are different ways to do it.
i don't think greg's code will work for you though, as his idea is to open the report in preview mode first. if you do this, THEN set the recordsource, the report won't requery.
i think that you should move your code to the On Open event of your report. then, simply change your
rpt.RecordSource = strSQL
to
Me.RecordSource = strSQL
enjoy
dovholuk
i've never gotten a c before...
for my benefit, how could i have given you a better answer?
thanks for helping me out,
dovholuk
for my benefit, how could i have given you a better answer?
thanks for helping me out,
dovholuk
Guess I'm just a bit pissed off. I thought the problem was in the SQL, which it was.
Give yourself a A+ if it makes you feel better
Thanks for your help
Give yourself a A+ if it makes you feel better
Thanks for your help
Guess I'm just a bit pissed off. I thought the problem was in the SQL, which it was.
Give yourself a A+ if it makes you feel better
Thanks for your help
Give yourself a A+ if it makes you feel better
Thanks for your help
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
I have a code called Company. Here is my code
Dim rpt As Report
DoCmd.OpenReport "Company", acViewPreview
Set rpt = Reports("Company")
rpt.RecordSource = strSQL
See how that goes!
Greg