Доброго времени суток форумчане.
Помогите всю голову уже пеплом обсыпал.

есть запрос уже готовый (datasel) надо выбрать записи где есть дата с формы записанная в переменную (L1) и вернуть мне сообщения найдено или нет. Но увы запись он не может обнаружить. Добавил для проверки MsgBox l1 да выдает нужную дату ,Set Me.lstBox.Recordset = rst да выводит запрос если грохнуть условие отбора WHERE отправлено= " & L1 &. Помогите.

Private Sub Кнопка126_Click()

Dim db As Database
Dim rst As DAO.Recordset
Dim L1, L2 As String

L1= (Forms![MENUDataPicker]![dd35])

Set rst = CurrentDb.OpenRecordset("SELECT * FROM datasel WHERE отправлено= " & L1 &)
Set Me.lstBox.Recordset = rst

MsgBox l1

If rst.BOF Or rst.EOF Then
MsgBox " пусто"
Else
MsgBox "Что то есть"
End If

If Not rst.EOF Then
MsgBox "Что то есть"
Else
MsgBox "пусто"
End If

dion-2009Доброго времени суток форумчане.
Помогите всю голову уже пеплом обсыпал.

есть запрос уже готовый (datasel) надо выбрать записи где есть дата с формы записанная в переменную (L1) и вернуть мне сообщения найдено или нет. Но увы запись он не может обнаружить. Добавил для проверки MsgBox l1 да выдает нужную дату ,Set Me.lstBox.Recordset = rst да выводит запрос если грохнуть условие отбора WHERE отправлено= " & L1 &. Помогите.

Private Sub Кнопка126_Click()

Dim db As Database
Dim rst As DAO.Recordset
Dim L1, L2 As String

L1= (Forms![MENUDataPicker]![dd35])

Set rst = CurrentDb.OpenRecordset("SELECT * FROM datasel WHERE отправлено= " & L1 &)
Set Me.lstBox.Recordset = rst

MsgBox l1

If rst.BOF Or rst.EOF Then
MsgBox " пусто"
Else
MsgBox "Что то есть"
End If

If Not rst.EOF Then
MsgBox "Что то есть"
Else
MsgBox "пусто"


Суть в том что если руками передать в запрос дату я получу нужные строки ,если из запроса выкинуть WHERE запрос выполнится и вернет все строки. Надо чтобы запрос брал дату из переменной и находил записи если записи есть то вернул ВСЕ ОК!
End If

Извините не понимаю что там написано.
ROI,

Set rst = CurrentDb.OpenRecordset("SELECT * FROM datasel WHERE отпралено =# " & Format(L1, "mm\/dd\/yy hh\:mm\:ss") & "#)

так?

Akina,

Сори это что такое? Immediate Window

Все Immediate Window разобрался.

Akina,

Ого спасибо за инструкцию ,можете объяснить зачем мне запрос в переменную втыкать !?

Прогер_самоучка,

Ага я так и понял. strSQL = "SELECT * FROM datasel where отправлено = что тут писать надо ???













PS помогите ,расстреляете потом.

Akina,

Dim strSQL As String

strSQL = "SELECT * FROM datasel "
Set rst = CurrentDb.OpenRecordset(strSQL)
Debug.Print rst.RecordCount


Ооо оперный театр оно работает :))

Помогите дописать условие

strSQL = "SELECT * FROM datasel where отправлено=" & Format(l1, "mm\/dd\/yy hh\:mm\:ss")

что ему надо?

Аллюр Д.,


1 На самом деле поле в запросе называется ОтправленоНазначено
2 Поле действительно после выполнения запроса будет содержать даты
3 Я прочитал статью о использовании дат в таблице , но вот такая конструкция


мне выдает синтаксическую ошибку
4 Окно отладки я использую спасибо именно там я и увидел что запрос без условия отрабатывает и возвращает 1 там все супер.
5 У меня в поле где записана дата для отбора уже записана как требует SQL 21-09-2018

У меня запрос а не таблица что мне писать тут Table.TimeOpen

Akina,

Set rst = CurrentDb.OpenRecordset("SELECT * FROM datasel WHERE Отправленоназначено= # " & Format(l1, "dd\/mm\/yy") & "# ")

Вот получилось но все равно не может сравнить.

Если писать руками все отлично срабатывает.
Set rst = CurrentDb.OpenRecordset("SELECT * FROM datasel WHERE ÎòïðàâëåíîÍàçíà÷åíî = # "21/09/2018"# ")

Все задача решена !
Set rst = CurrentDb.OpenRecordset("SELECT * FROM datasel WHERE Отправленоназначено = # " & Format(Me.dd35, "dd\/mm\/yyyy")
& "# ")

Проблема была в неправильном указании года п переменной было 4 знака года а сравнивалось всего два знака.
Все кто пинал большое спасибо.

Подскажите как результат запроса вывести в консоль.