MS-Access 2003 명령 단추에서 추가 쿼리를 트리거합니다.

Question

명령 단추를 클릭하여 트리거 할 추가 쿼리가 있습니다. 닫기를 실행하는 명령 단추가있는 스플래시 화면이 있습니다 & 열기 명령. 이 클릭 이벤트 중에 실행할 추가 쿼리를 결합하려고합니다.

내 VBA 시작 화면

Option Compare Database 

Private Sub SplCls_Click() 
On Error GoTo Err_SplCls_Click 

DoCmd.Close 

stDocName = "Switchboard" 
DoCmd.OpenForm stDocName 

Exit_SplCls_Click: 
Exit Sub 

Err_SplCls_Click: 
MsgBox Err.Description 
Resume Exit_SplCls_Click 

End Sub 

위해 나는 그것이 DoCmd.Close & DoCmd.OpenForm 사이에 갈 필요 알고 enoug 알고있다. 추가 쿼리의 이름은 "qry_YOS"입니다.이 코드 세그먼트에 대한 지침은 크게 감사하겠습니다.

Answer 1

DAO 데이터베이스 Excute 메서드를 사용하여 추가 쿼리를 실행합니다. 당신이이 ... .Close 및 .OpenForm 사이에 발생하려면

DoCmd.Close ' close what? If it works, fine. ' 
CurrentDb.Execute "qry_YOS", dbFailonerror 
stDocName = "Switchboard" 
DoCmd.OpenForm stDocName 

은 BTW, 항상 같은 코드 모듈의 선언에 Option Explict이 포함

비주얼 베이직 편집기의 기본 메뉴에서

Option Compare Database 
Option Explicit 

선택 도구 -> 옵션. 그런 다음 옵션 대화 상자의 편집기 탭에서 "변수 선언 필요"옆에 확인 표시를하십시오. 이 설정은 모든 코드 모듈에 Option Explict이 포함되도록 보장합니다. 아직 가지고 있지 않은 기존 코드 모듈에 수동으로 추가하는 것이 좋습니다. 그런 다음 VB 편집기의 주 메뉴에서 디버그 -> 컴파일을 선택하고 컴파일러가 불만 사항을 수정하십시오. 바라기를 너무 많이는 아니지만 장기적으로는 좋은 투자입니다.

Option Explicit없이 VBA 개발자로서의 생활은 불필요하게 복잡합니다. 그냥 항상 슬픔을 덜어주기 위해 그것을 사용하십시오. 나 한테 고마워 할 수있어. :-)