У меня есть загадка, которую я не могу разгадать - PullRequest
Новая
       10

У меня есть загадка, которую я не могу разгадать

0 голосов
/ 30 октября 2019

Я использую MS Access, и у меня очень странная проблема. В моем коде ниже, если я удаляю строку «привет» MsgBox, следующая строка не работает, никаких сообщений об ошибках, просто ничего не делает. С MsgBox "привет" линия дает желаемый результат. Я добавил в код паузу, чтобы посмотреть, поможет ли это, но это не помогло. 

With Me
    If .NewRecord Then
        ![ImageX].Picture = ""
        ![txtProperties] = ""
    End If

    If Not IsNull(.BlobInventory_ID) Then
        TempVars!Test = 1
        If TempVars!Test = 1 Then
            '''MsgBox "hi"
            Forms![frm_Navigation]![NavigationSubform].Form![DocumentViewer].Object.Navigate putBLOBInFile(.BlobInventory_ID)
        End If
    Else
        .ImageDisplay.Picture = ""
        ![lblFormat].Visible = False
        Exit Sub
    End If

    If .ImageDisplay.Picture <> "(none)" Then
        ![lblFormat].Visible = True
        ![lblFormat].Caption = "File Extension: (" & UCase$(DLookup("[sFileExtension]", "dbo_BlobStorage", _
            "[BlobInventory_ID]=" & ![BlobInventory_ID])) & ")"
    Else
        ![lblFormat].Visible = False
    End If
End With
...