Run-time error 3075 / Microsoft Access

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Run-time error 3075

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

Run-time error 3075

#39475957

blackbuster

Гость

всем привет
есть простейшая процедура (отрывок):

Код: vbnet

1.
2.
3.
4.
5.
6.

Private Sub Data_Exit(Cancel As Integer)
Dim Zavod As Integer
Dim LastData As Date
Zavod = DLookup("код_завода", "заводы")
LastData = DLast("[data]", "diap")
If IsNull(Me.Diametr) Then Me.Diametr = DLookup("diametr", "diap", "[2Weld] = false and [код_завода] = " & Zavod & " and [data] = " & LastData)

msgbox LastData дает корректное значение даты, однако при обработке процедуры вылетает ошибка (см. вложение), в которой видно, что дата обрезана.

...

Рейтинг:

0 / 0

22.06.2017, 09:31:59

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

Run-time error 3075

#39475960

blackbuster

Гость

Собственно, где я что упустил? )

...

Рейтинг:

0 / 0

22.06.2017, 09:35:05

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

Run-time error 3075

#39475963

$\\\\$

\\\\

Гость

blackbuster, FAQ/MS Access/Формирование строки SQL-запроса в VBA

...

Рейтинг:

0 / 0

22.06.2017, 09:38:14

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

Run-time error 3075

#39475966

blackbuster

Гость

в приведенной процедуре присутствует SQL-запрос?

...

Рейтинг:

0 / 0

22.06.2017, 09:45:44

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

Run-time error 3075

#39475980

guest_rusimport

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.

Private Sub Data_Exit(Cancel As Integer)
Dim Zavod As Integer
Dim LastData As Date
Zavod = DLookup("[код_завода]", "заводы")
LastData = DLast("[data]", "diap")
If IsNull(Me.Diametr) Then Me.Diametr = DLookup("diametr", "diap", "[2Weld] = false and [код_завода] = " & Zavod & " and [data] = #" & Format(LastData, "mm\/dd\/yyyy") & "#")

...

Рейтинг:

0 / 0

22.06.2017, 10:04:35

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

Run-time error 3075

#39475987

$\\\\$

\\\\

Гость

blackbuster, если ткнули, то не плохо бы и прочитать, а не рассуждать есть в процедуре запрос или нет.
Фактически он есть.

...

Рейтинг:

0 / 0

22.06.2017, 10:13:10

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

Run-time error 3075

#39475991

$\\\\$

\\\\

Гость

blackbuster,

Код: vbnet

DLookup("diametr", "diap", "[2Weld] = false and [код_завода] = " & Zavod & " and [data] = #" & Format(LastData, "mm\/dd\/yyyy") & "#")

равно

Код: sql

SELECT diametr FROM diap WHERE [2Weld] = false and [код_завода] = " & Zavod & " and [data] = #" & Format(LastData, "mm\/dd\/yyyy") & "#"

...

Рейтинг:

0 / 0

22.06.2017, 10:17:28

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

Run-time error 3075

#39476006

blackbuster

Гость

Спасибо, не знал
в таком виде работает

...

Рейтинг:

0 / 0

22.06.2017, 10:32:51

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Run-time error 3075

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

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

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

start [/forum/topic.php?fid=45&gotonew=1&tid=1612321]:	0ms
get settings:	11ms
get forum list:	17ms
check forum access:	4ms
check topic access:	4ms
track hit:	216ms
get topic data:	14ms
get first new msg:	9ms
get forum data:	4ms
get page messages:	55ms
get tp. blocked users:	2ms
others:	234ms

total:	570ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы