Re: Can't update a Report fiels

From: Jeff Boyce (JeffBoyce_IF_at_msn.com-DISCARD_HYPHEN_TO_END)
Date: 12/06/04 

Date: Mon, 6 Dec 2004 05:12:41 -0800

Jim

The error message you mention suggests that you/your code is trying to
assign a value to something. Where in your code does this happen?

If you aren't sure, consider setting a breakpoint in your code and stepping
through it line-by-line until it breaks. This will point to the line that
is causing the problem, giving you more clues. 

-- 
Good luck
Jeff Boyce
<Access MVP>
"Jim Shaw" <jeshaw2@comcast.net.work> wrote in message
news:uLq9fq42EHA.3908@TK2MSFTNGP12.phx.gbl...
> BlankI developed this code from an example on page 402 in "Beginning
Access
> 2002 VBA" from WROX.  It used to work, but now it does not work anymore.
> What could I have possibly done to break this code?
>
> I have a report ("rptJobApplicantLog") that opens a form in the report's
> Open Event.  In the form, the user specifies two dates which are used in
the
> report's filter. I'm able to return the filter string back to the report,
> but I can't return values to a textbox ("txtFilter") in the report header
to
> announce to the report readers that the report is filtered. Nor can I set
> its visibility if I comment out the assignment statement.
>
> I have done all that I know to do to deal with possible corruption in the
> db.  I've deleted the report & form, decompiled the db, Imported the
> application into a new db, rebuilt the report & form, and compiled with no
> errors.
>
> In the form's VBA code below, at the point indicated, I get a runtime
error
> "You can't assign a value to this object".
>
> Option Compare Database
> Dim m_rptAppLog As Report
> --------------------------------------------------------------------
>
> Private Sub Form_Load()
>     Set m_rptAppLog = Reports("rptJobApplicantLog")
> End Sub
>
> Private Sub cmdOK_Click()
>     Dim txtWhere as String
>     Dim strWHERE as String
>     ...
>     txtWhere = dtePeriodStart & "Thru " & dtePeriodStart
>     strWHERE = "[EffectiveDate] >= #" & dtePeriodStart & "# AND
> [EffectiveDate] <+ #" & dtePeriodEnd & "#"
>     With m_rptAppLog
>         .Filter = strWHERE
>         .FilterOn = True
>         .txtFilter = txtWhere                'I get the error message at
> this point
>         .txtFilter.Visible = True
>         .lblFilter.Visible = True
>     End With
> End Sub
> ---------------------------------------------End of Code---------------
>
> Thanks for your help on this
> -Jim
>
>

Relevant Pages

  • Re: Printed report does not match print Preview
    ... I am unfamiliar with how the report process works. ... Dim rstReport As DAO.Recordset ... Dim intX As Integer ... Private Sub Detail_Format ...
    (microsoft.public.access.reports)
  • mad report.. =/
    ... report directly form VBA is printed perfect. ... >Private Sub Detail_Format(Cancel As Integer, ... >Dim intOpcion As Integer ...
    (microsoft.public.access.reports)
  • Re: Error: Microsoft jet database engine does not recognize " as a va
    ... If you are attempting to create a crosstab report with dynamic columns, ... > Dim rstReport As DAO.Recordset ... > Dim intX As Integer ... > Private Sub Detail_Format ...
    (microsoft.public.access.reports)
  • Re: Error: Microsoft jet database engine does not recognize " as
    ... Report Propoerties window or would it need to be done through the VB code? ... >> ' Variables for Database object and Recordset. ... >> Dim rstReport As DAO.Recordset ... >> Private Sub Detail_Format ...
    (microsoft.public.access.reports)
  • REPOST: Maintaining Page Numbers with multiple reports.
    ... ' On the FIRST report that is run ... Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As ... > I have now added the code to the second report which has just three ...
    (microsoft.public.access.reports)