Change Number to Text in Table

[spadasak]

I have a form where I track custody of wood. The client enters a
registration mumber which pulls up the associated company. The numbers are
now alphanumeric and when I changed the table entry from number to text the
form no longer recognizes the either. Here is the code: Any help would be
appreciated.

Private Sub CustodyNumber_AfterUpdate()
Dim CustodyValid As Variant
CustodyValid = DLookup("CustodyName", "ChainOfCustody", "CustodyNumber = " &
CustodyNumber)
If IsNull(CustodyValid) Then
MsgBox "Invalid Custody Number, Certification denied"
check2.Value = False
CustodyName.Value = ""
Call cmdOK_Click
Else
CustodyName.Value = CustodyValid
End If
End Sub

 

[Dennis]

Now that the CustodyNumber is alphanumeric, you need to put single quotes
around it like so
CustodyValid = DLookup("CustodyName", "ChainOfCustody", "CustodyNumber = '" &
CustodyNumber & "'")

 

[ruralguy via AccessMonster.com]

Here's a link that should explain the problem:
http://www.mvps.org/access/general/gen0018.htm

 

[spadasak]

That fixed my issue, Thank You very much!

Here's a link that should explain the problem:
http://www.mvps.org/access/general/gen0018.htm

I have a form where I track custody of wood. The client enters a
registration mumber which pulls up the associated company. The numbers are

[quoted text clipped - 15 lines]

End If
End Sub

 

[ruralguy via AccessMonster.com]

Glad we could help.

That fixed my issue, Thank You very much!

Here's a link that should explain the problem:
http://www.mvps.org/access/general/gen0018.htm

[quoted text clipped - 4 lines]