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
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
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:
hab das dann mit den anderen beiden makros ebenso getan und dann im sub aufgerufen:
danke und gruß
gustH
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