Snasui Excel Forum

Code: Select all

Private Sub Reconcile()
    Dim Find_ID As Variant
    Dim sTbl As String
    Dim iRow As Long
    
   ' sTbl = Sheet18.Name ÍѹËÅÑ¡
 sTbl = ActiveSheet.Name
    Set Find_ID = Sheets(sTbl).Range("MG:MG").Find(txtBarCode.Text, LookAt:=xlWhole)
    'n  = new item, scan and change to p if found
    'p = waiting to print, change to w if print yet
    'w = waiting to delivery, change to y if found on the second scan
    'y = delivery complete

    
    With lblResult
        If Find_ID Is Nothing Then          'äÁèà¨Í
            .Caption = ""
            .BackColor = &H8000000F
            cPlayer.PlayLost
        Else
            iRow = Find_ID.Row
            Select Case UCase(Sheets(sTbl).Range("A" & iRow).Value)
                Case Is = "P"   'à¨Í áÅÐÂѧäÁèà¤ÂÊè§
                    .Caption = "ÂѧäÁèà¤ÂÊè§- Ã;ÔÁ¾ì" & Range("MH" & iRow)
                    .BackColor = vbGreen
                    'Sheets(sTbl).Range("A" & iRow).Value = "P"          'update to waiting for print
                    'Sheets(sTbl).Range("MH" & iRow).Value = Format(Now, "yymmdd hh-nn-ss")
                    cPlayer.PlayNew

                    
                Case Is = "W"   'waiting to delivery
                    .Caption = "àÃÕºÃéÍ " & Range("d" & iRow)
                    .BackColor = vbYellow
                    Sheets(sTbl).Range("A" & iRow).Value = "Y"          'update to delivery
                    Sheets(sTbl).Range("MH" & iRow).Value = Format(Now, "yymmdd  hh:nn:ss")
                    cPlayer.PlayWait
                
                Case Is = "Y"   'waiting to delivery
               
                    .Caption = "à¤ÂÊè§ä»áÅéÇàÁ×èÍ " & Range("mh" & iRow)
                .BackColor = vbRed
           frmRec!txtBarCode.SetFocus
                 Sheets(sTbl).Range("k" & iRow).Value = InputBox("TRACKING")
               frmRec!txtBarCode.SetFocus
                'Unload Me
                  
                cPlayer.PlayTu
             
                Case Else       'estimate to Y
                
                .Caption = "à¤ÂÊè§ä»áÅéÇàÁ×èÍ " & Range("mh" & iRow)
                .BackColor = vbRed
                'cPlayer.PlayTu
                 'Unload Me
               
               cPlayer.PlayDup
            End Select
        End If
    End With
    
    txtBarCode.SetFocus
    
End Sub