Future product enhancement opportunity with a dlookup

  • Thread starter Thread starter Nick Ward
  • Start date Start date
N

Nick Ward

Hi
Just wondered if anybody has experienced the same, and if so any
suggestions:
I have a form with several dlookups. I can scroll through the recordset and
they all reflect the values on the corresponding records, however as soon as
I apply a filter to the recordset and then scroll through after exactly 6
records I get the old #name? in all the lookups. If I then clear the filter
it still will fall down after 6 records and will only work properly when I
close the form down and reopen it.

tia

nick
 
What version of Access? What Service Packs, if any, applied to it? What
Service Packs, if any, applied to the Jet database engine? How are your
DLookups used -- in the Control Source of Controls, in code in the Form's
module, ??? Give us enough detail and someone will likely see if they can
reproduce the problem (in a currently-supported version if yours is an older
version).

It might qualify as an "issue" or "product defect" because it certainly
doesn't seem to be something that would fall in the category of "working as
designed".

Larry Linson
Microsoft Access MVP
 
Yes Sorry
Access XP no service packs,
They are used in the control source to total items on a subform. Also after
the 6th recordset when they all return #name? the =now() text box that I
have to show the date does the same but then returns to normal when
scrolling past the 7th recordset.

here's 3 examples of filters that I apply to the form that invoke the above

Public Function filter_firm()
If CurrentProject.AllForms("frm_quote").IsLoaded = True Then
DoCmd.ApplyFilter , "Frm_Quote.FirmBooking=-1 AND
(((Year([eventdate]))=DatePart('yyyy',Now())))"
DoCmd.GoToRecord acForm, "Frm_Quote", acLast
Else: End If
End Function

Public Function filter_Not_firm()
If CurrentProject.AllForms("frm_quote").IsLoaded = True Then
DoCmd.ApplyFilter , "Frm_Quote.wonlost <> 'lost' AND Frm_Quote.FirmBooking=0
"
DoCmd.GoToRecord acForm, "Frm_Quote", acLast
Else: End If
End Function

Public Function filter_Not_firm_current()
If CurrentProject.AllForms("frm_quote").IsLoaded = True Then
DoCmd.ApplyFilter , "Frm_Quote.wonlost <> 'lost' AND Frm_Quote.FirmBooking=0
AND (((Year([eventdate]))=DatePart('yyyy',Now()))) "
DoCmd.GoToRecord acForm, "Frm_Quote", acLast
Else: End If
End Function
 
I don't know if they'll fix this problem, but there are two SPs for Access
2002, and you should obtain and apply them. If you have a high-speed
connection, in the Windows Update window, on the menu there is Office
Update. If you have a dialup connection, take a look at
http://www.microsoft.com/downloads and you should find information on
ordering CDs for the Service Packs.

They don't issue those just for the fun of giving away CDs.

Larry Linson
Microsoft Office MVP


Nick Ward said:
Yes Sorry
Access XP no service packs,
They are used in the control source to total items on a subform. Also after
the 6th recordset when they all return #name? the =now() text box that I
have to show the date does the same but then returns to normal when
scrolling past the 7th recordset.

here's 3 examples of filters that I apply to the form that invoke the above

Public Function filter_firm()
If CurrentProject.AllForms("frm_quote").IsLoaded = True Then
DoCmd.ApplyFilter , "Frm_Quote.FirmBooking=-1 AND
(((Year([eventdate]))=DatePart('yyyy',Now())))"
DoCmd.GoToRecord acForm, "Frm_Quote", acLast
Else: End If
End Function

Public Function filter_Not_firm()
If CurrentProject.AllForms("frm_quote").IsLoaded = True Then
DoCmd.ApplyFilter , "Frm_Quote.wonlost <> 'lost' AND Frm_Quote.FirmBooking=0
"
DoCmd.GoToRecord acForm, "Frm_Quote", acLast
Else: End If
End Function

Public Function filter_Not_firm_current()
If CurrentProject.AllForms("frm_quote").IsLoaded = True Then
DoCmd.ApplyFilter , "Frm_Quote.wonlost <> 'lost' AND Frm_Quote.FirmBooking=0
AND (((Year([eventdate]))=DatePart('yyyy',Now()))) "
DoCmd.GoToRecord acForm, "Frm_Quote", acLast
Else: End If
End Function



Larry Linson said:
What version of Access? What Service Packs, if any, applied to it? What
Service Packs, if any, applied to the Jet database engine? How are your
DLookups used -- in the Control Source of Controls, in code in the Form's
module, ??? Give us enough detail and someone will likely see if they can
reproduce the problem (in a currently-supported version if yours is an older
version).

It might qualify as an "issue" or "product defect" because it certainly
doesn't seem to be something that would fall in the category of "working as
designed".

Larry Linson
Microsoft Access MVP


recordset
and soon
exactly
when
 
Back
Top