Why is this happening: If Me.Combo6.Value = "CLIENT1" Then wont work

[pedie]

Hi, I know that Combo6 value = CLIENT1 withot any spaces...
however it always returns "MsgBox "No " & Me.Combo6.Value
I also tried If trim(Me.Combo6.Value) = "CLIENT1" Then
Still the same...
Is there some reason this can happen in access form?

Thanks for helping.

[/FONT]
[FONT=Courier New]Option Compare Database[/FONT]
[FONT=Courier New]Private Sub Command8_Click()
 If Me.Combo6.Value = "CLIENT1" Then
 MsgBox "Yes " & Me.Combo6.Value
 Else
 MsgBox "No " & Me.Combo6.Value
 End If
End Sub

 

[shg]

Is it always in uppercase?

 

[Montez659]

Is combobox rowsource type = table/query? If so, is the column count more than 1? If that is the case, the actual value of the combobox will be the first column, which might just be the record ID and not the value of "CLIENT1." I have had that happen to me before but not sure why.

 

[boblarson]

Check to make sure it really returns what you think it should. If you are looking for the value, then the bound column needs to be set to the correct column.

Put

Debug.Print Me.Combo6.Value

in the code and then look to see exactly what is coming out (in the Immediate Window).

 

[pedie]

I debug.print and also check the combo source it is from query which is just one field selected. When I run it retuned "CLIENT1" in debug.print as well as msgbox.
No it is not always upper. it is Proper Mostly.

Thanks again

 

[shg]

Maybe

If UCase(Trim(Me.Combo6.Value)) = "CLIENT1" Then

 

[pedie]

Maybe

If UCase(Trim(Me.Combo6.Value)) = "CLIENT1" Then

I think "CLIENT1" and "Client1" should return as true...
May be something is wrong with my combo source....'ll recheck again and then come back: Before going back and changing i thought i should check....thought maybe things are different in access:

Thanks again.

 

[shg]

Text comparison in VBA is case sensitive, unless you specify Option Compare Text at the top of the code module.

 

[boblarson]

Text comparison in VBA is case sensitive, unless you specify Option Compare Text at the top of the code module.

Umm, not that I've ever seen. It is normally Case INsensitive unless you use
Option Compare Binary

 

[shg]

Perhaps it's different in Access.

In the Excel VBE Immediate window,

? "Bob" = "bob"

returns False.