powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Напоминанме в ACCESS! Как сделать?!
18 сообщений из 18, страница 1 из 1
Напоминанме в ACCESS! Как сделать?!
    #32783210
5aciJIa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Заранее прошу прощение если такой вопрос уже рассматривался! Просто не было времени искать нужный топик, сорри!

Суть вопроса - я не очень сильно разбираюсь в аксессе, но возникла необходимость, точнее две:
- обнулить встроенный счётчик в имеющейся базе данных (собственно даже не знаю как это сделать чтоб при очистке и удалении всех данных из базы при новой вбивке нумерация опять с 1 начиналась)
- возможно ли это и если да, то как - сделать напоминалку в базе. Т.е. ввёл сообщение и чтоб при входе через 15 дней оно напомнило о своём существовании. Как лучше решить этот вопрос - посредством встроенных возможностей либо посредством других программ. НО!!! Желательно что бы это было просто и доступно любому менеджеру на рабочем месте (да и мне тоже =) а то ведь могу и не понять чего нить)

Заранее благодарен!!!
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32783212
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
5aciJIa- обнулить встроенный счётчик в имеющейся базе данных (собственно даже не знаю как это сделать чтоб при очистке и удалении всех данных из базы при новой вбивке нумерация опять с 1 начиналась)
http://www.sql.ru/faq/faq_topic.aspx?fid=214
вопрос 2.

5aciJIa- возможно ли это и если да, то как - сделать напоминалку в базе. Т.е. ввёл сообщение и чтоб при входе через 15 дней оно напомнило о своём существовании. Как лучше решить этот вопрос - посредством встроенных возможностей либо посредством других программ. НО!!! Желательно что бы это было просто и доступно любому менеджеру на рабочем месте (да и мне тоже =) а то ведь могу и не понять чего нить)
1. Заводим локальную таблицу (можно просто с 2 полями (дата-время и текст) и одной записью).
2. Ввод сообщения заносится в эту таблицу.
3. При входе в программу идет проверка: сравнить то, что в таблице, с текущим в ременем и датой и при соблюдении условия про 15 дней выдать сообщение о том, что отсидевшие 15 суток могут выходить на свободу, и стереть это из таблицы.
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32783220
5aciJIa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
[quot Владимир Саныч
1. Заводим локальную таблицу (можно просто с 2 полями (дата-время и текст) и одной записью).
2. Ввод сообщения заносится в эту таблицу.
3. При входе в программу идет проверка: сравнить то, что в таблице, с текущим в ременем и датой и при соблюдении условия про 15 дней выдать сообщение о том, что отсидевшие 15 суток могут выходить на свободу, и стереть это из таблицы.[/quot]

прошу прощения, а как именно заставить прогу сверять данные в оной таблице (с датой, временем и записью) с нынешней датой? вот это у меня и вызывает основное затруднение
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32783243
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
5aciJIaпрошу прощения, а как именно заставить прогу сверять данные в оной таблице (с датой, временем и записью) с нынешней датой? вот это у меня и вызывает основное затруднение
dlookup - чтобы получить значение из таблицы
now или date - текущая дата вместе с временем или без него
datediff или dateadd - чтобы сравнить или прибавить/отнять
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32785438
5aciJIa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
нях ... сложно, простите, для невооружённого глаза =) может код подкините? а то мне как то даже страшновато через вижуал там чтото изменять, мало представляя что именно
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32792596
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вам же все дали, что нужно по этому вопросу! За четыре дня можно было наизусть выучить справки по каждой из приведенных фунций.

Код: plaintext
1.
2.
3.
4.
if not isnull(dlookup("поледаты","таблица","поледаты<#" & format(date(),"mm-dd-yyyy"))) then
  msgbox dlookup("поленапоминания","таблица","поледаты<#" & format(date(),"mm-dd-yyyy"))
  currentdb.execute "delete * from таблица where поледаты<#" & format(date(),"mm-dd-yyyy")
endif
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32795888
5aciJIa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
GeoВам же все дали, что нужно по этому вопросу! За четыре дня можно было наизусть выучить справки по каждой из приведенных фунций.

Код: plaintext
1.
2.
3.
4.
if not isnull(dlookup("поледаты","таблица","поледаты<#" & format(date(),"mm-dd-yyyy"))) then
  msgbox dlookup("поленапоминания","таблица","поледаты<#" & format(date(),"mm-dd-yyyy"))
  currentdb.execute "delete * from таблица where поледаты<#" & format(date(),"mm-dd-yyyy")
endif


большое спасибо!

ЗЫ ... проверить мог, но, к сожлению, времени не было
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32795909
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
заодно ошибки поправлю, какие вижу:
Код: plaintext
1.
2.
3.
4.
if not isnull(dlookup("поледаты","таблица","поледаты<#" & format(date(),"mm-dd-yyyy") & "#")) then
  msgbox dlookup("поленапоминания","таблица","поледаты<#" & format(date(),"mm-dd-yyyy") & "#")
  currentdb.execute "delete * from таблица where поледаты<#" & format(date(),"mm-dd-yyyy")  & "#"
endif
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32796398
5aciJIa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Прошу прощения, а куди именно мне сие помещать? У меня запускается кнопочная форма. Вот где именно код врезать? и ещё одно - как я понял описания типа "поледаты" "таблица" и т.д. мне или такими же забивать в таблицу, либо менять на свои названия. Ну и соответственно в коде то же самое. И неужели их никак в коде выделять не нужно? прямо вот в таком виде как у Вас?

Извините за кучу ламмерских вопросов
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32796423
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторПрошу прощения, а куди именно мне сие помещать? У меня запускается кнопочная форма. Вот где именно код врезать?
Конструктор формы - Меню Вид - Свойства - Вкладка События.
По желанию либо на открытие (F1), либо на таймеp (F1), либо еще куда.

автор ещё одно - как я понял описания типа "поледаты" "таблица" и т.д. мне или такими же забивать в таблицу, либо менять на свои названия
Менять на свои названия (F1)
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32796524
5aciJIa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так! Чтоб я Вас больше дурацкими вопросами не муча, давайте так - Вы мне тыкните курсором мышки куда вставлять и как всё это выглядеть будет, а то я, как ни стараюсь, пока въехать не могу (за пивком надо бы сгонять ;) ) . Вот самое начала кода моей Кнопочной Формы. Тут он фроде как сворачивает окошко с "таблицами, запросами и т.д." .. КУДА?

------------------------------------------------
Option Compare Database



Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.

Dim dbs As Database
Dim rst As Recordset

On Error GoTo Form_Open_Err

' Minimize the database window.
DoCmd.SelectObject acForm, "Êíîïî÷íàÿ ôîðìà", True
DoCmd.Minimize

' Make sure we have company information
DoCmd.Hourglass False
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Ñâåäåíèÿ îá îðãàíèçàöèè")
If rst.RecordCount = 0 Then
rst.AddNew
rst![Àäðåñ] = Null
rst.Update
MsgBox "Ïåðåä èñïîëüçîâàíèåì ïðèëîæåíèÿ íåîáõîäèìî ââåñòè íàçâàíèå, àäðåñ è äîïîëíèòåëüíûå ñâåäåíèÿ îá îðãàíèçàöèè."
DoCmd.OpenForm "Ñâåäåíèÿ îá îðãàíèçàöèè", , , , , acDialog
End If
rst.Close
dbs.Close

' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Ïî óìîë÷àíèþ' "
Me.FilterOn = True

Form_Open_Exit:
Exit Sub

Form_Open_Err:
MsgBox Err.Description
Resume Form_Open_Exit


End Sub

----------------------------------------------
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32796576
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Cделайте таблицу для напоминаний с ключевым полем, и выложите сюда ее имя/поля.
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32797797
5aciJIa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
собственно, создал таблицу, имя ей ТАБЛИЦА, с полями ПОЛЕДАТЫ и ПОЛЕНАПОМИНАНИЯ (с ключевым полем/счётчиком)
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32797803
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
5aciJIa(с ключевым полем/счётчиком)
... имя ему ... ?
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32797884
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Обойдемся без него. Примерно так (не проверяю):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub CheckBell()
  Dim i As Long
  Dim rs As DAO.Recordset
  
  Set rs = CurrentDb.OpenRecordset("ТАБЛИЦА")
  If rs.RecordCount =  0  Then Exit Sub
  rs.MoveLast: rs.MoveFirst
  rs.FindFirst "ПОЛЕДАТЫ<=#" & Format(Date, "mm-dd-yyyy") & "#"
  Do Until rs.NoMatch
    MsgBox rs![ПОЛЕНАПОМИНАНИЯ], vbInformation, rs![ПОЛЕДАТЫ]
    rs.Delete
    rs.FindFirst "ПОЛЕДАТЫ<=#" & Format(Date, "mm-dd-yyyy") & "#"
  Loop
End Sub

Эту процедуру положить в конце модуля формы. В процедуре Forms_Open в любом месте написать

CheckBell
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32797932
5aciJIa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вставил в конце всего кода моей кнопочной формы, прописал сразу после

Private Sub Form_Open(Cancel As Integer)

CheckBell

при запуске Ран-Тиме Еррор 3251

???
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32797949
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
эту строчку поправьте:

Set rs = CurrentDb.OpenRecordset("ТАБЛИЦА", dbOpenDynaset)
...
Рейтинг: 0 / 0
Напоминанме в ACCESS! Как сделать?!
    #32798062
5aciJIa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Клёво! пока работает, не глючит =) Огромное СПАСИБО!!!
...
Рейтинг: 0 / 0
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Напоминанме в ACCESS! Как сделать?!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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