해결 안된 질문

access 로그인 할때 비번 넣는 부분 궁금증...

청선 2014.02.06 16:19 Given Points 0
추천 수 ( 0 )

책 구입을 해서 한달정도 되었습니다.

 

전체적으로 실습 해보고, 다시 한번씩 보고 있는데 궁금한게 있습니다.

 

로그인 암호 부분이 있는데 이 부분 처리를 어떻게 해야하는지요?

암호부분은 vb에서 되는 것 같아 대략 처리했는데.. 궁금한 것은

 

1. 사용자가 아이디를 임시변수값으로 저장하고 싶은데 vb로 처리하면 이 부분을 어떻게 해야하는지요?

 

책에서는 확인 눌렀을때 SetTeampVar로 해서 저장된 변수명을 [TempVars] ![담당자ID] 이렇게 해서 확인할 수 있잖아요.

 

근데 vb로 아이디, 비번 체크할 때는 매크로를 같이 사용할 수가 없어서 이 부분을 넣을 수가 없는 것 같은데요.

(만약 vb와 같이 사용 가능하다면 ?)

 

나중에 어떤 사람이 사용중인디 아이디 체크할려면 이 부분을 알고 있어야 할 것 같은데요.

 

---------------------------

vb 로 제가 변경된 아아디/ 암호 저장하는 방법은

 

Private Sub Command16_Click()
If (IsNull(Me.Controls("cbo담당자ID")) Or IsEmpty(Me.Controls("cbo담당자ID")) Or Me.Controls("cbo담당자ID") = "") _
And (IsNull(Me.cbo담당자PW) Or IsEmpty(Me.cbo담당자PW) Or Me.cbo담당자PW = "") Then
    Beep
    MsgBox "아이디를 입력하십시오."
    Exit Sub
End If

If DCount("담당자ID", "담당자", "담당자ID='" & Me.Controls("cbo담당자ID") & "'") > 0 Then
    If DLookup("비밀번호", "담당자", "담당자ID='" & Me.Controls("cbo담당자ID") & "'") = Me.cbo담당자PW Then
       
        DoCmd.Close acForm, Me.name
        DoCmd.OpenForm "메인"
    Else
        MsgBox "틀린 비밀번호입니다."
    End If

Else
MsgBox "해당 직원이 없습니다."
Exit Sub
End If
 

----------------------------------------------------

 

담당자 테이블은 책하고 비븟하고요, 비밀번호 부분만 추가 했습니다.

이렇게 해서 확인을 누르면, 메인 창 그냥 뜨고 해서 로그인한 아이디를 보이게끔 해봤는데, 어떻게 해야할지 감이 안옵니다.

 

그럼.. 수고하십시요.

 

 

답변등록

답변 (1)

돌직구 2014.02.14 06:08

질문이 몇 가지인지 잘 모르겠네요.


제가 이해한 질문은 이렇습니다.

1. 사용자 아이디를 VBA를 사용해서 임시 변수에 저장하는 방법

Docmd.RunMacro 라는 VBA 함수를 이용하면 VBA 코드 상에서도 매크로를 실행시킬 수 있습니다.

혹은 전역변수를 사용하는 방법이 있습니다. 모듈에 변수를 선언하면 VBA 어디에서나 사용할 수 있습니다.


2. vb 로 제가 변경된 아아디/ 암호 저장하는 방법에 대한 검토

이 질문이 이해가 잘 안 됩니다. 작성하신 코드가 적절한지 여쭙는 것인가요?

일단 작성하신 코드는 잘 된 것 같습니다.


전체적으로, 특히 두번째 질문은 정확히 무엇을 요청하시는 것인지 잘 모르겠습니다.

조금 더 구체적으로 질문해 주시면 답변해 드리겠습니다~

0 person rated this as good



  주소  12925 경기도 하남시 미사대로 540, B동 917호 (현대지식산업센터 한강미사2차) ㈜팀데이터이십일  |  고객센터 전화번호  02-467-2998  |  대표이사  염기웅
개인정보관리책임자  염기웅 (ml_privacy@td21.com)  |  사업자등록번호  120-86-79260  |  통신판매업신고번호  제 2021-경기하남-1166 호  [사업자 정보 확인]
  TD21의 사전 서면 동의 없이 TD21 사이트 일체의 정보, 콘텐츠 및 UI 등을 상업적 목적으로 전시, 전송, 스크래핑 등 무단 사용할 수 없습니다.