AW: VBA-Excel hängt sich auf
05.07.2019 10:53:01
Tobias
Hallo Hansueli,
hier die anderen Prozeduren
Public Sub LagerPrüfen()
Dim i As Integer
Dim Lagername As String
Dim Knopf As String
Dim SQL_String As String
Dim Lagerzeit As Date
On Error GoTo ErrH:
For i = 1 To 43
Knopf = "LagerButton" & i
Lagername = "Lager" & i
SQL_String = "SELECT Auftrag FROM Wabenregal WHERE PlatzNr = '" & i & "';"
Auftragsnummer = SQL_RFID_Abfrage(SQL_String)
SQL_String = "SELECT Lagerzeit FROM Wabenregal WHERE PlatzNr = '" & i & "';"
If Not IsNull(Auftragsnummer) Then
Lagerzeit = SQL_RFID_Abfrage(SQL_String)
End If
If IsNull(Auftragsnummer) Then
Worksheets("Interface").OLEObjects(Knopf).Object.BackColor = vbCyan
ElseIf Lagerzeit 0 Then
Msg = "Error # " & Str(Err.Number) & " was generated by " & Err.Source & Chr(13) & "Error Line: _
" & Erl & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
End If
Resume Next
End Sub
Sub Interface_setBack()
Dim i As Byte
For i = 2 To 7
Dim ButtonName As String
Dim Feldname As String
ButtonName = "Button_Dokument" & i
Feldname = "Status_Dokument" & i
Worksheets("Interface").OLEObjects(ButtonName).Object.Caption = ""
Worksheets("Interface").OLEObjects(ButtonName).Visible = False
Worksheets("Interface").OLEObjects(Feldname).Object.text = ""
Worksheets("Interface").OLEObjects(Feldname).Visible = False
Next
End Sub
Public Function Fill_Buttons(Lagernummer As Variant)
On Error GoTo ErrH:
Worksheets("Interface").Button_Dokument1.Visible = True
Worksheets("Interface").Button_Dokument1.Caption = "Lager " & Lagernummer(0)
Worksheets("Interface").CommandButton2.Visible = True
Worksheets("Interface").CommandButton2.Caption = "Lager " & Lagernummer(1)
Worksheets("Interface").CommandButton3.Visible = True
Worksheets("Interface").CommandButton3.Caption = "Lager " & Lagernummer(2)
Exit Function
ErrH:
If Err.Number 0 Then
Msg = "Error # " & Str(Err.Number) & " was generated by " & Err.Source & Chr(13) & "Error Line: _
" & Erl & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
End If
Resume Next
End Function
Vielleicht findest du hier was.
Was ist mit Commit gemeint? Bisher haben alle Datenbankaktionen funktioniert.
Alles funktioniert einwandfrei. Wenn ich aber die Prozeduren in Dauerschleife laufen lasse stürzt es nach einer Weile ab.
Danke schonmal für deine Hilfe.
Grüße
Tobi
