드로우홀릭 더베이직
안녕하세요!!
로그인된 유저이름 반환해서 텍스트상자에 기본값으로 뿌려보려고 하는데요...
테이블에는 아래와 값은 필드가 있구요,
ID(키값)
LoginID
Password
Uname
로그인 폼에는 아래와 값은 코드를 만들었습니다.
Private Sub Command5_Click()
DoCmd.ApplyFilter , "[LoginID] = forms!f_로그인!Combo3"
If LoginID <> Combo3 Or Nz(LoginID, "") = "" Then
MsgBox "Invalid Login ID found"
ElseIf Password <> txtPass Or Nz(txtPass, "") = "" Then
MsgBox "Invalid Password"
DoCmd.Close
Else
MsgBox UName & " 님 환영합니다. "
DoCmd.OpenForm "메인"
Visible = False
End If
End Sub
로그인된 UName을 가져와서 텍스트상자에 기본값으로 하려고 합니다.
가능하면 레이블에도 사용해보려고 합니다.
개인적인 생각으로는 로그인했을때 로그인한 UName을 쿼리로 만들어서 가져오면 될것같은데 감이 잡히질 않네요..
고수님들의 도움 요청드려봅니다!
로그인 한 사용자 정보를 어딘가에 저장해 두어야 나중에 뿌려줄 수 있겠죠?
지금 코드상으로는 로그인한 사용자 정보를 저장해 두지 않기 때문에.. 나중에 뿌려줄 수가 없습니다.
다음 VBA 구문을 이용해서 로그인한 사용자 ID를 저장해 두어야 합니다.
TempVars.Add "UName","UserID"
위 코드에서 'UserID' 부분을 적절한 값으로 바꾸어야합니다.
이렇게 저장한 식을 꺼내어 쓸 때는, 다음 식을 사용합니다.
TempVars!UName