Dim veritabani2 As Access.Application
Set veritabani2 = Nothing
Set veritabani2 = New Access.Application
With veritabani2
.OpenCurrentDatabase "D:\Polsoft\Polsoft.mdb" 'veritabanı adı
.DoCmd.OpenForm "frm_acilis" 'veritabanındaki formun adı
.DoCmd.Maximize
End With
![Çözüldü](images/icons/cozuldu.png)