Question

VBA의 모든 경로 상수를 내 datatbase의 관리 테이블로 바꿔서 사용자가 vba 코드를 편집하지 않고도 폴더와 파일의 위치를 ​​변경할 수 있도록했습니다.

Private Sub Command8_Click() 

    Debug.Print DLookup("fsFileLink", "tblFileSystem", "fsFileName= 'TEMPLATES'") 
    MsgBox = DLookup("fsFileLink", "tblFileSystem", "fsFileName= 'TEMPLATES'") 

End Sub 

은을 Debug.Print이

C:\Users\... \templates\ 

을 반환 다음과 같이

코드는하지만 MSGBOX는 "변형 또는 객체 여야 왼쪽"오류를 반환합니다. 텍스트 상자에서 표시하고 편집 할 수있는 문자열로 dlookup 값을 가져 오는 방법은 무엇입니까?

나는 아래의 코드를 사용하고 당신에게

Answer 1

감사합니다

Dim strCOCTemplate As String 

strCOCTemplate = Nz(DLookup("fsFileLink", "tblFileSystem", "fsFileName= 'TEMPLATE_COC2'"), "none") 

If strCOCTemplate = "none" Then Err.Raise Number:=11001, Description:=ERR_DESC_11001 
Set docJobSpec = WordApp.Documents.Add(Template:=strCOCTemplate, NewTemplate:=True) 

을 DLookup는 변형을 반환하지만 Template:=는 null 값을 받아 들일 수와 akward 오류가 발생합니다. 나는이 문자열을 반환하는 nz() 함수를 사용하여 보완하고 테이블이 데이터를 찾을 수 없다는 것을 말하기 위해 내 자신의 사용자 정의 오류를 발생 시켰습니다.