message box not appearing

[depcdivr]

I was working on some code with some help from you guys. I have the code running now but when I search for an item if its not there I want to display a message box announcing it. When I run the code normally it skips the msgbox code(or displays it someplace not visible to the user). IF I put a stop command in, the code will execute perfectly and display the msgbox as requested. If I run it normally it skips it again.

I am totally baffled by this one.

Private Sub barcode_Change()
    Dim Found           As Range
    Dim Search          As String
    Dim ws              As Worksheet
    Dim SearchColumn    As Variant
    
    Search = Me.Barcode.Value
    If Len(Search) <> 13 Then Exit Sub
    
    Set ws = ThisWorkbook.Worksheets("Physical Inventory List")
    
    SearchColumn = 5
    
    Set Found = ws.Columns(SearchColumn).Find(Search, LookIn:=xlValues, lookat:=xlWhole)
    If Not Found Is Nothing Then
        
        With Found

            .Offset(, 2).Value = Found.Offset(, 2) + Me.qty.Value
            Confirmation.Caption = Found.Offset(, -3) & " has been recorded in inventory"
            inv_count.Caption = "Counted " & Found.Offset(, 2) & "     Inventory " & Found.Offset(, 1)
        End With
        
      Else

'this is the msgbox that I want to display if the barcode is not found in the search.
        res = MsgBox("Barcode " & Search & " Not Found.  " & Chr(10) & "Try again", 48, "Not Found")
        
    End If
    
Me.Barcode.Value = ""
Me.Barcode.SetFocus
   
    
End Sub

 

[Fluff]

when I scan a number into one of the text boxes it calls and runs this program.

It maybe that the barcode scanner has focus, hence you don't see the message box.

 

[depcdivr]

It maybe that the barcode scanner has focus, hence you don't see the message box.

Here is a link to the file.

Dropbox - File Deleted - Simplify your life

www.dropbox.com

 

[McCITech]

Here is a link to the file.

Dropbox - File Deleted - Simplify your life

www.dropbox.com

I just ran your code and the message box works every time as it is supposed to for me.

I did F8 steps, and used bar code 8018851484955.
Soon as I enter this number, the message box displayed as required, including the bogus bar code.

Maybe try save and close. Then reload your spreadsheet?

 

[depcdivr]

I just ran your code and the message box works every time as it is supposed to for me.

I did F8 steps, and used bar code 8018851484955.
Soon as I enter this number, the message box displayed as required, including the bogus bar code.

Maybe try save and close. Then reload your spreadsheet?

 

[depcdivr]

That is strange. It still wont work on my laptop. Maybe it is something specific with my laptop. I will try it on another computer and see if it has issues or not. Thanks for all of the help

 

[Fluff]

I did F8 steps, and used bar code 8018851484955.

The OP is using a barcode scanner, which is not the same as manually keying something into the textbox.

 

[depcdivr]

I just emailed the file to my co-worker who will be using the program and it work on his laptop. I am not sure why it is not working on mine but honestly as long as it works on his.. LIFE is GOOD. Thanks for all of the head scratching help.

 

[NoSparks]

One thing that I just did notice is that the userform does not set the focus back on the barcode textbox.

because you have the qty text box tab stop set to false there is nowhere for the focus to go that will show.
Change the last part of the code from

Me.Barcode.Value = ""
Me.Barcode.SetFocus

to

    Me.qty.SetFocus

    With Me.Barcode
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
    End With

and see if that is more preferable.