Значение полей формы из предыдущей записи / Microsoft Access

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

25 сообщений из 28, страница 1 из 2

все

Значение полей формы из предыдущей записи

#39390880

Гость

Здравствуйте. Помогите, пожалуйста, решить задачу.

Есть форма, поля ID, a и b.
ID - счетчик
a - число
b - текстовое

Нужно, чтобы при создании новой записи, предыдущие данные полей a и b появлялись по умолчанию в соответствующих полях формы.
Сортировка происходит по полю ID.
Данные в поле ID не непрерывные - некоторые записи периодически удаляются.
После создания новой записи, нужно, чтобы данные полей a и b можно было редактировать.
Вариант поставить на событие Выход Me![a].DefaultValue = Me![a].Value не проходит, так как предполагает создание новой записи вслед за текущей. В моем варианте новая запись может быть создана при нахождении в любой записи.
В запросе работает:
DLookUp("[a]";"Data";"ID=" & DMax("ID";"Data";"ID<" & [Data].[ID])) As d
Но тут данные кладутся в другое поле (d), а мне надо, чтобы появлялись в поле a (числовом), и чтоб потом его отредактировать можно было.
Так же и с полем b (текстовым).
База во вложении.

...

Рейтинг:

0 / 0

25.01.2017, 11:22

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

Значение полей формы из предыдущей записи

#39390923

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

HB,

Код: vbnet

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

Private Sub Form_Current()
    If Me.NewRecord Then
        With Me.RecordsetClone
            If Not (.BOF And .EOF) Then
                .MoveLast
                Me.a.DefaultValue = CStr(Nz(.Fields("a"), 0))
                Me.b.DefaultValue = """" & Nz(.Fields("b"), vbNullString) & """"
            End If
        End With
    End If
End Sub

...

Рейтинг:

0 / 0

25.01.2017, 11:59

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

Значение полей формы из предыдущей записи

#39390944

Анатолий ( Киев )

Гость

Например:
1. На Form_Load перейти на последнюю запись в RecordsetClone и присвоить значения DefaultValue контролов.
2. На Form_AfterInsert присвоить DefaultValue значения из добавленной записи.

...

Рейтинг:

0 / 0

25.01.2017, 12:10

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

Значение полей формы из предыдущей записи

#39390951

Гость

Панург , Респект! Дай Бог здоровья! Работает как надо.

...

Рейтинг:

0 / 0

25.01.2017, 12:16

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

Значение полей формы из предыдущей записи

#39390983

Гость

Упс... если a - Двойное с плавающей точкой, то не работает(((

...

Рейтинг:

0 / 0

25.01.2017, 12:37

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

Значение полей формы из предыдущей записи

#39391026

Анатолий ( Киев )

Гость

HBУпс... если a - Двойное с плавающей точкой, то не работает(((
Вероятно у вас десятичный разделитель - запятая. А дробное число должно в это свойство попадать с точкой.
А так?
Me.a.DefaultValue = Trim( Str (.Fields("a") & ""))

...

Рейтинг:

0 / 0

25.01.2017, 12:59

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

Значение полей формы из предыдущей записи

#39391044

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Анатолий ( Киев ),

не очень корректно выглядит

?"a=" & str(1/3)
a= .333333333333333

...

Рейтинг:

0 / 0

25.01.2017, 13:10

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

Значение полей формы из предыдущей записи

#39391048

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Анатолий ( Киев ),

все 3 варианта

?"a=" & str(cdbl(1/3)),"" & 1/3, replace("" & 1/3,",",".")
a= .333333333333333 0,333333333333333 0.333333333333333

...

Рейтинг:

0 / 0

25.01.2017, 13:13

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

Значение полей формы из предыдущей записи

#39391242

Гость

Вот так работает. Спасибо колллеге Панургу

Код: vbnet

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

Private Sub Form_Current()
    If Me.NewRecord Then
       With Me.RecordsetClone
            If Not (.BOF And .EOF) Then
                .MoveLast
                Me.a.DefaultValue = Replace(CStr(Nz(.Fields("a"), 0)), ",", ".")
                Me.b.DefaultValue = """" & Nz(.Fields("b"), vbNullString) & """"
            End If
        End With
    End If
End Sub

...

Рейтинг:

0 / 0

25.01.2017, 15:22

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

Значение полей формы из предыдущей записи

#39391287

Анатолий ( Киев )

Гость

HBMe.a.DefaultValue = Replace(CStr(Nz(.Fields("a"), 0)), ",", ".") Если поле было пустым, то в новую запись будет подставляться 0. Вас это устраивает?
HBMe.b.DefaultValue = """" & Nz(.Fields("b"), vbNullString) & """" Стоило бы проверить ситуацию, если внутри текста есть кавычки.

"Двойное с плавающей точкой" не лучший числовой тип. Какое назначение поля?

...

Рейтинг:

0 / 0

25.01.2017, 16:05

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

Значение полей формы из предыдущей записи

#39391321

Гость

Анатолий ( Киев ) Большое спасибо. Я взял на заметку Ваши рекомендации. Моя больная голова до реплейса почему-то не додумалась)))

Если поле было пустым, то в новую запись будет подставляться 0. Вас это устраивает?

Да, поле не может быть пустым, но идею понял, спасибо!

"Двойное с плавающей точкой" не лучший числовой тип. Какое назначение поля?

Поле досталось по наследству, пока не знаю, какое может быть максимальное значение. Но также благодарю за подсказку, если окажется, что слишком громоздко, переделаю на одинарное.

...

Рейтинг:

0 / 0

25.01.2017, 16:43

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

Значение полей формы из предыдущей записи

#39391377

Анатолий ( Киев )

Гость

HBПоле досталось по наследству, пока не знаю, какое может быть максимальное значение. Но также благодарю за подсказку, если окажется, что слишком громоздко, переделаю на одинарное. Одинарное еще хуже. Если в поле указываются цена/сумма, то тип лучше "Денежный".

...

Рейтинг:

0 / 0

25.01.2017, 17:27

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

Значение полей формы из предыдущей записи

#39391424

sdku

Участник

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

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

Рейтинг: 0 / 0

Выдержка из HELP : Совет. Денежный тип данных рекомендуется использовать для полей, в которых планируется хранить числовые значения с одним-четырьмя знаками в дробной части. При обработке значений полей типа «С плавающей точкой (4 байт)» (Single) и «С плавающей точкой (8 байт)» (Double) выполняются вычисления с плавающей точкой. Для значений денежных полей используются более быстрые вычисления с фиксированной точкой.

...

Рейтинг:

0 / 0

25.01.2017, 18:01

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

Значение полей формы из предыдущей записи

#39391432

Гость

Анатолий ( Киев )Одинарное еще хуже. Если в поле указываются цена/сумма, то тип лучше "Денежный".

Одно из полей - денежное. Остальные значения. Денежное тоже нормально работает. Все работает как надо! Спасибо!!!

...

Рейтинг:

0 / 0

25.01.2017, 18:08

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

Значение полей формы из предыдущей записи

#39391494

Гость

Столкнулся с другой проблемой.

При создании новой записи все поля формы заполняются из предыдущей записи, однако, встречаются ситуации, когда ничего менять в полях не надо. Однако, по понятным причинам, пока запись не редактируется, она в таблицу не заносится.

Что, коллеги, посоветуете, кнопочку ли поставить, чтобы данные из формы переносила в таблицу, или какой другой вариант?

...

Рейтинг:

0 / 0

25.01.2017, 19:00

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

Значение полей формы из предыдущей записи

#39391662

sdku

Участник

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

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

Рейтинг: 0 / 0

HB,
как вариант-источник формы запрос с TOP 1 (с соответствующей сортировкой или отбором);редактирование;сохранение записи в таблицу при закрытии формы

...

Рейтинг:

0 / 0

25.01.2017, 22:51

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

Значение полей формы из предыдущей записи

#39391710

Гость

sdkuHB,
как вариант-источник формы запрос с TOP 1 (с соответствующей сортировкой или отбором);редактирование;сохранение записи в таблицу при закрытии формы

Так я не хочу закрывать форму, а хочу перейти на новую запись. А сейчас не могу...

...

Рейтинг:

0 / 0

26.01.2017, 01:55

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

Значение полей формы из предыдущей записи

#39391717

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

HBкнопочку ли поставить, чтобы данные из формы переносила в таблицу, или какой другой вариант?Тут как тебе удобно (я не знаю, ни как это выглядит (стиль), ни какие задачи) - кнопочку поставь, лови нажатие спец. клавиши и т.д.
HBПри создании новой записи все поля формы заполняются из предыдущей записи, однако, встречаются ситуации, когда ничего менять в полях не надо. Однако, по понятным причинам, пока запись не редактируется, она в таблицу не заносится.И что? Ты хочешь чтобы добавилось само? Тут всё просто - в процедуре события вышеназванных объектов пробегись по контролам (по тем где значения есть!) и присвой им их дефолтное значение. Далее сохрани новую запись

Код: vbnet

Me.Dirty = False

Усё.

...

Рейтинг:

0 / 0

26.01.2017, 04:04

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

Значение полей формы из предыдущей записи

#39392133

Гость

Панург
И что? Ты хочешь чтобы добавилось само? Тут всё просто - в процедуре события вышеназванных объектов пробегись по контролам (по тем где значения есть!) и присвой им их дефолтное значение. Далее сохрани новую запись

Код: vbnet

Me.Dirty = False

Усё.

Погоди, мы же и так присваиваем этим полям дефолты

Код: vbnet

Me.a.DefaultValue = Replace(CStr(Nz(.Fields("a"), 0)), ",", ".")

Ты прости, пожалуйста, я тут с питона))) Логика немного другая... Если мы контролу присвоили уже дефолтное значение откуда тут появится Dirty?

...

Рейтинг:

0 / 0

26.01.2017, 15:07

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

Значение полей формы из предыдущей записи

#39392182

Анатолий ( Киев )

Гость

HBвстречаются ситуации, когда ничего менять в полях не надо. Однако, по понятным причинам, пока запись не редактируется, она в таблицу не заносится. Так надо начать редактирование. Например скопировать/вставить значение или добавить в конце текста пробел.

...

Рейтинг:

0 / 0

26.01.2017, 15:38

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

Значение полей формы из предыдущей записи

#39392337

Гость

Анатолий ( Киев )Так надо начать редактирование. Например скопировать/вставить значение или добавить в конце текста пробел.

Это понятно, только тут появляется опасность ошибки оператора, например, забудет убрать пробел, или откопипастит не то... и тогда в первом случае данные по полю уже не сгруппировать, а во втором вообще непонятно что произойдет, но точно, ничего хорошего.

...

Рейтинг:

0 / 0

26.01.2017, 17:23

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

Значение полей формы из предыдущей записи

#39392416

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

И пробела не нужно - достаточно нажать Enter, находясь в любом поле новой записи.
Запись "оживет", и можно ее сохранить, перейдя, например, в предыдущую запись или в любую другую.

Можно сымитировать нажатие Enter через SendKeys, а затем сразу выполнить Dirty=False.
Но это сомнительный способ, хотя бы потому, что начиная с Win7 операц. система трактует SendKeys
как "потенциально вредоносную" команду (просто так, на всякий случай) и нужно проделать
предварительно некоторые манипуляции с учетной записью пользователя, чтобы SendKeys работала.

...

Рейтинг:

0 / 0

26.01.2017, 18:55

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

Значение полей формы из предыдущей записи

#39392428

Гость

Вот решение:

Код: vbnet

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

Private Sub Form_Current()
    If Me.NewRecord Then
       With Me.RecordsetClone
            If Not (.BOF And .EOF) Then
                .MoveLast
                Me.a.DefaultValue = Replace(CStr(Nz(.Fields("a"), 0)), ",", ".")
                Me.b.DefaultValue = """" & Nz(.Fields("b"), vbNullString) & """"
                Me.a.Value = Me!a
                Me.b.Value = Me!b
            End If
        End With
    End If
End Sub

Спасибо коллеге Панургу .
Как только мы присваиваем значению поля его дефолтное значение Me.a.Value = Me!a, тут же происходит инициализация записи данных в таблицу. Вуаля)))

...

Рейтинг:

0 / 0

26.01.2017, 19:06

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

Значение полей формы из предыдущей записи

#39392429

Гость

Думаю, даже без поля b обойтись!

...

Рейтинг:

0 / 0

26.01.2017, 19:07

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

Значение полей формы из предыдущей записи

#39392435

Гость

Финальная рабочая версия скрипта:

Код: vbnet

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

Private Sub Form_Current()
    If Me.NewRecord Then
       With Me.RecordsetClone
            If Not (.BOF And .EOF) Then
                .MoveLast
                Me.a.DefaultValue = Replace(CStr(Nz(.Fields("a"), 0)), ",", ".")
                Me.b.DefaultValue = """" & Nz(.Fields("b"), vbNullString) & """"
                Me.a.Value = Me!a
            End If
        End With
    End If
End Sub

...

Рейтинг:

0 / 0

26.01.2017, 19:29

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

25 сообщений из 28, страница 1 из 2

все

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

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

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

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

start [/forum/topic.php?fid=45&fpage=84&tid=1612771]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	24ms
get topic data:	10ms
get forum data:	2ms
get page messages:	76ms
get tp. blocked users:	2ms
others:	14ms

total:	154ms