책 내용 질문하기
왜 이런 메시지가 뜨는지?
도서
2016 시나공 기출문제집 컴퓨터활용능력 1급 실기
페이지
313
조회수
92
작성일
2016-03-03
작성자
첨부파일
Private Sub txt학번_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.active.Connection = CurrentProject.Connection
.Open "select * from 재학생 where 학번 = '" & txt학번 & "'"
MsgBox [이름] & "/" & [학과] & "/" & [연락처]
.Close
End With
End Sub
사용자 정의형식이 정의되지 않았습니다. 라는 메시지가 뜨네요..
왜 그런지 궁금하네요...
답변
2016-03-04 06:46:05
.active.Connection = CurrentProject.Connection
로 입력하셨는데
.activeConnection = CurrentProject.Connection
와 같이 active. 에서 . 없애고 다시 확인 해 보시기 바랍니다.
그래도 잘 안된다면 작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
-
*2016-03-04 06:46:05
.active.Connection = CurrentProject.Connection
로 입력하셨는데
.activeConnection = CurrentProject.Connection
와 같이 active. 에서 . 없애고 다시 확인 해 보시기 바랍니다.
그래도 잘 안된다면 작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.