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

 

[depcdivr]

One thing that I just did notice is that the userform does not set the focus back on the barcode textbox. There is nothing that has focus when the msgbox should be on the screen. I can click on the textbox and send another input and it works the focus is gone when the error occurs.

 

[Joe4]

Right now I am only running the code my pressing play in the editor. I am not calling the code from any other location at the moment.

I don't user userforms a lot, but I am not sure if it will work that way, as I don't think it will "capture" your values from the userform since running it that way is not connecting it to your userform (especially your "me" references).

Try running it the way it is intended instead of "pressing play..." and see if that makes a difference.

 

[depcdivr]

I don't user userforms a lot, but I am not sure if it will work that way, as I don't think it will "capture" your values from the userform since running it that way is not connecting it to your userform (especially your "me" references).

Try running it the way it is intended instead of "pressing play..." and see if that makes a difference.

I am only running it directly from the VB editor by either pressing F5 or hitting play from the menu.

 

[depcdivr]

IF I modify my code to add two lines to change the output on the screen within the userform, I can generate a similar message but it still does not generate the msgbox.

   Else
    
           Confirmation.Caption = Barcode & " could not be found."
           inv_count.Caption = "Counted " & "0" & "     Inventory " & "0"

        MsgBox "Barcode " & Barcode & " Not Found.  " & Chr(10) & "Try again", vbOKOnly
        
    End If

 

[Joe4]

I am only running it directly from the VB editor by either pressing F5 or hitting play from the menu.

That is what I mean! I don't think it will work that way!
If it is not being called from the User Form, I don't think the values from the User Form will be captured and it won't work!

 

[depcdivr]

That is what I mean! I don't think it will work that way!
If it is not being called from the User Form, I don't think the values from the User Form will be captured and it won't work!

This part of the program is being called from the user form. Im sorry I misunderstood you. I run the userform from the VBA editor and when I scan a number into one of the text boxes it calls and runs this program.

 

[Joe4]

I don't think there is much more assistance I can offer without having access to the workbook and some dummy data to run it against.

 

[McCITech]

I'm in the same boat.
When I create a mock up of the code, my MsgBox appears every time as it should.
I've run it straight from the worksheet; I've run it from a Userform; I've run it live and I've run it F5 & F8

 

[depcdivr]

I'm in the same boat.
When I create a mock up of the code, my MsgBox appears every time as it should.
I've run it straight from the worksheet; I've run it from a Userform; I've run it live and I've run it F5 & F8

I would be more than happy to share the file with anybody interested. I am not not sure how to share it on this board. I would be happy to email it to anybody if you want to take a look at it. Not sure if I can share my email address here or not so I will wait for confirmation before I do.

 

[McCITech]

I would be more than happy to share the file with anybody interested. I am not not sure how to share it on this board. I would be happy to email it to anybody if you want to take a look at it. Not sure if I can share my email address here or not so I will wait for confirmation before I do.

Put your spreadsheet in a dropbox and share the link to the box here.