Solved Using a wildcard in vb code

[mistyinca1970]

I have discovered that the "*" does not seem to work as a wildcard in my code. I want the graphic to show up for records whose Company begins with "EMD". What is the correct way to express wildcards in vb coding? Thank you,

Private Sub Form_Current()

If (txtCompany = "EMD*") Then
        DoCmd.SetProperty "imgEMD", acPropertyVisible, "-1"
    End If
    If (txtCompany <> "EMD*") Then
        DoCmd.SetProperty "imgEMD", acPropertyVisible, "0"
    End If

End Sub

 

[Isaac]

Like does not "just work" (so to speak), comprehensively, in VBA. But you can use Instr()

 

[MajP]

I want the graphic to show up for records whose Company begins with "EMD"

if left(txtCompany,3) = "EMD" then

 

[mistyinca1970]

if left(txtCompany,3) = "EMD" then

That did it! Many thanks!

 

[MajP]

However you can use like with a wild card in vba
if txtCompany like "EMD*"

Like Operator - Visual Basic

Learn more about: Like Operator (Visual Basic)

docs.microsoft.com

So not sure what @Isaac means by

like does not "just work" (so to speak), comprehensively

I guess that means not as robust as sql.

 

[Isaac]

However you can use like with a wild card in vba
if txtCompany like "EMD*"

Like Operator - Visual Basic

Learn more about: Like Operator (Visual Basic)

docs.microsoft.com

So not sure what @Isaac means by

I guess that means not as robust as sql.

That's a generous assumption, but in this case it meant I was flat-out wrong. I don't think I've used that much, before, if ever. Learned something new today!

So now the OP has three methods - including their first choice