Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 477
от 10.02.2007, 13:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 241, Экспертов: 33
В номере:Вопросов: 1, Ответов: 1


Вопрос № 74209: Прошу подскажите Я создаю базу данных на MS accesse в поле Berstdate (дата рождения) я хотел что бы в accesse сама определяла возраст И СОХРАНЯЛА В ОСНОВНОМ ТАБЛИЦЕ и ещё 2 вопрос по улицам в основном таблице пасиент указал ...

Вопрос № 74.209
Прошу подскажите
Я создаю базу данных на MS accesse
в поле Berstdate (дата рождения) я хотел что бы в accesse сама определяла возраст И СОХРАНЯЛА В ОСНОВНОМ ТАБЛИЦЕ

и ещё 2 вопрос
по улицам
в основном таблице пасиент указал в поле ylisa и составил ещё одну таблицу это справочник по улицам и назвал таблицу ylissa
в форме поставил поле со списком
но проблема в том что если в поле со списком нет такого улицы то
приходится закрывать форму и открыть форму справочников и там указать адрес после этого открываю основную форму и там указывается
можно ли сделать так что бы если в справочнике нет улиц то не закрываю форму она сама добавляла т.е. выходит сообщение
НЕТ В СПИСКЕ УЛИЦЫ ХОТИТЕ ДОБАВИТЬ
ДА НЕТ

ЗАРАНЕЕ БЛОГАДАРЕН

Отправлен: 05.02.2007, 12:46
Вопрос задал: Ибрашев Ербол Амангельдиевич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Ибрашев Ербол Амангельдиевич!
"В ОСНОВНОМ ТАБЛИЦЕ" у Вас сохраняется дата #День рождения#, возраст меняется каждый день и регистрировать его не обязательно, можно просто подсчитать его например так - Year(Date()-Berstdate).
По второму вопросу: у поля со списком есть "событие" Отсутствие в списке (NotInList) его можно использовать для записи нового значения, в Вашем случае в таблицу с названиями улиц. Проще не делать отдельную таблицу, а хранить справочник в основной оставляя пустыми остальные поля, источником строк для поля со списком будет запрос:
SELECT DISTINCT ylisa FROM [основная таблица] ORDER BY ylisa
Но не забудьте обновлять запрос, это можно делать с помощью "события" Текущая запись (Current):
Private Sub Form_Current()
ylisa.Reqery
End Sub
Удачи.
Евгений.
Ответ отправил: Тесленко Евгений Алексеевич (статус: 4-ый класс)
Ответ отправлен: 05.02.2007, 22:04
Оценка за ответ: 5


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.44 beta от 26.01.2007
Яндекс Rambler's Top100

В избранное