DLookup 새로 고침 - VBA 파일 경로를여십시오

Question

나는이 하나에 내 머리카락을 당길거야.

데이터베이스에있는 레코드와 연결된 파일을 여는 코드를 작성했습니다. 최신 데이터는 전체 파일 경로가 별도의 테이블에 텍스트로 저장되어 있습니다. 이전 데이터에는 전체 파일 경로가 없지만 대부분의 경우 작업 경로를 어셈블하기에 충분한 정보가 있습니다.

내 코드는 이전 데이터 필드가 null인지, 새 파일 경로로 진행되는지 확인합니다.

내가 사용하고있는 첫 번째 파일에 붙어있는 IF 문에서 DLookup에 문제가 있습니다. 내가 무엇을하든, DLookup은 항상 코드를 처음 실행했을 때와 동일한 결과를 반환합니다. 나는 혼란 스럽다.

Private Sub btnOpenFile_Click() 
Dim FacID As String 
Dim FacIDShort As String 
Dim CDID As String 
Dim FileName As String 
Dim FileURL As String 

FacID = [FAC_ID] 
FacIDShort = Left(FacID, 4) 

On Error GoTo ErrHandler 
If IsNull([CD_NUM]) Then ' Checks to see if old file path exists before trying new file path 
    FileURL = DLookup("[File_Path]", "tblFileDirectory", "[Drawing_ID]") 
    Application.FollowHyperlink (FileURL) 
Else 
    CDID = [CD_NUM] 
    FileName = [FILENAME] 
    FileURL = ("\\SYSTEMXXX\" & FacIDShort & "\" & FacID & "\FILES\" & CDID & "\" & FileName) 
    Application.FollowHyperlink (FileURL) 
End If 
Exit Sub 

ErrHandler: 
    LogError (FileURL) 
    MsgBox ("Error: " & FileURL & vbNewLine & "The URL Does Not Exist.") 
End Sub 

Answer 1

을 DLookup ("[FILE_PATH]", "tblFileDirectory"은 "[Drawing_ID]"실제로 이상을 DLookup ("[FILE_PATH]", "tblFileDirectory", "MyDrawingIdColumnInTable = MyDrawingIdToLookFor"