Private Sub cmd정보_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.activeconnection = CurrentProject.Connection
rs.Open "Select * From 회원 Where 회원번호 = '" & txt회원번호 & "'"
MsgBox rs!이름 & "/" & rs!이메일
rs.Close
End Sub
정답에 있는 위의 내역얼 복사해 넣어도 다음과 같은 오류가 납니다.
무슨 오류 일까요?
스크린샷과 제 문제 파일을 첨부합니다.
수고하세요~
안녕하세요.
액세스가 실행된 상태에서 다음의 과정을 수행하세요.
1. [Alt]+[F11]을 눌러 Microsoft Visual Basic Editor를 실행하세요.
2. [도구] - [참조]를 선택하세요.
3. '참조' 대화상자의 '사용 가능한 참조' 항목에서
'Microsoft ActiveX Data Objects ~~~ Library' 라는 이름의 항목 중 하나를 체크한 후 <확인>을 클릭하세요.
4. Ado 개체가 포함된 기능을 수행하면 정상적으로 수행됩니다.
오늘도 즐거운 하루 되세요.
-
*2016-06-09 13:17:24
안녕하세요.
액세스가 실행된 상태에서 다음의 과정을 수행하세요.
1. [Alt]+[F11]을 눌러 Microsoft Visual Basic Editor를 실행하세요.
2. [도구] - [참조]를 선택하세요.
3. '참조' 대화상자의 '사용 가능한 참조' 항목에서
'Microsoft ActiveX Data Objects ~~~ Library' 라는 이름의 항목 중 하나를 체크한 후 <확인>을 클릭하세요.
4. Ado 개체가 포함된 기능을 수행하면 정상적으로 수행됩니다.
오늘도 즐거운 하루 되세요.