หลังจากที่คุณเขียนโค๊ด ติดต่อกับฐานข้อมูล โดยฐานข้อมูลตั้งรหัสผ่านไว้ด้วย แล้วนั้น คุณก็สามารถ สร้างไฟล์ของคุณเป็น MDE ได้ ซึ่งผู้ใช้ก็ไม่สามารถที่เข้าไปในมุมมองโค๊ดของคุณได้ หรือ คุณอาจจะกำหนดรหัสผ่าน ในการเข้าไปปรับปรุงแก้ไขโค๊ดของคุณ

แล้วเขียนยังไง ช่วยแนะนำด้วยค่ะ ตัวอย่าง visual basic ที่ไม่มี password database ดังนี้
' Include following in Declarations section of module.
Dim appAccess As Access.Application
Private Sub Form_Load()
Const strConPathToSamples = "c:\test\"

Dim strDB As String

' Initialize string to database path
strDB = strConPathToSamples & "test.mdb"
' Create new instance of Microsoft Access.
Set appAccess = CreateObject("Access.Application.8")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strDB

' Open Orders form.
appaccess.docmd.open form "userlogin"
End Sub

แต่ถ้าใส่ database password เวลา compile แล้ว run program
จะถาม password อยากให้ ผ่านหน้าที่ถามหา password แล้ว ไปเปิด form userlogin (form ใน access เอง) รบกวนใครรู้ช่วยตอบหน่อย

Option Compare Database
Option Explicit

Private db As DAO.Database
Private dbPathDb As DAO.Database
Private rs As DAO.Recordset
Private rsPathDb As DAO.Recordset

'+++++++++++++++++ ติดต่อฐานข้อมูล +++++++++++++++++++
Set dbPathDb = CurrentDb()
Set rsPathDb = dbPathDb.OpenRecordset("select * from tblPathDb")
SourcePath = rsPathDb!PathDb
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase _
(SourcePath, _
False, False, "MS Access;PWD=database")

Set rs = db.OpenRecordset("tblStudent")


'ให้ tblPathDb เป็นตารางเก็บ Path ของฐานข้อมูล
'password ฐานข้อมูล คือ :database

ลองแล้วไม่ได้ค่ะ เพราะเวลาเปิด form userlogin เป็น form ที่สร้างใน msaccess จากตัวอย่างที่ถามครั้งแรก ใช้ access.application.8 ถ้าไม่มี database password จะทำงานได้ดี แต่ ไม่ทราบว่าถ้าใส่ password จะเปิด ไม่ได้ รบกวนอีกครั้ง หรือไม่ก็ขอ code ที่ทำงานได้เลยนะค่ะ จะขอบคุณมาก คิดมาหลายวันแล้ว

ลองดูกระทู้ที่ 02417 ครับ แล้วประยุกต์ใช้ดู

code ที่ download ไป error เวลาเรียก db1.mdb ค่ะ เลยยังทำไม่ได้

ไม่ทราบ error อย่างไร.. ผมใช้ Access97 ลองทำดูก็ไม่พบ error อย่างไรนะครับ
1. ให้ Extract zip file ออกมาก่อนนะครับ
2. ถ้าใช้ Access ver อื่นๆ อาจจะเจอปัญหาได้
3. ถ้าเป็นเช่นข้อ 2 สามารถหาวิธีแก้ไขได้ใน webboard นี้ ลองค้นหาดูครับ