Form Açılış Sorunu (Malzeme Takip Sistemi)

[efeksk]

Arkadaşlar ekte vermiş olduğum Access ile yapılmış olan malzeme takip programı ile ilgili bi sıkıntım var.

Şuan kullandığım şantiye takip sistemi var excel ile yaptığım. UserForm üzerinden bu access de yapılan malzeme takip programındaki "ANAFORM"u excel üzerinden çağırmak istiyorum. elimde bunu yapan bir kod var. ve başka bi access formunu açıyor. ama aynı kodlar malzeme takip programındaki ilgili formu açmak istediğimde hata vermiyor açıyor ama ekranda GÖSTERMİYOR. Alt+Ctrl+Del yaptığımda görev yöneticisinde çalışmakta olduğunu görüyorum ama ortada GÖRÜNEN Bİ FORM yok. Lütfen yardımcı olurmusunuz.

Normalde başka bi access userformunu çalıştırabildiğim kod aşağıdaki gibidir.

On Error Resume Next
       
  Dim myaccess21 As Object, MyDosya21 As String
    Set myaccess = CreateObject("Access.Application")
    MyDosya = ActiveWorkbook.Path & "\depo.mdb"
    myaccess.OpenCurrentDatabase MyDosya
    myaccess.Application.DoCmd.OpenForm "ANAFORM"
    myaccess.Visible = False
    Set myaccess = Nothing

 

[Taruz]

Set Accapp = GetObject(ActiveWorkbook.Path & "\depo.mdb")
Accapp.CurrentProject.Application.DoCmd.OpenForm "ANAFORM"


Merhaba..

Bu komutla dener misiniz?