Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Aktion ist fehlgeschlagen - Fenster unterdrücken





Frage

Hallo liebe Helfer, gibt es eine Möglichkeit per VBA das "Aktion ist fehlgeschlagen"-Fenster zu unterdrücken? Dieses kommt bei mir z.B. hier zustande, wenn die Tabellen nicht vorhanden sind: --------------------------------------------------------------------------------------- Private Sub oeffnen_Click() On Error GoTo Fehler_oeffnen_Click DoCmd.SetWarnings False If [Form_Reichweite].ComboBox1.Value = "rmniwe10" Then Dim stDocName1 As String stDocName1 = "rmniwe10oeffnen" DoCmd.RunMacro stDocName1 ElseIf [Form_Reichweite].ComboBox1.Value = "rmniwe90" Then Dim stDocName2 As String stDocName2 = "rmniwe90oeffnen" DoCmd.RunMacro stDocName2 ElseIf [Form_Reichweite].ComboBox1.Value = "zmml037" Then Dim stDocName3 As String stDocName3 = "zmml0037oeffnen" DoCmd.RunMacro stDocName3 End If DoCmd.SetWarnings True Exit_oeffnen_Click: DoCmd.SetWarnings True Exit Sub Fehler_oeffnen_Click: MsgBox "Bitte importieren Sie zuerst die Textdateien!" Resume Exit_oeffnen_Click End Sub --------------------------------------------------------------------------------------- "DoCmd.SetWarnings False" tut dies leider nicht. Ich möchte gerne etwas benutzerfreundlicher werden, denn mit dem Aktion ist fehlgeschlagen kann der DAU nichts anfangen... Ich danke euch schonmal für Ideen :-) Grüße GustH

Antwort 1 von GustH

Ich sollte vllt noch dazu sagen, dass die Makros, die aufgerufen werden, eine Tabelle öffnen. Und wenn diese dann nicht vorhanden ist, kommt das "Aktion ist fehlgeschlagen"-Fenster.

Grüße

Antwort 2 von Marie

konvertier mal dein makro in vba und poste den code hier rein, dann prüfen wir zuerst, ob die Tabelle vorhanden ist und machen eine Schleife, dass die Tabelle nur dann geöffnet wird, wenn sie voehanden ist, wenn nicht bekommt der Kunde eine Meldung, dass es die Tabelle nicht gibt.

Makros benutzt man sowieso nicht wirklich.

Gruß marie

Antwort 3 von GustH

danke für die schnelle und hilfreiche antwort marie... so klappt es einwandfrei :-)

hab das makro konvertiert und angepasst:

Option Compare Database

'------------------------------------------------------------
' rmniwe10oeffnen
'
'---------------------------------------------------------------------------------------
Function rmniwe10oeffnen()
On Error GoTo rmniwe10oeffnen_Err

    ' Öffnet die Tabelle rmniwe10
    DoCmd.OpenTable "rmniwe10", acViewNormal, acEdit


rmniwe10oeffnen_Exit:
    Exit Function

rmniwe10oeffnen_Err:
    MsgBox Error$ & " Importieren Sie zuerst die Textdateien!"
    Resume rmniwe10oeffnen_Exit

End Function


hab das dann mit den anderen beiden makros ebenso getan und dann im sub aufgerufen:

Private Sub oeffnen_Click()
On Error GoTo Fehler_oeffnen_Click

DoCmd.SetWarnings False

If [Form_Reichweite].ComboBox1.Value = "rmniwe10" Then
    
        'Dim stDocName1 As String

        'stDocName1 = "rmniwe10oeffnen"
        'DoCmd.RunMacro stDocName1

        Call [Tabrmniwe10oeffnen].rmniwe10oeffnen
        
ElseIf [Form_Reichweite].ComboBox1.Value = "rmniwe90" Then
    
        'Dim stDocName2 As String

        'stDocName2 = "rmniwe90oeffnen"
        'DoCmd.RunMacro stDocName2
        
        Call [Tabrmniwe90oeffnen].rmniwe90oeffnen
        
ElseIf [Form_Reichweite].ComboBox1.Value = "zmml037" Then
    
        'Dim stDocName3 As String

        'stDocName3 = "zmml037oeffnen"
        'DoCmd.RunMacro stDocName3
        
        Call [Tabzmml037oeffnen].zmml037oeffnen
    
End If
    
DoCmd.SetWarnings True
    
Exit_oeffnen_Click:
    DoCmd.SetWarnings True
    Exit Sub

Fehler_oeffnen_Click:
    Resume Exit_oeffnen_Click
  
End Sub


danke und gruß

gustH

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: