Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / Modules / DAO / VBA / January 2006

Tip: Looking for answers? Try searching our database.

Code not working

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
KSIMMSA - 17 Jan 2006 17:42 GMT
I’m trying to update the coding for a report. I am having problems with the
coding on the form. I have it broken down by certain criteria and they are
all working, but one and I can seem to figure this one out. It looking up a
number field and I am using the following syntax:

If Me!SpecificResultCode = "All" Then
      If stLinkCriteria <> "" Then stLinkCriteria = stLinkCriteria & " and "
      stLinkCriteria = stLinkCriteria & "[dbo_rescodes.ResultCode] = " & ""
& (Trim(Me!SpecificResultCode)) & ""
   End If

Thanks.
Sergey Poberezovskiy - 18 Jan 2006 00:11 GMT
From what I understand, you need to change the first line to

If Me!SpecificResultCode <> "All" Then

HTH

> I’m trying to update the coding for a report. I am having problems with the
> coding on the form. I have it broken down by certain criteria and they are
[quoted text clipped - 8 lines]
>
> Thanks.
KSIMMSA - 18 Jan 2006 21:50 GMT
Thanks, i got it.

If Me!ChooseResultCode = True Then
      If stLinkCriteria <> "" Then stLinkCriteria = stLinkCriteria & " and "
      stLinkCriteria = stLinkCriteria & "[dbo_customers.QuitCode] = " &
((Str(Trim(Me![SpecificResultCode]))))
   End If

> From what I understand, you need to change the first line to
>
[quoted text clipped - 14 lines]
> >
> > Thanks.
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.