2013-06-11 8 views
1

Access VBA로 프로그래밍하는 데 다소 익숙하며이 문제로 도움이 될 수있는 곳을 찾을 수 없었습니다.Access VBA - Msgbox에 테이블 행 데이터 표시

런던 지역의 우편 번호 목록이 포함 된 표를 사용하고 있습니다. 2248 개의 우편 번호 목록이 있고 각 우편 번호마다 클러스터 참조 번호가 있습니다. 예 :

N1 1AS | A N16 5DF | F

등등.

내 문제는 클러스터 정보를 표시하려고 할 때입니다. 내가 콤보 상자를 시도했지만 약 100 postcodes에 제한이있을 것 같습니다, 일단 누군가가 메시지 상자가 팝업되고 그 우편 번호의 클러스터를 표시하는 우편 번호를 넣어 트리거 명령을 코딩하고 싶습니다 .

예를 들어 우편 번호 상자에 N1 1AS를 입력하면 메시지 상자에 A가 표시됩니다. 모든 도움을

덕분에,

가레스 존스

답변

0

은 텍스트 상자 옆에 버튼을 넣고 OnClick 이벤트는 같은 것이다 : 약간의 조정이 필요할 수 있습니다

Dim X as String 

X = DLookUp("tblPostcodes", "fldCluster", "fldPostCode = '" & Me.txtPostCode & "'") 

msgbox "The Cluster is " & X 

을 ,하지만 그것은 당신을 가까이해야합니다.

EDIT : 텍스트 상자의 LostFocus 이벤트에 넣을 수 있습니다.하지만 누군가가 상자 밖으로 클릭하기로 결정한 경우 어쨌든 코드를 실행하려고하므로 팬이 아닙니다. 엉성한 느낌.