Not Like

[Baldeagle]

I need some help in Visual Basic. I want to display a message box if my field 'Code' does not include a 'G'. I have used the following but am getting an error message.


If [Forms]![Enter New Receipts]![Type of Receipt] = 2 And [Forms]![Enter New Receipts]![Code] is Not Like "*G*" Then MsgBox "Do you also need to change the Donor's Code to include 'G'?"
I have also tried using "<> *G*" but that doesn't work either.
What is the right way to describe 'not like' in VB?

[Toyman]

I need some help in Visual Basic. I want to display a message box if my field 'Code' does not include a 'G'. I have used the following but am getting an error message.
If [Forms]![Enter New Receipts]![Type of Receipt] = 2 And [Forms]![Enter New Receipts]![Code] is Not Like "*G*" Then MsgBox "Do you also need to change the Donor's Code to include 'G'?"
I have also tried using "<> *G*" but that doesn't work either.
What is the right way to describe 'not like' in VB?

Try this:
Instr([Forms]![Enter New Receipts]![Code],"G") = 0

'this uses the instring function to look for the postion of "G" in the field. It returns "0" if none is located.

[Baldeagle]

Thanks for the suggestion. Maybe I haven't followed your coding correctly but I am getting a syntax error. The following is the full coding that I have. The first section works OK but the second doesn't.
Private Sub List36_LostFocus()
If [Forms]![Enter New Receipts]![Type of Receipt] = 2 And [Forms]![Enter New Receipts]![GA Dec?] = 0 Then
MsgBox "Is there a Gift Aid Declaration? If so Tick the Gift Aid Declaration box."
End If
InStr([Forms]![Enter New Receipts]![Code], "G") = 0 Then MsgBox "Do you also need to change the Donor's Code to include 'G'?"
End Sub

As I indicated in my first post, I want the second message to appear if there is no 'G' in Code - there can be a variety of possibilities such as 'GJ' 'MGJ' or simply 'G'.
Any further help would be appreciated.

[Toyman]

Thanks for the suggestion. Maybe I haven't followed your coding correctly but I am getting a syntax error. The following is the full coding that I have. The first section works OK but the second doesn't.
Private Sub List36_LostFocus()
If [Forms]![Enter New Receipts]![Type of Receipt] = 2 And [Forms]![Enter New Receipts]![GA Dec?] = 0 Then
MsgBox "Is there a Gift Aid Declaration? If so Tick the Gift Aid Declaration box."
End If
InStr([Forms]![Enter New Receipts]![Code], "G") = 0 Then MsgBox "Do you also need to change the Donor's Code to include 'G'?"
End Sub

As I indicated in my first post, I want the second message to appear if there is no 'G' in Code - there can be a variety of possibilities such as 'GJ' 'MGJ' or simply 'G'.
Any further help would be appreciated.

The inStr function is outside of the if/then statement

[Baldeagle]

Thanks for that. I have put another 'If' at the start of the 'InStr' line and it works for me now.