드로우홀릭 더베이직
안녕하세요, 선생님
매번 가르쳐 주셔서 감사합니다.
간단히 로그인 폼을 만들었습니다.
로그인 폼에서 로그인 되면 입력 폼이 나오는데요,
그 입력 폼에 본인이 입력한 데이터만 불러오는 기능을 만들고 싶은데요,
Login 버튼을 클릭 후 어떻게 짜야 될지 해서요?
A table : 입력 폼
B table : 로그인 폼
A table과 B table의 공통 변수는 Name이라는 Key에 따라 데이터가 이전에 입력한 데이터의 불러오기가 가능해야합니다.
선생님 참고를 위해 DB를 보내 드립니다.
어떻게 레코드 원본 속성을 제어할지 확인 부탁 드려요.
첨부한 파일을 보면 제가 만든 A1이라는 폼이 있습니다.
일단 admin 으로 로그인 했다고 가정합니다.
이 때 로그인한 사용자 값을 저장합니다.
그 후 A1폼에 제가 코딩한 것처럼 하면 됩니다.
A1폼은 제가 로그인한 사용자가 admin인 경우를 두고 만든 것입니다.
Private Sub Form_Load()
Dim strUser As String
strUser = "admin"
Me.RecordSource = "SELECT * FROm A WHERE 사용자명 = '" & strUser & "'"
End Sub
위 코드에서 strUser 가 들어갈 부분에 저장했던 사용자 값을 넣어주면 됩니다.
중요한 부분은 폼이 로드되는 시점(form_Load)에 이벤트를 잡아서 레코드 원본속성을 제어하는
Me.RecordSource = "SELECT * FROm A WHERE 사용자명 = '" & strUser & "'" <-- 이부분입니다.
B table: 로그인 폼 --> 이것이 잘 이해가 되지 않네요.
B table인데, 이것이 폼인가요?
일단, 개념적으로만 설명드리겠습니다.
로그인 버튼을 클릭하면, 로그인 폼은 표시되지 않게 설정합니다.
입력 폼이 열릴 때, 로그인 폼에 설정된 ID만 열리도록, 입력 폼의 레코드 원본 속성을 제어합니다.
이렇게 하면, 입력 폼은, 항상 로그인 한 사람의 데이터만 표시될 수 있습니다.