Wildcards

[ddrew]

Im trying to sort out a wildcard problem that keeps creating a type mismatch.

    If IsNull(Me.Breed) Then
        MsgBox "|Please choose an odour type", vbOKOnly
        Me.btn_Cadaver.SetFocus
    End If
    I[COLOR="Red"]f Me.Breed = "Cadaver (" * ")" Then[/COLOR]
        Me.Breed.SelStart = 9
    Else
        If Me.Breed = "Drugs (" * ")" Then
            Me.Breed.SelStart = 7
        Else
            If Me.Breed = "Explosives (" * ")" Then
                Me.Breed.SelStart = 12
            Else
                If Me.Breed = "Money (" * ")" Then
                    Me.Breed.SelStart = 7
                End If
            End If
        End If
    End If
End Sub

The error occurs on the line in red.

 

[BlueIshDan]

In yellow? Do you want us to be able to help? haha

 

[BlueIshDan]

THere ya go lol.

 

[pr2-eugin]

What value do you actually have in the Me.Breed control? Is it double quoted? If yes, that is your problem !

 

[BlueIshDan]

LIKE Operator

 

[BlueIshDan]

If Me.Breed LIKE "Cadaver (*)" Then

 

[vbaInet]

Or you can use Instr().

 

[ddrew]

If Me.Breed LIKE "Cadaver (*)" Then

Thanks you, what about if I wanted to search for a wildcard after my brackets
I thought that

If Me.Breed Like "Cadaver ()*"

might work but doesn't!

 

[pr2-eugin]

In simple terms what is that you are trying to do here?

 

[BlueIshDan]

Well that's because there are none with just an empty Cadaver () value in the brackets. Maybe Cadaver (*)*

 

[vbaInet]

Thanks you, what about if I wanted to search for a wildcard after my brackets

Like pr2-eugin I'm also confused. What do you mean by "search for a wildcard"?

Do you want to:
* test if some field begins with "Cadaver ()"
OR
* test if a field contains an asterisk (*)?

 

[ddrew]

I'm basically trying to prevent anything being written outside of the brackets. The phrase "Cadaver () is put in the textbox automatically I want the user to be able to add text between the brackets.

From the comments it would appear that I'm going about this the wrong way.

 

[BlueIshDan]

    If IsNull(Me.Breed) Then
        MsgBox "|Please choose an odour type", vbOKOnly
        Me.btn_Cadaver.SetFocus
    End If

    If Me.Breed LIKE "Cadaver (*)" Then
        Me.Breed.SelStart = 9
    ElseIf Me.Breed LIKE "Drugs (*)" Then
        Me.Breed.SelStart = 7
    ElseIf Me.Breed LIKE "Explosives (*)" Then
        Me.Breed.SelStart = 12
    ElseIf Me.Breed LIKE "Money (*)" Then
        Me.Breed.SelStart = 7
    Else: MsgBox "Invalid Input"
    End If

 

[BlueIshDan]

IDEA:
Have two labels on either side of your text box and assign the left one Cadaver ( and the right one )

When retrieving the input join the values together with the text box.

 

[vbaInet]

IDEA:
Have two labels on either side of your text box and assign the left one Cadaver ( and the right one )

When retrieving the input join the values together with the text box.

Just what I was about to suggest, but in place of a label use a Locked texbox. Just so that you can set it's Control Source instead using the Caption property.

 

[ddrew]

    If IsNull(Me.Breed) Then
        MsgBox "|Please choose an odour type", vbOKOnly
        Me.btn_Cadaver.SetFocus
    End If

    If Me.Breed LIKE "Cadaver (*)" Then
        Me.Breed.SelStart = 9
    ElseIf Me.Breed LIKE "Drugs (*)" Then
        Me.Breed.SelStart = 7
    ElseIf Me.Breed LIKE "Explosives (*)" Then
        Me.Breed.SelStart = 12
    ElseIf Me.Breed LIKE "Money (*)" Then
        Me.Breed.SelStart = 7
    Else: MsgBox "Invalid Input"
    End If

What event should this be put on please?
PS Thanks for your patience!

 

[BlueIshDan]

You're asking me? I just tidied the code you gave us and applied the fixes we have gone through. Put it back where you had it lol.

 

[vbaInet]

By the way, you want to put the second block of code in the ELSE part of the first block.

 

[ddrew]

You're asking me? I just tidied the code you gave us and applied the fixes we have gone through. Put it back where you had it lol.

I just put it in the on change event and it didn't work, hence my asking!

 

[ddrew]

By the way, you want to put the second block of code in the ELSE part of the first block.

What second block of code please?