Ik wil het volgende mogelijk hebben en het lukt me tot heden niet.
Ik gebruik een formulier. Op dit formulier staan meerdere velden waaronder Serialnumber (zie foto).
Serialnumber.jpg
Als ik een serienummer barcode scan met een handscanner komt dit nummer in het veld Serialnumber. Dit veld heeft ook de focus.
Het serienummer dat gescand wordt, wordt met een automatische enter gescand. Dus het veld wordt ook automatisch weer verlaten.
Van deze automatische enter maak ik gebruik om van het gescande serienummer een nieuwe label te printen. Dit lukt allemaal wel.
Echter nu wil ik, nadat de label is geprint, het veld Serialnumber weer leeg wordt gemaakt en wederom de focus krijgt.
Het laaste, dat deze weer de focus krijgt, lukt me niet.
Ik gebruik de volgende code hiervoor:
Private Sub TB_Serial_AfterUpdate()
Sheets("Print").Range("B2").Value = UCase(TB_Serial)
Sheets("Print").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\s199oost\pr347oost", Collate:=True
TB_Serial.Value = ""
TB_Serial.SetFocus
End Sub
Weet iemand hiervoor een oplossing.
Misschien moet ik het wel helemaal anders aanpakken.
Alvast bedankt voor de hulp.
Bookmarks