Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
DoCmd.OpenForm "제품정보"
rs.Open "select * from 제품별판매현황 where 판매번호=" & txt판매번호
Forms!제품정보.txt판매번호 = rs!판매번호
147쪽 입력하고 폼실행하면 디버그 오류가떠요.
위에 노란색으로 표시되는데 책이랑 다른게 없는것 같아서요 ㅜ
Private Sub txt학번_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
DoCmd.OpenForm "봉사내역"
rs.ActiveConnection = CurrentProject.Connection
rs.Open "SELECT * FROM 재학생 WHERE 학번='" & txt학번 & "'"
MsgBox rs!이름 & "/" & rs!학과 & "/" & rs!연락처
rs.Close
txt판매번호 컨트롤에 값을 입력한 후 실행하셨는지 다시 확인 해 보세요.
재학생 테이블을 디자인 보기로 열어 학번의 데이터형식을 확인 해 보세요.
데이터 형식이 텍스트 이므로 텍스트 사용방법을 이용한 것입니다.
학번의 데이터형식이 숫자였다면 숫자사용방법으로 표시했겠죠.
좋은 하루 되세요.
"-
*2014-08-14 00:59:23
txt판매번호 컨트롤에 값을 입력한 후 실행하셨는지 다시 확인 해 보세요.
재학생 테이블을 디자인 보기로 열어 학번의 데이터형식을 확인 해 보세요.
데이터 형식이 텍스트 이므로 텍스트 사용방법을 이용한 것입니다.
학번의 데이터형식이 숫자였다면 숫자사용방법으로 표시했겠죠.
좋은 하루 되세요.
"