Akute Probleme mit Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
04.12.2019 08:43:45
DaWe
ich habe ein kleines Programm geschrieben (eher mit Teilen dieses Forum gepuzzelt - also schon _
mal Dank für dieses Medium) Es ist eine Datei zur Erfassung von Ein- und Ausgang von Artikeln. Dies erfolgt mit einem Handscanner der nach jedem erfolgtem Scan [Enter] auslöst. Somit habe ich also alle nötigen TextBoxen mit der Funktion -
"Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)" - _
ausgestattet.
Dies hat Tage lang hervorragend funktioniert - jedoch seit gestern bekomme ich unmittelbar wenn _
in der TextBox etwas geschrieben wird diesen Fehler:
Es erscheint keine Fehlermeldung, die Ansicht springt in den Debugger und erst nach Betätigen _
von "F8" kommt eine MsgBox (Keine übliches Fehler Dialogfeld) mit dem Hinweis Bibliothek nicht gefunden und springt mit der Markierung entweder auf 1Zeile oder auf Do While TRIM
Hier ein Auszug aus meinen Codes
'ANZAHL EINGABE FELD Ablauf nach Enter
Private Sub TB_P0_AnzahlNeu_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As _
Integer)
If KeyCode = vbKeyReturn Then
lZeile = 2 _
_
_
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Text)) ""
If TB_P0_AnzahlNeu.Text = "" Then
MsgBox "Anzahl Eingeben" & vbNewLine & "Artikel erneut scanen und diesmal die _
_
_
Anzahl nicht
vergessen.", 48
Label_P0_Anzahl.Visible = False
Label_P0_EAN.Visible = True
Exit Do
ElseIf TB_P0_AnzahlNeu.Text > 50 Then
MsgBox "Es sind maximal 50 St?ck hinzuzuf?gen." & vbNewLine & "Artikel erneut _
_
_
scanen und
diesmal die Anzahl richtig angeben.", 48
Label_P0_Anzahl.Visible = False
Label_P0_EAN.Visible = True
Exit Do
ElseIf TB_P0_EAN.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Text)) Then
'TextBoxen f?llen
TB_P0_EAN = Trim(CStr(Tabelle1.Cells(lZeile, 1).Text))
TB_P0_Bezeichnung = Tabelle1.Cells(lZeile, 6).Text
TB_P0_Hersteller = Tabelle1.Cells(lZeile, 5).Text
TB_P0_Fach = Tabelle1.Cells(lZeile, 7).Text
TB_P0_AnzahlIst = Tabelle1.Cells(lZeile, 3).Value
Tabelle1.Cells(lZeile, 3).Value = TB_P0_AnzahlIst.Value * 1 + TB_P0_AnzahlNeu. _
_
_
Value * 1
TB_P0_AnzahlIst = Tabelle1.Cells(lZeile, 3).Value
Label_P0_Anzahl.Visible = False
Label_P0_EAN.Visible = True
Exit Do
End If
lZeile = lZeile + 1
Loop
TB_P0_AnzahlNeu = ""
TB_P0_EAN = ""
Me.TB_P0_EAN.SetFocus
End If
End Sub
Ich werde gleich mal versuchen eine Datei hoch zu laden, dies ist mein erster Beitrag mus mich noch orientieren .