Butona veritabanı açtırma

[perisanoglu]

Bir form üzerine konacak butonla ikinci bir access açtırılabilirmi...bunu butona köprü ekleyerek yaptım ama açılışta güvenlik mesaj kutusu açılıyor...yardımlarınız için şimdiden teşekkürler..

 

[karaayhan]

Private Sub Command1_Click()
Call DisplayForm
End Sub

Sub DisplayForm()

Dim strDB As String

' Initialize string to database path.
Const strConPathToSamples = "C:\Documents and Settings\esrefigit\Desktop\access\"

strDB = strConPathToSamples & "deneme.mdb"
' Create new instance of Microsoft Access.
Set appAccess = _
CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strDB
' Open Orders form.
appAccess.DoCmd.OpenForm "PERSONEL"
End Sub"

 

[Taruz]

Merhaba..

Access ve başka uygulamaları bu kodla da açabilirsiniz..

Application.FollowHyperlink "Dosyanızın yolu"

Dosyanızın yolunu form üzerindeki bir metin kutusuna ekleyip, kodda da bu kutunun adını belirtirseniz daha da kolay olur..