ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как оставить в полях формы последнее введенное значение?
25 сообщений из 26, страница 1 из 2
  1  все
Как оставить в полях формы последнее введенное значение?
    #32495572
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
У меня в форме пользователь вводит данные. Ввел какие-либо значения для всех полей, нажимает кнопку следующая запиь или создать запись, а по умолчанию во всех полях для новой записи остались заполненные поля, которые пользователь вводил в предыдущей записи.
Как это сделать, подскажите, пожалуйста?
...
Рейтинг: 0 / 0
24.04.2004, 23:07
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495584
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Как-то странно. Если поля связанные, и насильно не ставишь им .defaultvalue, то такого не должно быть.
...
Рейтинг: 0 / 0
24.04.2004, 23:27
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495594
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
2 Geo:
Вы меня неправильно поняли мне не избавиться от этого надо, а сделать надо, чтобы так работало.
...
Рейтинг: 0 / 0
24.04.2004, 23:39
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495598
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
после обновления данных на форме:
Me!myControl.DefaultValue=Me!myControl
...
Рейтинг: 0 / 0
24.04.2004, 23:55
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495882
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
У меня есть несколько полей, с некоторыми получается, а нектороые пишут #Имя?
Указывал все для всех полей так как сказано. Для числовых полей работает, а для текстовых нет. Скажите что делать?!?!??!?!
...
Рейтинг: 0 / 0
25.04.2004, 21:18
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495886
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Текстовые надо взять в кавычки.
...
Рейтинг: 0 / 0
25.04.2004, 21:29
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495898
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
А что именно надо взять в кавычки?
Беру в кавычки
Me!myControl.DefaultValue="Me!myControl"
и так:
Me!myControl.DefaultValue=Me!"myControl"
и еще по всякому разному,
но не работает.
Подскажите, пожалуйста, что я неправильно делаю?
...
Рейтинг: 0 / 0
25.04.2004, 22:06
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495899
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
О святая простота... Результат этой операции должен оказаться в кавычках, а не что-нибудь.

Me!myControl.DefaultValue="""" & Me!myControl & """"

Кстати, и внутри этого стринга неплохо бы кавычки удвоить, а то работать не будет.

Me!myControl.DefaultValue="""" & replace(Me!myControl, """", """""") & """"

И наконец: не худо бы перед всем проверить, не Null ли это значение:

if isnull(Me!myControl.value) then
Me!myControl.DefaultValue="Null"
else
все прочие проверки
...
Рейтинг: 0 / 0
25.04.2004, 22:11
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495903
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Он теперь ругается на Replace
...
Рейтинг: 0 / 0
25.04.2004, 22:22
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495904
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Какими словами?
...
Рейтинг: 0 / 0
25.04.2004, 22:36
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495908
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Ошибка компиляции:
Процедура Sub или Function не определена.
Юзаю Access 97, ругается именно на Replace. написал прямо как в ответе:
Me!MyControl.DefaultValue = """" & Replace(Me!MyControl, """", """""") & """"
...
Рейтинг: 0 / 0
25.04.2004, 22:43
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495912
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Угу. В 97 такого нет. Тогда напиши так:

Me!MyControl.DefaultValue = """" & DoubleQuote(Me!MyControl.value) & """"

Причем функцию DoubleQuote надо написать в модуле:

function DoubleQuote(s as string)as string
dim s0 as string,i as integer,c as string*1
s0=""
for i=1 to len(s)
c=mid(s,i,1)
s0=s0 & c
if c=""""then s0=s0 & c
next
DoubleQuote=s0
end function
...
Рейтинг: 0 / 0
25.04.2004, 22:55
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32495922
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Благодарю! Всё работает! Супер!
...
Рейтинг: 0 / 0
25.04.2004, 23:19
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529517
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
В продолжении темы.
Делаю кнопку на добавление записей Визардом:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Кнопка19_Click()
On Error GoTo Err_Кнопка19_Click
    DoCmd.GoToRecord , , acNewRec
Exit_Кнопка19_Click:
    Exit Sub
Err_Кнопка19_Click:
    MsgBox err.Description
    Resume Exit_Кнопка19_Click   
End Sub
Так вот, а как мне сделать, чтобы при нажатии на эту кнопку все поля очищались, а в дальнейшем, все последние введенные записи так же оставались в полях?
...
Рейтинг: 0 / 0
23.05.2004, 00:14
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529522
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Ишо раз, плиз... Что такое записи оставались в полях? И какие именно поля в новой (!) записи должны очищаться?
...
Рейтинг: 0 / 0
23.05.2004, 00:25
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529523
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Т.е. все работает, и все записи при добавлении новой записи остаются в полях, как последние введенные, а теперь мне нужно на кнопку добавления записи (это другая кнопка, специальная) поставить такой код, чтобы все записи из всех полей затирались, т.е. были пустыми.
>И какие именно поля в новой (!) записи должны очищаться?
Все поля должны очищаться, мне бы примерчик хотя бы для одного поля.
>Что такое записи оставались в полях?
Это значит, что все работало, так как работает, что очищать поля надо только для этой кнопки.
...
Рейтинг: 0 / 0
23.05.2004, 00:38
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529526
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
То есть чтобы одна кнопка добавляла запись с заполненными полями, а другая с пустыми???

Ну так очень просто:

me!полетакоето.defaultvalue=...
me!полетакоето.defaultvalue=...
me!полетакоето.defaultvalue=...
me!полетакоето.defaultvalue=...
me!полетакоето.defaultvalue=...
me!полетакоето.defaultvalue=...
me!полетакоето.defaultvalue=...
me!полетакоето.defaultvalue=...
me!полетакоето.defaultvalue=...
me!полетакоето.defaultvalue=...
DoCmd.GoToRecord , , acNewRec

Только у одной кнопки вместо многоточий будут null'ы, а у другой что-то другое.
...
Рейтинг: 0 / 0
23.05.2004, 00:51
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529528
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Да. Спасибо, большое, это я наверно устал и уже ничего не соображаю.
Мог бы и сам догадаться.
...
Рейтинг: 0 / 0
23.05.2004, 00:54
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529748
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Для Ac97.
Написал так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Добавить_магазин_Click()
On Error GoTo Err_Добавить_магазин_Click
Me!мое_поле.DefaultValue = ""
    DoCmd.GoToRecord , , acNewRec
Exit_Добавить_магазин_Click:
    Exit Sub   
Err_Добавить_магазин_Click:
    MsgBox err.Description
    Resume Exit_Добавить_магазин_Click    
End Sub
Access говорит "Объект не поддерживает это св-во или метод".
Написал так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Добавить_магазин_Click()
On Error GoTo Err_Добавить_магазин_Click
Me.мое_поле = ""
    DoCmd.GoToRecord , , acNewRec
Exit_Добавить_магазин_Click:
    Exit Sub    
Err_Добавить_магазин_Click:
    MsgBox err.Description
    Resume Exit_Добавить_магазин_Click   
End Sub
Access создает запись со всеми пустыми полями, а когда я начинаю вводить в эти поля значения, то Access просто создает новую запись, а запись со всеми пустыми полями оставляет. Т.е. получаются две записи, одна по клику кнопки со всеми пустыми значениями и одна со всеми введенными значениями. А должна получаться одна запись со всеми введенными значениями.

Что я неправильно пишу, подскажите, PLEASE ? ? ?
...
Рейтинг: 0 / 0
23.05.2004, 19:15
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529757
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
авторAccess говорит "Объект не поддерживает это св-во или метод".
На какой строке он это говорит, можно гадать произвольно?
...
Рейтинг: 0 / 0
23.05.2004, 19:40
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529763
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
На строке
Код: plaintext
Me!мое_поле.DefaultValue = ""
В общем, все конечно не так уж и плохо работает во втором варианте, только как сделать, чтобы не создавалось записи с пустыми значениями?
...
Рейтинг: 0 / 0
23.05.2004, 19:50
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529775
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Второй вариант не годится, потому что он затирает значение в текущей записи.

Для первого варианта предлагаю подвариант:

Me.Controls!мое_поле.DefaultValue = ""
...
Рейтинг: 0 / 0
23.05.2004, 20:38
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529784
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Код: plaintext
1.
Me![P_Test].DefaultValue = ""
иногда [] здорово помогают
...
Рейтинг: 0 / 0
23.05.2004, 21:26
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529808
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Да. Спасибо, получилось.
А как теперь написать эти три строчки, чтобы работало?
Код: plaintext
1.
2.
Me.Controls![поле_дата].DefaultValue = Now()
Me.Controls![поле_время].DefaultValue = # 12 : 00 : 00  AM#
Me.Controls![текстовое_поле].DefaultValue = "мой_текст"
Т.е. пустые поля Access таким образом заносит без проблем, а чтобы Access еще заносил какие-то значения в поля этим методом не получается.
...
Рейтинг: 0 / 0
23.05.2004, 22:40
| Ответить | Цитировать | Написать  
Как оставить в полях формы последнее введенное значение?
    #32529812
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Me.Controls![поле_дата].DefaultValue = "=Now()"
Me.Controls![поле_время].DefaultValue = "#12:00:00 AM#"
Me.Controls![текстовое_поле].DefaultValue = """" & DoubleQuote("мой_текст") & """"
...
Рейтинг: 0 / 0
23.05.2004, 22:46
| Ответить | Цитировать | Написать  
25 сообщений из 26, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как оставить в полях формы последнее введенное значение?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32529522&tid=1674425]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 165ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 196ms
total:  450ms
созд. / загр.: 450ms
x
x
Закрыть


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