Запрос доступа не работает со значением CheckBox true - PullRequest
Новая
       7

Запрос доступа не работает со значением CheckBox true

0 голосов
/ 04 января 2019

У меня проблема, которая сводит меня с ума. У меня есть флажок, который при проверке должен обновить таблицу с ее записью. Запрос использует идентификационный номер и Closed = true для фильтрации данных.

Используемый мной запрос прекрасно работает в построителе запросов. И если я просто добавлю число в поле IDNum, оно будет работать нормально, но когда я использую поле формы IDNum, запрос не будет выполнен. Я убедился, что я правильно вызываю поле IDNum, так как это число. Ничто из того, что я делаю, не заставляет его работать.

Спасибо за вашу помощь. Максин 

Code
    Private Sub ckClosed_Click()
        Dim str_sql As String
        Dim intIDNum As Long


    intIDNum = Me.IDNum


    If Me.ckClosed.Value = -1 Then
        If DLookup("IDNum", "GCSNOTDEVTRACK_LAST", "IDNum = " & Me.IDNum) Then
            Debug.Print "Value exist in table already"
            Exit Sub
        Else
        Debug.Print "Inside Click True Else"
        str_sql = "INSERT INTO GCSNOTDEVTRACK_LAST ( IDNum, [Control Number], [Publication Number], ClosedIssue, Status, CurrentState, Combined, IssueID, Priority, Mark ) " _
            & "SELECT GCSNOTDEVTRACK.IDNum, GCSNOTDEVTRACK.ControlNo, GCSNOTDEVTRACK.[Publication No], GCSNOTDEVTRACK.ClosedIssue, GCSNOTDEVTRACK.Status, GCSNOTDEVTRACK.[Current State], GCSNOTDEVTRACK.Combined, GCSNOTDEVTRACK.[Issue ID], GCSNOTDEVTRACK.Priority, GCSNOTDEVTRACK.Match " _
            & "FROM GCSNOTDEVTRACK WHERE (((GCSNOTDEVTRACK.IDNum)=" & intIDNum & ") AND ((GCSNOTDEVTRACK.ClosedIssue)=True));"
        DoCmd.RunSQL str_sql
       End If
    'Else

        '    End If
    End If
End Sub

1 Ответ

0 голосов
/ 04 января 2019

Я удалил второй критерий в своем запросе, и это устранило проблему

...