Ошибка синтаксиса vba access

@Mari_mar · Регистрация: 07.10.2018

Author24 — интернет-сервис помощи студентам

Visual Basic

Dim rst3 As DAO.Recordset
sql = "SELECT * FROM [ПОЕЗДА] WHERE [номер]='" & Me.номер.value & "' AND [дата_отправления]= " & Me.дата_отправления.value & " AND [время_отправления]= " & Me.время_отправления.value & ""
    
Set rst3 = CurrentDb.OpenRecordset(sql, dbOpenDynaset)

Выдает ошибку синтаксиса. В форме форматы данных те же, что и в таблице. Подскажите, в чем причина?

shanemac51 · 24.05.2020, 09:14

Сообщение от Mari_mar

sql = "SELECT * FROM [ПОЕЗДА] WHERE

lдобавьте строку после этой
debug.print sql
и увидите нечто похожее на
.......дата=24.05.2020 and время=12:00
вот вам и нарушение синтаксиса

@Mari_mar · 24.05.2020, 12:49 **[ТС]**

И как мне это исправить?

@vlanatvaszla · 24.05.2020, 13:39

Используйте правильный формат для времени и даты

shanemac51 · 24.05.2020, 13:45

Mari_mar,
должно быть
.....дата=#05/24/2020#
или
.....format(дата,"dd\/mm\/yyyyhh")="05/24/2020"

над временем не думала, но возможно
and format(время,"hh:nn")="12:00"

@Mari_mar · 24.05.2020, 15:25 **[ТС]**

Visual Basic

sql = "SELECT * FROM ПОЕЗДА WHERE [номер]= '" & Me.номер.value & "' AND ((([дата_отправления])= #" & Format(Me.дата_отправления.value, "mm\/dd\/yyyy") & "#)) AND ((([время_отправления])=#" & Format(Me.время_отправления.value, "hh\:nn\:ss") & "#));"
    
Set rst3 = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
    If rst3.EOF Then
    MsgBox "Такой поезд на указанную дату и время уже существует!"
    Exit Sub
    End If

Все хорошо, теперь ошибки нет. Но оно находит такой поезд (хотя его нет и добавление происходит после выполнения этой части). Может я не правильно использую функции?

Добавлено через 39 минут
If Not rst.EOF, не заметила сразу

shanemac51 Модератор 12059 / 4921 / 789 Регистрация: 07.08.2010 Сообщений: 14,399 Записей в блоге: 4
	24.05.2020, 09:14	2
	Сообщение от Mari_mar sql = "SELECT * FROM [ПОЕЗДА] WHERE lдобавьте строку после этой debug.print sql и увидите нечто похожее на .......дата=24.05.2020 and время=12:00 вот вам и нарушение синтаксиса 0

@Mari_mar 1 / 0 / 0 Регистрация: 07.10.2018 Сообщений: 46
	24.05.2020, 12:49 [ТС]	3
	И как мне это исправить? 0

@vlanatvaszla -8 / 4 / 0 Регистрация: 10.09.2016 Сообщений: 378
	24.05.2020, 13:39	4
	Используйте правильный формат для времени и даты 1

shanemac51 Модератор 12059 / 4921 / 789 Регистрация: 07.08.2010 Сообщений: 14,399 Записей в блоге: 4
	24.05.2020, 13:45	5
	Сообщение было отмечено Mari_mar как решение Решение Mari_mar, должно быть .....дата=#05/24/2020# или .....format(дата,"dd\/mm\/yyyyhh")="05/24/2020" над временем не думала, но возможно and format(время,"hh:nn")="12:00" 1

	24.05.2020, 15:25

Ошибка синтаксиса vba access

Решение