책 및 웹사이트 통해서 DB를 작성중입니다.

액세스 2013 무작정 따라하기의 로그인 폼은 암호 입력하는 양식이 없어서 외부 웹사이트를 보고 참조해서 해결하였습니다.

문의드리고 싶은 것은 현재 로그인 한 ID 값을 TempVars 명령어를 이용하여 임시변수로 처리하는 방법인데, 책에 나와있는 방법은 제가 구현한 로그인 방식과는 달라서 바로 쓰기는 힘들 것 같습니다.

VBA 코딩은 다음과 같습니다.

=========================================================================

Option Compare Database
Option Explicit

Private Sub CmdCancel_Click()

    '로그인 폼 닫기
    DoCmd.Close acForm, Me.Name
   
    '액세스 닫기
    DoCmd.CloseDatabase

End Sub

Private Sub CmdOk_Click()

    ' 레코드셋
    Dim rs As Recordset
   
    Set rs = CurrentDb.OpenRecordset("SELECT COUNT(*) AS RESULT FROM T_USER WHERE UserID='" & Me.txtID & "'")
   
    ' 해당 아이디가 없을 때
    If rs.Fields("RESULT") = 0 Then
        Me.lblStatus.Visible = True
        Me.lblStatus.Caption = "ID를 확인하여 주세요."
       
        ' 레코드셋 닫기
        rs.Close
       
        Me.txtID.SetFocus
        Exit Sub
    End If
    Me.lblStatus.Visible = False
   
    Set rs = CurrentDb.OpenRecordset("SELECT UserPW FROM T_USER WHERE UserID='" & Me.txtID & "'")
   
    ' 암호가 일치하지 않을 때
    If "" & rs.Fields("UserPW").Value <> "" & Me.txtPW Then
        Me.lblStatus.Visible = True
        Me.lblStatus.Caption = "암호를 확인하여 주세요."
       
        ' 레코드셋 닫기
        rs.Close
       
        Me.txtPW.SetFocus
        Exit Sub
    End If
    Me.lblStatus.Visible = False
   
    ' 레코드셋 닫기
    rs.Close
   
    ' 로그인 폼 닫기
    DoCmd.Close acForm, Me.Name
   
End Sub
====================================================================================

로그인에 사용한 table(T_USER)은 다음과 같습니다.

1. 로그인에 사용되는 정보는 UserID, UserPW이며, UserName을 임시 변수로 처리하여 작성자 및 작성일시에 대한 매크로를 만드려고 합니다. VBA에서 SetTempVars 명령어를 실행하는 방법과, 실행시 UserName을 임시 변수로 설정할 수 있는지 여부에 대해 문의드리고 싶습니다.