How do I programatically check if a certain value exists in a tafield? 1

[VBAguy22]

Hello there,
I have a table containing shipping info for products. I need to, using VBA, check if product "X" exists in the PRODUCT field of this table. How do I do it?

For example, given table:

PRODUCT QUANTITY
A 10
B 14
C 9

I need a function to output true if I am looking for product name B and false if i am looking for product D

Thnx

 

[jrbarnett]

Hi,

Just use DLookup and IsNull together:

Function DoesRecordExist (strProduct As String) As Boolean
 DoesRecordExist = Not IsNull (DLookup ("Product", "Products", "Product='" & strProduct & "'"))
End Function

John

 

[VBAguy22]

I ran into another problem trying to run this code:
It worked fine for strings
Now instead of Product field I want to do the same for myDate field, which is of type Date.
Doesnt work anymore