Dlookup turn -1 or 0 into a word

[Simon]

I have a message box that displays if a product is 'Stocked' or 'Not
STocked' but in the databse its stored as -1 or 0

I use the follwoing code
DLookup("StockedItem", "tblProduct", "ProductID=" & Me.ProductID)

So in the message box at the moment it says -1 or 0, how do i code it
to says 'stocked' if -1 and 'Not STocked' if 0

Thanks

 

[Arvin Meyer [MVP]]

Assuming ever field has a value:

If Stocked = -1 Then
MsgBox "Stocked", vbOKOnly
Else
MsgBox "Not Stocked", vbOKOnly
End If

 

[David W. Fenton]

m:

I use the follwoing code
DLookup("StockedItem", "tblProduct", "ProductID=" & Me.ProductID)

So in the message box at the moment it says -1 or 0, how do i code
it to says 'stocked' if -1 and 'Not STocked' if 0

Dim bolStock As Boolean

bolStock = DLookup("StockedItem", "tblProduct", "ProductID=" _
& Me.ProductID)
Debug.Print Format(bolStock,"\Sto\cke\d/\Not \Sto\cke\d")

The escapes (i.e., backslash character) are necessary for all
literal characters that have pre-defined meaning to format
(s=second, c=a particular date format, d=day).