Hi all
this is what I am trying to do,
i am writing a program, which will allow the user to scan barcodes from UPS boxes, when the user wanted to end scanning , the user scan "END", the programe will end.
this is what i have done so far, this is creating end less loop.
Private Sub scanUPC_Exit(Cancel As Integer)
Dim qct As Recordset
Dim upcs As String
Dim LP As String
Set qct = CurrentDb.OpenRecordset("QC:Table")
upcs = Me.scanUPC
LP = Me.ScanLP
Do While Not Me.scanUPC = "END"
qct.AddNew
qct.Fields("UPC") = Me.scanUPC
qct.Fields("LP") = Me.ScanLP
qct.Update
Me.scanUPC = ""
If Me.scanUPC = "END" Then Exit Do
Loop
End Sub
looks like , it code is not waiting for the response, its reads as space..Please help. thanks in advance.