instr help [resolved]

[ice_531]

' still workin on this function :(
Private Function CheckmyList()
Dim i As Integer
Dim mystr As String
mystr = Text6
For i = 0 To List1.ListCount - 1
If InStr(mystr, List1.List(i)) Then
SEND "The command has been sent, " & mystr & "!"
Else
SEND "Sorry, " & mystr & " but you do not have access!"
End If
Next
End Function

well i have a listbox and im searching thru it.... now see if mystr is in the listbox then it will send "the command has been send" ...this part worx.. but it never sends the "sorry u dont have access" part .. even when mystr isnt in the list

what did i do wrong?

[MartinLiss]

I believe you have inStr backward.

If InStr(List1.List(i),mystr) Then

[ice_531]

Still doesnt send the other one ... if mystr isnt in list1.

I thought the way i had it was saying...

" if we can find mystr in the list then we send this but if we cant then we will send THAT"

but instead its being mean and saying...

"If we can find mystr in the list then we send this but if we cant o well...."

[MartinLiss]

OK, try something like this which works for me.

Option Explicit
 
Private Sub Command1_Click()
 
    CheckmyList
    
End Sub
 
Private Sub Form_Load()
List1.AddItem "I am Sam I am"
List1.AddItem "And Joe is here"
End Sub
 
Private Function CheckmyList()
Dim i As Integer
Dim mystr As String
mystr = Text6
For i = 0 To List1.ListCount - 1
    If InStr(UCase(List1.List(i)), UCase(mystr)) Then
        MsgBox "The command has been sent, " & mystr & "!"
        Exit For
    Else
        MsgBox "Sorry, " & mystr & " but you do not have access!"
        Exit For
    End If
Next
End Function

[ice_531]

Well i tried a new project w/ that code and THAT works. but in my current project it seems to not work still.

i dunno what in my code is making it ignore sending after else. i can just make another function and have it check by:
if not instr(blah,blah1.list(i)) then
send the other

?

[MartinLiss]

Please show your code as you have it now.

[ice_531]

' still workin on this function :(
Private Function CheckmyList()
Dim i As Integer
Dim mystr As String
mystr = Text6
For i = 0 To List1.ListCount - 1
If InStr(UCase(List1.List(i)), UCase(mystr)) Then
SEND "The command has been executed for you, " & mystr & "!"
Exit For
Else
SEND "Sorry, " & mystr & " but you do not have access to this command!"
Exit For
End If
Next
End Function

[MartinLiss]

Nevermind, my mistake.

Private Function CheckmyList()
Dim i As Integer
Dim mystr As String
Dim bFound As Boolean
mystr = Text6
For i = 0 To List1.ListCount - 1
    If InStr(UCase(List1.List(i)), UCase(mystr)) Then
        MsgBox "The command has been sent, " & mystr & "!"
        bFound = True
        Exit For
    End If
Next
If Not bFound Then
    MsgBox "Sorry, " & mystr & " but you do not have access!"
End If
End Function

[ice_531]

Wee. it worx fine now!

Thanks Martin