Quotes and strings and where clauses is a difficult concept. I know I read and re-read lots of explanations before I "got it".
Duane
--- In MS_Access_Professionals@yahoogroups.com, mrsgoudge <no_reply@...> wrote:
>
> Thanks much, Duane! You are right--I'm still working on getting the logic of the quotes. I think I have it now--dare I say that???
>
> Connie
>
> --- In MS_Access_Professionals@yahoogroups.com, "Duane" <duanehookom@> wrote:
> >
> > I assume the first DLookup is the issue. You aren't quite getting what should be inside quotes or out. Try:
> > lngL = Nz(DLookup("ID", "qCustomerListOffSellersWContactsDerived", "ContactID = " & Me.ContactID & " And Yr = " & Me.Yr), 0)
> >
> > Duane Hookom
> > MS Access MVP
> >
> > --- In MS_Access_Professionals@yahoogroups.com, mrsgoudge <no_reply@> wrote:
> > >
> > > Good morning! Hope you all had a great Christmas.
> > >
> > > The following code was working before I added the "Yr = " & Me.Yr portion (in first If statement). Now I am getting a run type error '13' type mismatch.
> > >
> > > Both the qCustomerListOffSellersWContactsDerived.Yr and Yr in the query underlying the form are numbers. I believe that Yr has been derived in both cases with DatePart("yyyy", ...). The form has a Union query underlying it.
> > >
> > > Thanks!
> > > Connie
> > > If IsNull(Me.ID) Then
> > > lngL = Nz(DLookup("ID", "qCustomerListOffSellersWContactsDerived", "ContactID = " & Me.ContactID And "Yr = " & Me.Yr), 0)
> > > If (lngL) <> 0 Then
> > > strListingsRecordsource = "SELECT Listings.*, ListingContacts.ContactID, Withdrawn.WithdrawnDate " _
> > > & "FROM Listings INNER JOIN (ListingContacts INNER JOIN Withdrawn ON ListingContacts.ListID = Withdrawn.ListID) ON Listings.ListID = Withdrawn.ListID " _
> > > & "WHERE ListingContacts.ContactID = " & Me.ContactID & " AND DatePart(""yyyy"", [WithdrawnDate]) = " & Me.Yr & ";"
> > > DoCmd.OpenForm "Listings"
> > > Forms!Listings.RecordSource = strListingsRecordsource
> > > DoCmd.GoToControl "ListID"
> > > DoCmd.FindRecord (lngL)
> > > Else: Msgbox "This listing is not in the database. Check the Contact form for more info"
> > > End If
> > > End If
> > >
> >
>
Tidak ada komentar:
Posting Komentar