Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations John Tel on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by falcon7a

  1. falcon7a

    NULL date error in VB code for Access

    I am trying to look into an Access table. If certain conditions are met, I want the variable CompactorDate to store the date. The code works fine if the DLookup function returns a date. The program errors out if DLookup returns Null. The IF loop doesn't seem to solve the problem either. The...
  2. falcon7a

    Obtaining and using data from a query table using VB

    have a report in which I would like to display "Yes" if a certain entry exists in a query table. I am using an If loop as shown below. I am getting an error at the line "If qryTempData.EPCStatusDesc = 'Dock Door'. EPCStatusDesc is a field in the query table. How can i get "Yes" to be printed if...
  3. falcon7a

    Querying a query table in a report using VB

    Thanks for your help so far. The query table has been populated using the code that I posted. I understand the query table will only have the text 'dock door' in it. I made it that way just as a test. I however, still don't know to look into the query table and print out "Yes" if the text...
  4. falcon7a

    Querying a query table in a report using VB

    I have a report in which I would like to display "Yes" if a certain entry exists in a query table. I am using an If loop as shown below. I am getting an error at the line If qryTempData.EPCStatusDesc = Dock Door. EPCStatusDesc is a field in the query table. How can i get "Yes" to be printed if...
  5. falcon7a

    Modifying a text box in a report using VB

    I am trying to modify the contents of a report based on the values in a query table that i populate through a form. I tried to do that by the following code in the report: Private Sub Report_Open(Cancel As Integer) Dim Text19 As TextBox If (something) Me.Text19 = Yes Else me.Text19 = No End...

Part and Inventory Search

Back
Top