Belirtilen adresdeki mdb dosyasını açıp çalıştırma

[arnavut]

Herkese merhaba,

ofiste kullandığımız programın bir makrosuna küçük bir ilave yapmak istiyorum, ama VB bilgimin yetersizliği yüzünden istediğim komutu ekleyemedim.
Acil yardımınıza ihtiyacım var:

programdaki butonun kodunu açtım ve aşağıdaki gibi;
bu kodun sonuna "C:\Custbal\Create_TXT.mdb" adresindeki programı açıp çalıştıracak bir komut eklemek istiyorum. Bikaç deneme yaptım ama beceremedim

Uygun komutun aşağıdaki kod içinde #msgbox"Şimdi 'Create_TXT.mdb' dosyasını çalıştırabilirsin!"# komutundan hemen önce çalışması gerekiyor.

Nasıl bir komut ile çözebilirim? Yardımlarınız için şimdiden çok teşekkür ederim.

Saygılarımla



Sub Main()
'-----------------------------------------------------------------------
' Get the main system object
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System") ' Gets the system object
If (System is Nothing) Then
Msgbox "Could not create the EXTRA System object. Stopping macro playback."
STOP
End If
Set Sessions = System.Sessions

If (Sessions is Nothing) Then
Msgbox "Could not create the Sessions collection object. Stopping macro playback."
STOP
End If
'--------------------------------------------------------------------
' Set the default wait timeout value
g_HostSettleTime = 300 ' milliseconds

OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If

' Get the necessary Session Object
Dim Sess0 As Object
Set Sess0 = System.ActiveSession
If (Sess0 is Nothing) Then
Msgbox "Could not create the Session object. Stopping macro playback."
STOP
End If
If Not Sess0.Visible Then Sess0.Visible = TRUE
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

' This section of code contains the recorded events
Sess0.Screen.Sendkeys("20<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("415<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("85<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Pf3>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Pf3>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

System.TimeoutValue = OldSystemTimeout

msgbox"Şimdi 'Create_TXT.mdb' dosyasını çalıştırabilirsin!"

End Sub

 

[mancubus]

access forumunda konu açtığınıza göre makro access'ten alınma.

access uygulaması açık iken başka bir access veritabanı mı açmak istiyorsunuz?

 

[arnavut]

buton'a tıklandığında yukarıda yazılı kod çalışmaya başlıyor. bu kodun aynı zamanda başka bir access programını da çalıştırmasını istiyorum. Bunu yapacak komutu bulamıyorum.

 

[mancubus]

aşağıdaki gibi bir şey olabilir.

Sub mdbdos()

Dim appAcc As Access.Application
Dim sMDB As String

sMDB = "C:\Custbal\Create_TXT.mdb"
Set appAcc = CreateObject("Access.Application")

With appAcc
    .OpenCurrentDatabase sMDB
    .Visible = True
    .RunCommand acCmdAppMaximize
End With

End Sub

 

[arnavut]

merhaba
ilginiz için teşekkürler sayın mancubus.
verdiğiniz kodu, ilave ettim ama hata verdi.

 

[mancubus]

hata mesajı nedir?
makro'nun hangi satırı sarıya boyanıyor?

 

[akd]

Ben bir menü çubuğu yaptım,
aşağıdaki kodla yapıyorum bu işi
kodu kendinize göre degiştirin.
Dim varRet
varRet = fHandleFile("I:\AKD_MAASLAR\2011_MAAŞLAR\İŞÇİ\ISCI-2011.xls", WIN_NORMAL)