Access-o-Mania

Access-Forum (Deutsch/German) => Access-Hilfe => Thema gestartet von: MaTiUrTi am Oktober 25, 2019, 20:51:57

Titel: Zugriff von einer DB auf ein Formular einer anderen DB
Beitrag von: MaTiUrTi am Oktober 25, 2019, 20:51:57
Hi,
Ich habe eine Anwendung (Access 2007 / Win 10 pro 64) aus der ich ein Formular aus einer anderen DB aufrufe. Ich habe diese Funktion nun schon eine längere Zeit nicht mehr benutzt. Es hat definitiv aber funktioniert. Seit neuestem hängt sich aber Access bei dieser Funktion auf und kann nur hart geschlossen werden.
Wenn ich aber in der AutoExec-Funktion der aufgerufenen DB testweise eine MessageBox einbaue (mit vbOKonly), läuft die Anwendung wie gewünscht (Außer dem Klick in der Messagebox).

Hier die Aufruf-Funktion :
Public Function Form_in_AET(ByVal FrmName As String)     

Dim DB_AET As String
Dim appAET As Access.Application

On Error GoTo Err_Form_in_AET

   DB_AET = "Pfad\MeineDB.accdb"
   
   Set appAET = New Access.Application
   
   Set appAET = CreateObject("Access.Application")
   
   appAET.OpenCurrentDatabase DB_AET, False

   appAET.DoCmd.OpenForm FrmName, , , , , acDialog

   appAET.CloseCurrentDatabase
   
   Set appAET = Nothing
   
Exit Function

Resume
Err_Form_in_AET:
   MsgBox (Err.Number & vbCrLf & Error)

End Function


Wenn ich das Programm dann abbreche kommt eine Fehlermeldung : Automatisierunsfehler : Ein Aufruf im Messagefilter ist unzulässig.

Ich steh auf dem Schlauch. Hoffentlich kann jemand helfen.
Grüße
Titel: Re: Zugriff von einer DB auf ein Formular einer anderen DB
Beitrag von: silentwolf am Oktober 26, 2019, 07:37:22
Hallo,

sehe Dir diesen Beitrag mal an.

http://www.office-loesung.de/ftopic510039_0_0_asc.php
Titel: Re: Zugriff von einer DB auf ein Formular einer anderen DB
Beitrag von: MaTiUrTi am Oktober 26, 2019, 17:59:29
Hi, die Möglichkeit über Verweise die Datenbanken zu verbinden scheidet in meinem Fall aus.

Aber Gott sei Dank hilft es oft, wenn man eine leere Datenbank erzeugt und alle Objekte importiert.
Bin auf diese eigentlich naheliegende Lösung nicht gekommen. Nachdem ich das gemacht habe, ist der Fehler behoben.

Trotzdem Danke für Deinen Vorschlag
Grüße