DoCmd.Close acQuitSaveAll, "FrmLogin", acSaveNo
DoCmd.OpenForm "MainForm"
DoCmd.Close acQuitSaveAll, "FrmLogin", acSaveNo
----- Original Message -----From: cepwahyuSent: Wednesday, May 23, 2012 1:21 PMSubject: RE: [belajar-access] Buka database dengan VBAKang Opi berikut kode VBA-nya yg saya pake:
Di Form database A pada TombBukaDb saya masukan
Private Sub Command6_Click()
Dim ms_access As String, file1 As String
ms_access = """C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE"" "
file1 = """D:\D.CW\Access\Lab\Database B.accde"""
Call Shell(ms_access & file1, vbNormal)
End Sub
Setelah di klik terbuka pan tuh database B dan munculah Form Login, pada tombol Login saya masukan :
Private Sub cmdLogin_Click()
'Cek user name (combo box)
If IsNull(Me.CboUsername) Or Me.CboUsername = "" Then
MsgBox "Please Insert UserName", vbOKOnly, "UserName Requirenment"
Me.CboUsername.SetFocus
Exit Sub
End If
'Cek Password
If IsNull(Me.TxtPassword) Or Me.TxtPassword = "" Then
MsgBox "Please Insert Your PASSWORD", vbOKOnly, "Required PASSWORD"
Me.TxtPassword.SetFocus
Exit Sub
End If
If Me.TxtPassword.Value = DLookup("Password", "tblLogin", "[Nomor]= " & Me.CboUsername.Value) Then
NomorMy = Me.CboUsername.Value
pemakaiAplikasi = CboUsername.Column(1)
DoCmd.Close acQuitSaveAll, "FrmLogin", acSaveNo
DoCmd.Close acDefault
DoCmd.OpenForm "MainForm"
Else
MsgBox "password is incorrect, please type the correct password", vbOKOnly, "invalid entry"
Me.TxtPassword.SetFocus
End If
End Sub
Stelah diklik tombolnya tertutup lah form login-nya tapi MainForm-nya tidak terbuka.
Anehnya...(tidak pake bin ajaib...hehehe).....kalo saya buka database B tsb secara biasa (maksudnya tanpa melalui tombol yg ada di Form database A) bisa terbuka dan lancar jaya.
Kira2 apa gerangan yg terjadi?
Best Regards
CW
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Sofyan Efendi
Sent: 23 Mei 2012 11:44
To: belajar-access@yahoogroups.com
Subject: Re: [belajar-access] Buka database dengan VBA
Dear Kang Cecep, iya yg kurang adalah Kang Cecep tidak kirim kodenya, he..he..
Wah Kang, saya ngga bisa baca kode VBA di PC nya, tapi kemungkinan ada kesalahan.
Coba saja prosedurnya diganti pada event on click form login, misal:
DoCmd.OpenForm "frmMainMenu"
DoCmd.Close acForm, "frmLogin"
Jadi yg pertama, buka dulu form Main Menu, baru di close form Login nya.
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/----- Original Message -----
From: cepwahyu
Sent: Wednesday, May 23, 2012 11:15 AM
Subject: RE: [belajar-access] Buka database dengan VBA
Cara ini bisa tapi belum berhasil sempurna kang..
Masalahnya begini......jeng...jeng....(biar aga serem dikit):
Pada database A ada sebuah Form dan pada form tsb ada TombolBukaDb yg akan membuka database lain dan coding dari kang opi saya tempatkan di Event on Click.
Urutan buka di database B (database yg akan saya buka dari databes A) adalah sbb:
Form Login (Username dan Password) kemudian form login nutup dan MainForm terbuka apabila username dan passwor cocok.
Nah ketika saya klik TombolBukaDb di Form database A muncul tuh form login database B kemudian saya masukan username dan passwordnya tapi ketika saya enter MainForm yg seharusnya terbuka tidak terbuka tuh kang. Apa ada yg kurang kang codingnya?
Best Regards
CW
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Sofyan Efendi
Sent: 23 Mei 2012 9:18
To: belajar-access@yahoogroups.com
Subject: Re: [belajar-access] Buka database dengan VBA
Halo Kang Cecep
dim ms_access as string, file1 as string
ms_access = """C:\Program Files\Office2K\Office\MSACCESS.EXE"" "
file1 = """D:\opi\Access\db1.mdb"""
Call Shell(ms_access & file1, vbnormal)
maap belum saya coba, tapi kira2 seperti itu ya Kang ...
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/----- Original Message -----
From: cepwahyu
Sent: Wednesday, May 23, 2012 8:12 AM
Subject: RE: [belajar-access] Buka database dengan VBA
Membuka file ACCDB/MDB lain kang
Best Regards
CW
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Sofyan Efendi
Sent: 23 Mei 2012 8:09
To: belajar-access@yahoogroups.com
Subject: Re: [belajar-access] Buka database dengan VBA
Dear Kang Cecep, maksudnya membuka file ACCDB/MDB atau membuka object di dalam file ACCDB/MDB tsb ya?
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/----- Original Message -----
From: cecep
Sent: Tuesday, May 22, 2012 7:50 PM
Subject: [belajar-access] Buka database dengan VBA
Hallo para access mania
Bagaiman caranya membuka database lain dengan VBA?
Misalkan sya punya sebuah Form dan didalam form tsb saya buat tombol untuk membuka file database lain.
Best Regards
CW
Tidak ada komentar:
Posting Komentar