시나공

시험에

나오는 것만

공부한다!

ado문

149쪽

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

DoCmd.OpenForm "제품정보"

rs.ActiveConnection = CurrentProject.Connection

rs.Open "select * from 제품별판매현황 where 판매번호=" & txt판매번호

Forms!제품정보.txt판매번호 = rs!판매번호

Forms!제품정보.txt제품명 = rs!제품명

Forms!제품정보.txt판매량 = rs!판매량

Forms!제품정보.txt불량품 = rs!불량품

Forms!제품정보.txt단가 = rs!단가

Forms!제품정보.txt제품평 = rs!제품평

Forms!제품정보.txt거래처명 = rs!거래처명

Forms!제품정보.txt거래처등급 = rs!거래처등급

rs.Close

문제에서 제품정보 폼을 실행한 후 제품정보 폼의 판매번호가 txt판매번호의 값과 같은 제품의 정보를 찾아 표시되도록 하시오. 제품정보 폼을 실행한 후 라고 하였기 때문에 DoCmd.OpenForm "제품정보" 해준거죠?

302쪽

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.cursorlocation = aduseclient
rs.activeconnection = CurrentProject.Connection
rs.Open "selet*from 운행관리 where 행선지='" & txt행선지 & "'"
MsgBox "행선지가" & [행선지] & "인 개수는 : ", vaokonly, rs.RecordCount
rs.Close

그럼 여기서는 문제가 txt행선지 컨트롤에 표시된 행선지와 같은 레코드의 개수를 표시하는 메시지 박스를 표시할 것. 여기서는 왜 저걸 써준건가요...? 레코드의 현재 위치를 클라이언트로 이동시킨다는데 ㅠㅠㅠㅠ이해가 잘...

그리고 실행이 안되서 파일 첨부합니다.. 똑같이 썼는데 뭐가 틀렸는지 안되네요 ㅠㅠㅠ

이것 별개의 질문인데

Dim rs As ADODB.Recordset

Set rs = New ADODB.recprdset

rs.cursorlocation = aduseclient

rs.activeconnection = CurrentProject.Connection

rs.Open "selet*from 운행관리 where 행선지='" & txt행선지 & "'"

MsgBox "행선지가" & [행선지] & "인 개수는 : ", vaokonly, "행선지='" & txt행선지 & "'"

rs.close

이렇게 하면 틀린 거겠죠? 행선지컨트롤값과 같은 행선지가 나오니 갯수가 안나오는거죠??ㅠㅠㅠㅠido문 복잡하네요......

아!!그리고 매크로작성기에 필터이름이요!! 조건이 있는 테이블 이름이면 넣는거고 아니면 지정안하는건가요?? 아니면 문제에서 테이블이나 쿼리있으면 다넣으면 되나요?? 문제풀때..ㅠㅠㅠㅠㅠㅠㅠㅠㅠ

ex??) 302쪽에 내보내기 작성시 거래처 테이블 (조건있는테이블)