Excel Userformundan access formunu açan kodlarda hata

[İsmail Küçükşengün]

Merhaba;

Excel userformuna koyduğum Toolbarın buton menülerine;

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
On Error Resume Next
Select Case ButtonMenu.Key
'GENEL KAYITLAR BÖLÜMÜ
Case "Genel 1"
     '=============================
     On Error Resume Next
    
    Buro.Show
     '=============================
Case "Genel 2"
     '=============================
    'KODLAR BU ALANA YAZILACAK
     '=============================
Case "Genel 3"
     '=============================
      On Error Resume Next
   
   Dim myaccess As Object, MyDosya As String
    Set myaccess = CreateObject("Access.Application")
    MyDosya = ActiveWorkbook.Path & "\deneme.mdb"
    myaccess.OpenCurrentDatabase MyDosya
    myaccess.Application.DoCmd.OpenForm "AVUKATLAR"
    myaccess.Visible = False
    Set myaccess = Nothing
     '=============================
Case "Genel 4"
     '=============================
   On Error Resume Next
   
   Dim myaccess As Object, MyDosya As String
    Set myaccess = CreateObject("Access.Application")
    MyDosya = ActiveWorkbook.Path & "\deneme.mdb"
    myaccess.OpenCurrentDatabase MyDosya
    myaccess.Application.DoCmd.OpenForm "MÜVEKKİLLER"
    myaccess.Visible = False
    Set myaccess = Nothing
     '=============================
Case "Genel 5"
     '=============================
       On Error Resume Next
   
 Dim myaccess As Object, MyDosya As String
    Set myaccess = CreateObject("Access.Application")
    MyDosya = ActiveWorkbook.Path & "\deneme.mdb"
    myaccess.OpenCurrentDatabase MyDosya
    myaccess.Application.DoCmd.OpenForm "DavalıBorclular"
    myaccess.Visible = False
    Set myaccess = Nothing
     '=============================

Kodlarını yazdım.

Case "Genel 3" için ilk kodu yazdığımda, istenen access formu açıldı.

Case "Genel 4" için de ilgili kodu yazdığımda ise, ne genel 2 için yazdığım ve ne de genel 3 için yazdığım kodlar çalışmayıp,

2. access formunu açmak için yazdığım koddaki

myaccess As Object

kısmı hata veriyor.

Yani tek bir kod yazdığımda ilgli access formu açlıyor, fakat ikinci bir access formunu açmak için kod yazıldığında hata alıyorum.

Toolbar'ın her bir butonunda 4-5 bölüm var ve çoğu da access formunu açmak için.

Bu hatayı engellemek için kodda ne gibi değişiklik gerekir.

Yardımlarını için Şimdiden teşekkürler.

 

[İsmail Küçükşengün]

Sayın Üstadlarım.

Sorun Güncel.

 

[İsmail Küçükşengün]

Sorunum Vedat elçi tarafından çözülmüştür:

2. access formu için:

Dim myaccess1 As Object, MyDosya1 As String

yazınca oldu.

Teşekkürler.