Задать вопрос
Ответы пользователя по тегу Microsoft Access
  • Как в простой клиенской форме СУБД Access на VBA поставить фильтр?

    PavelMSTU
    @PavelMSTU Автор вопроса
    Сам спросил, сам и отвечаю.

    Private Sub ExampleObjct_Click()
        Dim strSql As String
        strSql = "SELECT * FROM some_table WHERE some_field='some_value' order by ID ASC;"
        Me.RecordSource = strSql
    End Sub


    Замечание: если возникнет ошибка 3464 ("Несоответствие типов данных"), то возможно следует int'ы поменять на строки даже там, где вы не предполагаете это.
    У меня были ID шники. Например это работало:
    strSql = "SELECT * FROM some_table WHERE some_field='some_value' and ID>'10' order by ID ASC;"

    А это не работало:
    strSql = "SELECT * FROM some_table WHERE some_field='some_value' and ID>10 order by ID ASC;"

    Причина в отсутствии кавычек в значениях ID.
    Ответ написан
    Комментировать