책 내용 질문하기
If txt구매수량 <= 1 Then
MsgBox "1보다 큰 구매수량을 입력하세요", vbOKOnly
End If
DoCmd.RunSQL "update [구매정보] set [구매금액]=[구매수량] * " & cmb제품명.Column(3)
DoCmd.Requery
질문입니다.
도서
[2011] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2003 사용자용)
페이지
241
조회수
75
작성일
2011-07-10
작성자
첨부파일
Section 09의 마지막 문제에서 저는 답과 다른게 다음과 같이 작성을 하였는데요....
자꾸 오류가 뜨네요...
어디가 잘못된건지 도통 모르겠습니다.
답변 부탁드립니다.
Private Sub txt구매수량_BeforeUpdate(Cancel As Integer)
If txt구매수량 <= 1 Then
MsgBox "1보다 큰 구매수량을 입력하세요", vbOKOnly
End If
DoCmd.RunSQL "update [구매정보] set [구매금액]=[구매수량] * " & cmb제품명.Column(3)
DoCmd.Requery
End Sub
답변
2011-07-12 10:19:07
안녕하세요. 길벗 수험서 운영팀입니다.
Requery는 개체의 컨트롤 원본을 갱신하는 것으로, txt구매수량의 컨트롤의 컨트롤 원본은 구매수량입니다. update로 구매정보의 구매금액을 변경했는데, txt구매수량의 갱신하므로 실행되지 않은 것입니다. 'DoCmd.Requery'를 삭제한 후 실행하면 값이 바뀌기는 하는데, 폼에 바로 적용되지는 않습니다. 해결 방법을 찾아보려 했는데 잘 되지가 안네요. 확실한 도움을 못드려 죄송합니다.
즐거운 하루 되세요.
"-
*2011-07-12 10:19:07
안녕하세요. 길벗 수험서 운영팀입니다.
Requery는 개체의 컨트롤 원본을 갱신하는 것으로, txt구매수량의 컨트롤의 컨트롤 원본은 구매수량입니다. update로 구매정보의 구매금액을 변경했는데, txt구매수량의 갱신하므로 실행되지 않은 것입니다. 'DoCmd.Requery'를 삭제한 후 실행하면 값이 바뀌기는 하는데, 폼에 바로 적용되지는 않습니다. 해결 방법을 찾아보려 했는데 잘 되지가 안네요. 확실한 도움을 못드려 죄송합니다.
즐거운 하루 되세요.
"