| |
▼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
--------------------------------------------------------
以上よろしくお願い致します。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
