Excel: Access Formular öffnet, nicht bearbeitbar
07.08.2018 14:39:16
Jonas
Mein Ziel ist es über einen Button in meiner Exceltabelle ein Access Formular zu öffnen. Über folgenden Code funktioniert das bis hier hin auch ganz hervorragend:
Private Sub CommandButton7_Click()
Dim oAppAC As Access.Application
Set oAppAC = CreateObject("access.Application")
With oAppAC
.Visible = True
.OpenCurrentDatabase "C:\Users\jalbrecht\Desktop\10.07.18\Stammdatenbank_FE.accdb", True, " _
Passwort"
.DoCmd.OpenForm "frmPersonalAnwesenheit", 4
End With
End Sub
Liebe Grüße
Jonas
Anzeige