자동 완성 부품 설명 부품 번호 텍스트 상자

Question

죄송합니다. 이전에 vba에 액세스 한 적이 없으므로 작성한 코드가 없습니다. 내가해야 할 일은 시간을 절약하기 위해 양식에 콤보 박스 자동 완성을 사용하는 것입니다. [부품 번호] [부품 설명] [표준 시간/시간] 몇 가지를 포함하는 모든 부품이있는 데이터베이스가 있습니다. 다른 사람들은 코드가 어떻게 생겼는지, 어디에 넣을 지 궁금합니다. 나는 샘플 코드 나 좋은 리소스를 제공 할 수 있다면 좋은 워크 플로우를 느낄 수있다.

감사합니다. /// matthew

Answer 1

부품 번호 입력란의 AfterUpdate 이벤트를 사용하십시오. 코드는 다음과 같아야합니다.

Private Sub txtPartsNumber_AfterUpdate() 
    If IsNull(Me.txtPartsNumber) = False Then 
     Me.txtPartsDescription = Nz(DLookup("[Parts Description]", "tblParts", "[Parts Number] = '" & Me.txtPartsNumbers & "'"), "") 
    End If 
End Sub 

몇 가지주의해야 할 점이 있습니다. 공백이나 기호없이 필드를 명명하고 여러 개를 사용하지 않는 것이 좋습니다.

tblpart 
--partno 
--partdesc 
--stdlbs 
--stdlbshr 

당신은 아마도 "TBL"를 생략 할 수도 있고, 그냥 테이블 '부분'헝가리어 표기법 오늘의 프로그래머의 많은 은혜를 잃은 이후 이름을 수있다 :이 테이블을 설정 한 경우는 다음과 같이 보일 것이다.