시나공

시험에

나오는 것만

공부한다!

Private Sub cmd제품정보찾기_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
DoCmd.OpenForm "제품정보"
rs.ActiveConnection = CurrentProject.Connection
rs.Open "select * from 제품별판매현황 where 판매번호=" & txt판매번호
from!제품번호.txt판매번호 = rs!판매번호
from!제품번호.txt제품명 = rs!제품명
from!제품번호.txt단가 = rs!단가
from!제품번호.txt판매량 = rs!판매량
from!제품번호.txt불량품 = rs!불량품
from!제품번호.txt제품평 = rs!제품평
from!제품번호.txt거래처명 = rs!거래처명
from!제품번호.txt거래처등급 = rs!거래처등급
rs.Close
End Sub

이렇게 작성했는데

'-2147217900 (80040e14)' 런타임오류가 발생하였습니다:

'판매번호=' 쿼리식의 연산자가 없는 구문 오류입니다. 라는 상자가 뜨네요. 혹시나해서 정답파일을 열어서 똑같이 실행해봤는데도 똑같은 오류번호상자가 뜨네요... 당황

이거말고도 하나더있는데

Private Sub cmd판매번호찾기_Click()
Me.RecordsetClone.FindFirst "판매번호=" & txt판매번호
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

여기서 Me.RecordsetClone.FindFirst "판매번호=" & txt판매번호 이것이 오류라고 하는데 눈뜨고봐도 잘모르겠습니다..

마찬가지로 정답파일열어서 실행해도 똑같은 부분에서 오류가 납니다 ㅠ