powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подправьте код пожалуста:
9 сообщений из 9, страница 1 из 1
Подправьте код пожалуста:
    #32539111
Фотография Лёшик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я блин тут кодик попробовал написать может кто подправит:
strSQL10 = "select * FROM data where time(time2) <= #" & Format(Me.Текст6.Text, "hh:MM:ss") & "#"
Короче ошибку дает и все.
...
Рейтинг: 0 / 0
Подправьте код пожалуста:
    #32539152
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Format(Me.Текст6.Text, "hh:MM:ss")

hh - часы
mm - месяц
ss - секунды

так попробуй
Format(Me.Текст6.Text, "hh:nn:ss")
...
Рейтинг: 0 / 0
Подправьте код пожалуста:
    #32539182
Фотография Alviga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
автор
strSQL10 = "select * FROM data where time(time2) <= #" & Format(Me.Текст6.Text, "hh:MM:ss") & "#"

А что за функция такая Time ?
Какая информация храниться у Вас в поле Time2 (тип) ?
Может в данном случае проще будеи сравнивать разность этих значений с 0 ?
...
Рейтинг: 0 / 0
Подправьте код пожалуста:
    #32539188
Фотография Лёшик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не работает. Блин короче вот мой код
Текст6.Text = Time
Метка8.Visible = True
Текст6.Visible = True
' код касающийся даты
Dim rs10 As Recordset
Dim strSQL10 As String
strSQL10 = "select * FROM data where timevalue(time2) <= #" & Format(Me.Текст6.Text, "hh:nn:ss") & "#"
Set rs10 = data7.Database.OpenRecordset(strSQL10)
Set Me.data7.Recordset = rs10
выделяет строку:
Set rs10 = data7.Database.OpenRecordset(strSQL10)

и пишет гадость типа data tupe mismatch in criteria expression
...
Рейтинг: 0 / 0
Подправьте код пожалуста:
    #32539195
Фотография Лёшик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
у меня в поле time2 и time1 стоит значение дата и время.
Но ячейка time2 пустая. Вот если она пустаю, то должно выполняться условие, если заполненна то не выполнятся. А в ячейке время находится.
...
Рейтинг: 0 / 0
Подправьте код пожалуста:
    #32539226
Фотография Alviga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Сравнивать дату нужно тоже с датой, но никак со временем. Следовательно ко времени нужно добавить дату, какую это уже тебе решать исходя из условия задачи.
2. Добавь в запрос еще одно условие где проверяется пустое поле или нет
Where ..... OR time2 = NULL (точно можно посмотреть в хелпе по аксу)
и тогда у тебя будут выбираться строчки где time2 пустое
...
Рейтинг: 0 / 0
Подправьте код пожалуста:
    #32539262
Фотография Лёшик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А причем тут дата? У меня текст6.text = Time
Поле time2 = Time
...
Рейтинг: 0 / 0
Подправьте код пожалуста:
    #32539266
Фотография Лёшик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Отлично, все работает. Спасибо
...
Рейтинг: 0 / 0
Подправьте код пожалуста:
    #32539282
Фотография Alviga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SELECT *
FROM tblUsers where gfdgfd <= Format('20:20:00', "hh:mm:ss") OR isNULL(gfdgfd);

попробуй создать запрос в аксе.
Вот это работает.
Так что тебе нужно только передать время как строчку и все.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подправьте код пожалуста:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]