Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2414 / 9994

←次へ　｜　前へ→


	【10854】Re:管理権限のログイン方法

ひで - 08/12/11(木) 14:33 -


	引用なし

	パスワード

▼Gin_II さん：

お世話になります。失礼いたしました。

>それをどのようにしているのか、VBAならばコードを、マクロなら内容を
>記載してください。

コードを下記します。
以前ここでアクセス記録の取り方を教えて頂いた内容が入っています。

Option Compare Database
Option Explicit

Dim varEnterPass As Variant
------------------------------------------------------
Private Sub コマンド11_Click()

On Error GoTo Err_コマンド11_Click
　　Dim sID As String　　　　　
　　Dim dtmNow As Date　　　　　
　　Dim sSQL As String
　　Dim tblName As String　　　
　　Dim stDocName As String
　　Dim stLinkCriteria As String
　　
　　　
　　sID = CStr(Me.txtID.Value)　　
　　tblName = "access"　　　　
　　dtmNow = Now()

　　sSQL = "INSERT INTO " & tblName & "(ID, 日時) "
　　sSQL = sSQL & "VALUES('" & sID & "', #" & dtmNow & "#);"
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　Debug.Print sSQL
　　CurrentDb.Execute sSQL

　　
　　If Me.txtPassWord = varEnterPass Then
　　DoCmd.Close
　　
　　stDocName = "総合メニュー"
　　DoCmd.OpenForm stDocName, , , stLinkCriteria
　　'DoCmd.Close , "frm_sample"
　　　
　　Else
　　　　MsgBox "パスワード相違です", vbCritical
　　　　Me.txtID.DefaultValue = ""
　　　　Me.txtPassWord.DefaultValue = ""
　　End If
　　
Exit_コマンド11_Click:
　　Exit Sub

Err_コマンド11_Click:
　　MsgBox Err.Description
　　Resume Exit_コマンド11_Click

End Sub

--------------------------------------------------------
Private Sub txtID_AfterUpdate()

　　varEnterPass = DLookup("PassWord", "tbl_sample", _
　　　　　　　　"[ID]='" & Me.txtID & "'") ' --- A
　　　　
End Sub
--------------------------------------------------------

以上よろしくお願い致します。

362 hits

▼

【10850】管理権限のログイン方法 ひで 08/12/11(木) 10:02