2012-12-07 5 views
0

에서 데이터를 표시하지 않습니다이 내 테이블내 텍스트 상자 내 콤보 선택

나는 마이크로 소프트 오피스 액세스 2007을 사용하고 있는데 나는 위의 필드를 표시하는 양식을 만드는거야
 
Software 
----------------- 
ID(Auto-Number) 
ProductName(Text) 
Total License(Number) 

입니다.

ProductName 필드에서 다른 데이터를 선택하는 콤보 상자의 변경 사항에 따라 총 라이센스 필드에 데이터를 표시하려고합니다. 내 콤보 쿼리

SELECT Employee.EmpName, Employee.EmpCode, Employee.CompanyID, Employee.DeptID, 
     Employee.ComputerID, Software.ProductName 
FROM 
    Software 
    INNER JOIN ((Computer 
    INNER JOIN Employee ON Computer.CompID=Employee.ComputerID) 
    INNER JOIN Application ON Computer.ComputerName=Application.[A-ComputerID]) 
    ON Software.ID=Application.SoftwareID 
WHERE (((Application.SoftwareID) = [Forms]![Form2]![CbProductName])); 
Private Sub CbProductName_AfterUpdate() 
    Me!Softwareuserlist.Form.Requery 
    Me!TbNoOfLicense.Requery 
    Me!TbRemainingNoOfLicense.Requery 
    Me!TbTotalLicense.Requery 
End Sub 

Private Sub CbProductName_Change() 
    Me!TbTotalLicense = Me!CbProductName.Column(3) 
End Sub 

이이 실행되고

Textbox ID = TbTotalLicense 
ComboBox ID = CbProductName 

내가 밖으로 코드가 무엇을하지만 오류, 그것은 디버그 나에게 계속 얘기가 계속, 심지어는 표시되지 않습니다 내가 실행할 때마다 텍스트 상자의 데이터. 내 다른 텍스트 상자가 잘 작동합니다.

+0

라이센스는 어떻게 되나요? 번호 열의 필드 크기가 허용하는 것보다 오래 걸립니까? – Brad

답변

1

그럼 디버깅하라는 메시지가 표시되면 디버그하세요.

문제가 발생한 코드 줄을 확인하십시오. 지역 창 (메뉴>Locals WindowView)를 열고 관련 변수의 값을 검사 등을 제어

또한 Ctrl 키-G와 직접 실행 창을 열고 식을 입력 할 수는

?Me!CbProductName.Column(3) 
로 인쇄 할

"?" Debug.Print

에 대한 바로 가기입니다. 중단 점을 설정할 수도 있습니다. 중단 점을 설정하려면 코드 줄 왼쪽에있는 회색 막대를 클릭합니다. 코드를 실행하십시오. 이 줄에서 멈추어 위에서 설명한대로 변수를 검사 할 수 있습니다.

참조 :
- ACC: Tips for Debugging Access Basic Code
- Error Handling and Debugging Tips and Techniques for Microsoft Access, VBA, and Visual Basic 6 (VB6)

관련 문제