關於 access 的密碼登入視窗

Question

我最近在玩 access 做了一個簡單系統 , 我希望在列印時先輸入密碼
於是我用了兩種方式測試
1.列印表單的 on open 或是 on load 下了
DoCmd.Minimize
DoCmd.OpenForm "身份驗證"
Application.Forms("身份驗證")![登入名稱] = Me.Name
但是我發現雖然"列印表單"視窗縮小了, 但若你去開啟"列印表單", 就可以直接使用, 不需要密碼, 而且"身份驗證"視窗並不會 activate 要用滑鼠點一下"身份驗證"視窗才能輸入密碼

2.在列印按鈕的程式下 DoCmd.OpenForm "身份驗證" 的指令, 但下一列是DoCmd.OpenForm "列印資料"也就自動執行了

我想請問一下, 有沒有更好的方式呢??另外我希望下面的問題也幫我解決一下, 謝謝

1.從一個視窗呼另一個視窗時, 被呼叫的視窗可以一直保持在最上方
2.呼叫的視窗可否傳一個值給被呼叫的視窗, 執行完後, 被呼叫的視窗可以傳回一個值
3.請問一下, 如何在資料庫一開啟時自動執行一個VBA程式
4.請問哪一本 ACCESS 的書比較好??
5.有沒有 ACCESS 的程式設計論壇呢

pop 大大請問
一開啟要執行 vba 要怎麼設定呢??
視窗傳值及傳回值要怎麼做
這兩個解決, 20分就離您很近了

另外我再請問 pop 大, 如何隱藏 資料庫設計的那個視窗??

cabccabc 謝謝您提供資料

Answer 1

希望在列印時先輸入密碼 _直接在按鈕的onclick輸入
Dim FD$
FD = InputBox("請先輸入密碼")
If FD = Cancel Then Exit Sub
If FD <> "" Then
If DLookup("登入名稱", "身份驗證", "登入名稱 = '" & FD & "'") <> "" Then
DoCmd.OpenReport "報表名稱", acNormal
Else: MsgBox "輸入" & FD & "密碼資料錯誤"
End If
Else: MsgBox "密碼資料空白"
End If
FD = ""
ps:以上_登入名稱 身份驗證 報表名稱 依實際名稱填入
身份驗證_表單名稱
登入名稱_上表單中的欄位名稱

2007-01-05 10:34:28 補充：
上述_登入名稱_上表單中的欄位名稱的資料型態是文字

2007-01-05 11:51:55 補充：
1.從一個視窗呼另一個視窗時, <>__只給 openform 的指令則_被呼叫的視窗可以一直保持在最上方
2.呼叫的視窗可否傳一個值給被呼叫的視窗, 執行完後, 被呼叫的視窗可以傳回一個值
_可以
3.資料庫一開啟時自動執行一個VBA程式