DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Compare Database
Option Explicit
Dim a As Access.Application
Sub deneme()
Set a = Nothing
Set a = New Access.Application
a.OpenCurrentDatabase "c:\belgelerim\db1.mdb"
a.DoCmd.OpenForm "Form1"
a.DoCmd.Maximize
a.Visible = True
End Sub