Çok Önemli ve çok acil

[unsal99]

Bir Access veritabanında yer alan bir formda bulunan butona basınca başka bir access uygulamasını çalıştırmak istiyorum.
Bu konuda bana çok acil yardımcı olabilir misiniz?


Saygılar;
unsal99
:yardim:

 

[modalı]

Sayın unsal99

Kodlar ilişikte:

Private Sub Komut0_Click()
    On Error GoTo ErrHandler
    Dim strDBPath As String
    Dim AccessApp2 As Access.Application
    
    strDBPath = "C:\Vt1.mdb"
    Set AccessApp2 = CreateObject("Access.Application")
    AccessApp2.OpenCurrentDatabase strDBPath
    AccessApp2.DoCmd.OpenForm "AçmakİstediğinizFormAdı"
NormalExit:
 
    Exit Sub
ErrHandler:
    MsgBox "Error # " & Err & " - " & Error
    Resume Next
End Sub

İyi çalışmalar:hey:

 

[unsal99]

Çok önemli ve çok acil

İlk önce cevabınız için çok teşekkür ederim Modalı.
Ben kodu çalıştırdım. Ancak açmak istediğim access uygulamasını açtıramadım.
Error hatası verdi.Hata şöyle;
"Microsoft can't open the database because it is missing,or opened exclusively by another user."

Bu hatayı düzeltmek için ne yapabilirim.
Acil cevaplarınızı bekliyorum.

Saygılar;
unsal99
:yardim:

Kodlar ilişikte:

Private Sub Komut0_Click()
    On Error GoTo ErrHandler
    Dim strDBPath As String
    Dim AccessApp2 As Access.Application
    
    strDBPath = "C:\Vt1.mdb"
    Set AccessApp2 = CreateObject("Access.Application")
    AccessApp2.OpenCurrentDatabase strDBPath
    AccessApp2.DoCmd.OpenForm "AçmakİstediğinizFormAdı"
NormalExit:
 
    Exit Sub
ErrHandler:
    MsgBox "Error # " & Err & " - " & Error
    Resume Next
End Sub

İyi çalışmalar:hey:[/QUOTE]

 

[modalı]

Sayın unsal99,

strDBPath = "C:\Vt1.mdb"

Satırına açmak istediğiniz access uygulamasının adını yoluyla birlikte yazmanız gerekiyor.

AccessApp2.DoCmd.OpenForm "AçmakİstediğinizFormAdı"

Satırına ise açılmasını istediğpiniz formun adını yazmanız gerekiyor.

Elbette böyle çalışmaz

 

[unsal99]

Çok önemli ve çok acil

Teşekkür ederim Modalı.
Aynen dediğiniz gibi yaptım.Koduda şöyle:

Private Sub runaccess_Click()

On Error GoTo ErrHandler


Dim AccessApp2 As Access.Application
Dim strDBPath
Dim strDBPath As String


strDBPath = "H:\Access\anket2.mdb"
Set AccessApp2 = CreateObject("Access.Application")
AccessApp2.OpenCurrentDatabase strDBPath
AccessApp2.DoCmd.OpenForm "Splash_Screen"
NormalExit:

Exit Sub
ErrHandler:
MsgBox "Error # " & Err & " - " & Error
Resume Next
End Sub

Sizce nerede hata yapıyor olabilirim?
Cevabınızı bekleyeceğim.

Saygılar ve iyi çalışmalar;

unsal99

strDBPath = "C:\Vt1.mdb"

Satırına açmak istediğiniz access uygulamasının adını yoluyla birlikte yazmanız gerekiyor.

AccessApp2.DoCmd.OpenForm "AçmakİstediğinizFormAdı"

Satırına ise açılmasını istediğpiniz formun adını yazmanız gerekiyor.

Elbette böyle çalışmaz[/QUOTE]

 

[modalı]

Sayın unsal99,

Hata mesajından anladığım kadarıyla açmak istediğiniz uygulama ya özel kullanımda açılmış yada bulunamıyor diyor.

Bulunduğu yer olan H sizin bilgisayarda olmayabilir mi acaba. Bir ağ adresi gibi mesela.

Kodlar aynı bilgisayardan uygulamaları açıyor. Veya şifreli mi açmak istediğiniz uygulama. Tam olarak belirtmeniz gerekiyor

 

[unsal99]

Çok önemli ve çok acil

Çok teşekkür ederim Modalı.
Sizi de çok bıktırdım ama uygulamayı local ime yani c ye aldığımda da aynı hatayı alıyorum veya uygulamayı açmıyor.

Bu konuda bana yardım edebilirseniz inanın çok sevineceğim.

Saygılar ve iyi çalışmalar;
unsal99

 

[unsal99]

Çok önemli ve çok acil

Çok teşekkür ederim Modalı.
Sizi de çok bıktırdım ama uygulamayı local ime yani c ye aldığımda da aynı hatayı alıyorum veya uygulamayı açmıyor.

Bu konuda bana yardım edebilirseniz inanın çok sevineceğim.

Saygılar ve iyi çalışmalar;
unsal99

:yardim:

 

[gulsum1]

cevap

Private Sub Command1_Click()
Call DisplayForm
End Sub
Sub DisplayForm()
Dim strDB As String
Const strConPathToSamples = "C:\Documents and Settings\esrefigit\Desktop\access\"
strDB = strConPathToSamples & "deneme.mdb"
Set appAccess = _
CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strDB
appAccess.DoCmd.OpenForm "PERSONEL"
End Sub


bu bunun gibi yüzlerce kod access kod deposunda var

 

[modalı]

Sayın gülsüm1,

Yazdığınız kod ile yukarıda benim verdiğim kod arasında ne fark var?

 

[attila52]

Kod Deneme

Sayın gülsüm1,

Yazdığınız kod ile yukarıda benim verdiğim kod arasında ne fark var?

BU SENİN OLMADI DEDİĞİN KOD BUNU BEN SADECE UYGULAMA ÇALIŞTIR DİYE SİHİRBAZA HAZIRLATTIĞIM BUTON.

Private Sub Komut176_Click()
On Error GoTo Err_Komut176_Click

Dim stAppName As String

stAppName = "C:\YATIRIM BİLGİLERİ\YATIRIM.mdb"
Call Shell(stAppName, 1)

Exit_Komut176_Click:
Exit Sub

Err_Komut176_Click:
MsgBox Err.Description
Resume Exit_Komut176_Click

End Sub

BU DA SN MODALININ GÖNDERDİĞİ KOD SEN SADECE PAHT I YUKARIDAKİ KODDAKİ GİBİ YAZDIM BİRDE İLK AÇMAK İSTEDİĞİM FORM ADINI YAZDIM
ÇALIŞIYOR SENİN AÇMAK İSTEDİĞİN DOSYA AYARLARINDA BİR PROBLEM VAR

Private Sub Komut0_Click()
On Error GoTo ErrHandler
Dim strDBPath As String
Dim AccessApp2 As Access.Application

strDBPath = "C:\YATIRIM BİLGİLERİ\YATIRIM.mdb"
Set AccessApp2 = CreateObject("Access.Application")
AccessApp2.OpenCurrentDatabase strDBPath
AccessApp2.DoCmd.OpenForm "MENÜ"
NormalExit:

Exit Sub
ErrHandler:
MsgBox "Error # " & Err & " - " & Error
Resume Next
End Sub

 

[gulsum1]

özür dileyerek

sizin gibi bir ustadan özür dileyerek söze başlamak istiyorum sizn eklediğiniz kod aslında bizim için iyi ama arkadaşlar için biraz fazla çünkü o kod arka planda sanal açar ve ilgili formdan bilgi almak için kullanılılr en azından ben öyle yapıyorum ki sizin gönderdiğiniz ile benimki arasında bir fark yok aynı bven devamını yazacaktım ama o an kapatmak zorunda kaldım o kadar yazdığımı araya gitmesin diyede kaydettim şimdi koyacağaım kod biraz farklı

Option Compare Database
Option Explicit
Dim a As Access.Application
Sub deneme()
Set a = Nothing
Set a = New Access.Application
a.OpenCurrentDatabase "C:\Documents and Settings\esref\Desktop\İDARİ PROGRAMLAR\öğrenci.mdb"
a.DoCmd.OpenForm "DİSKETYAP"
a.DoCmd.Maximize
a.Visible = True
End Sub

Private Sub Command1_Click()
Call deneme
End Sub


bunda tamamenaçılyor isterse diğer özelliklerini ayarlayabilir ne biliyim ekleme modunda falan gibi sayın modalı unutmadan söylemeliyim sizin en büyük hayranınız benim sizin sayenizde bir çok şey öğrendim hakkınızı inkar etmiyorum görüyorsunuzya ben kesinlikle gerektiği yerde iltifat gerektiği yerdede gerekeni söylüyorum

sayın modalı elinizdeki kodları access kod deposuna ekleyerek koyarsanız hem ben hem diğer arkadaşlar yaralanır

 

[unsal99]

Çok önemli ve çok acil(Çok teşekkür ederim.)

Sevgili Modalı ve Gülsüm1;

Her ikinize de çok ama çok teşekkür ediyorum. İnanın bana çok yardımcı oldunuz.


Tekrar teşekkürler;

Saygılar ve iyi çalışmalar;
unsal99