Определение формата переменной / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Определение формата переменной

9 сообщений из 9, страница 1 из 1

Определение формата переменной

#39754835

Mikhail78

Гость

Коллеги подскажите какой нужно установить формат переменной

Pstr_3 = Me.Дата_от.Text
Rstr_4 = Дата_до.Text

Вот краткая инструкция

Private Sub кнопка_Click()
Dim Pstr_3 As String
Dim Pstr_4 As String
Pstr_3 = Me.Дата_от.Text
Rstr_4 = Дата_до.Text
Me.Filter = "дата between pstr_3 and pstr_4"
Me.FilterOn = True
End Sub

Спасибо.

...

Рейтинг:

0 / 0

29.12.2018, 11:18

| Ответить | Цитировать | Написать

Определение формата переменной

#39754838

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

А что такое "формат переменной "?

...

Рейтинг:

0 / 0

29.12.2018, 11:21

| Ответить | Цитировать | Написать

Определение формата переменной

#39754841

Mikhail78

Гость

Возможно я ошибаюсь на счет формата, но если не указать тип поля то фильтр не работает

...

Рейтинг:

0 / 0

29.12.2018, 11:25

| Ответить | Цитировать | Написать

Определение формата переменной

#39754843

Mikhail78

Гость

Пока вставлял и изменял русскую карябицу удалил пару букв
Rstr_4 = me.Дата_до.Text

...

Рейтинг:

0 / 0

29.12.2018, 11:29

| Ответить | Цитировать | Написать

Определение формата переменной

#39754929

alecko

Участник

Откуда: Башкирия

Сообщения: 852

Рейтинг: 0 / 0

попробуйте такой вариант, рекомендовал бы переименовать "дата" в например "Kogda" (в запросе .ControlSource)

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub кнопка_Click()
Dim Pstr_3$, Pstr_4$
Pstr_3 = Me.Дата_от
Rstr_4 = Me.Дата_до
Me.Filter = "[Kogda] between " & AmericanDate(pstr_3) & " and " & AmericanDate(pstr_4)
Me.FilterOn = True
End Sub
Public Function AmericanDate(date1 As Date) As String
' переводим дату в американский стандарт
AmericanDate = Format$(date1, "\#mm\/dd\/yy\#")
End Function

...

Рейтинг:

0 / 0

29.12.2018, 13:50

| Ответить | Цитировать | Написать

Определение формата переменной

#39754930

alecko

Участник

Откуда: Башкирия

Сообщения: 852

Рейтинг: 0 / 0

не проверил соответствие переменных, исправление
aleckoпопробуйте такой вариант, рекомендовал бы переименовать "дата" в например "Kogda" (в запросе .ControlSource)

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub кнопка_Click()
Dim Pstr_3$, Pstr_4$
Pstr_3 = Me.Дата_от
Pstr_4= Me.Дата_до
Me.Filter = "[Kogda] between " & AmericanDate(Pstr_3 ) & " and " & AmericanDate(Pstr_4)
Me.FilterOn = True
End Sub
Public Function AmericanDate(date1 As Date) As String
' переводим дату в американский стандарт
AmericanDate = Format$(date1, "\#mm\/dd\/yy\#")
End Function

...

Рейтинг:

0 / 0

29.12.2018, 13:51

| Ответить | Цитировать | Написать

Определение формата переменной

#39755004

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

Mikhail78,

Код: vbnet

1.
2.

DoCmd.ApplyFilter , "полеСдатой>=#" & format(me.ot,"mm\/dd\/yyyy") &
 "# and полеСдатой<=#" & format(me.do,"mm\/dd\/yyyy") & "#"

...

Рейтинг:

0 / 0

29.12.2018, 16:21

| Ответить | Цитировать | Написать

Определение формата переменной

#39755005

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

вдогонку:полеСдатой тип-дата/время

...

Рейтинг:

0 / 0

29.12.2018, 16:22

| Ответить | Цитировать | Написать

Определение формата переменной

#39755247

Eugene-LS

Гость

Код: vbnet

1.
2.
3.
4.

 	Me.Filter = "Дата Between " & _
 	Format$(Me!pstr_3, "\#mm\/dd\/yyyy\#") & _
	" And " & _
	Format$(Me!pstr_4, "\#mm\/dd\/yyyy\#")

...

Рейтинг:

0 / 0

31.12.2018, 03:48

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Определение формата переменной

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&tid=1610938]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	70ms
get topic data:	10ms
get forum data:	3ms
get page messages:	39ms
get tp. blocked users:	2ms
others:	310ms

total:	464ms