Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задачка на VB-6 или SQL? 
:(
    Опции темы
kivan
  Дата 1.5.2006, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 17.10.2005

Репутация: нет
Всего: нет
Доброго дня всем!!
База тех же сотрудников!
Имеются поля "День рождения(дата)","Песионер(логический)"
Как сделать так,чтобы при заполнении поля "День рождения",он автоматически проставлял галочку в поле,"Песионер" При условии,что женщина выходит на пенсию в 55 лет, а мужчина в 60.
Если можно примерчик,пожалуйста... smile  
--------------------
#----------------------------------------------------------#A little knowledge is a dangerous thing...!!!senatum.blogspot.com
PM MAIL WWW ICQ   Вверх
Akina
Дата 2.5.2006, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Где происходит заполнение (в таблице, в форме, программно, еще где)?
Откуда возьмется пол? или есть такое поле?
Какой в этом вообще смысл (у меня есть не один знакомый-пенсионер в возрасте менее 50 лет...)? 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kivan
Дата 2.5.2006, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 17.10.2005

Репутация: нет
Всего: нет
Цитата(Akina @  2.5.2006,  13:34 Найти цитируемый пост)
Где происходит заполнение

 в форме.

Цитата(Akina @  2.5.2006,  13:34 Найти цитируемый пост)
Откуда возьмется пол? или есть такое поле?

Да.

Цитата(Akina @  2.5.2006,  13:34 Найти цитируемый пост)
Какой в этом вообще смысл (у меня есть не один знакомый-пенсионер в возрасте менее 50 лет...)? 

Я пример привел, может и 60, 65,неважно.А смысл в том чтобы, автоматизировать систему, чтобы она сама просчитывала и проставляла (Да/Нет).в форму smile

Добавлено @ 13:50 
Цитата(Akina @  2.5.2006,  13:34 Найти цитируемый пост)
(у меня есть не один знакомый-пенсионер в возрасте менее 50 лет...)?  


Akina, не совсем понял smile   

Это сообщение отредактировал(а) kivan - 2.5.2006, 14:11
--------------------
#----------------------------------------------------------#A little knowledge is a dangerous thing...!!!senatum.blogspot.com
PM MAIL WWW ICQ   Вверх
Akina
Дата 2.5.2006, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Цитата(kivan @  1.5.2006,  15:18 Найти цитируемый пост)
Как сделать так,чтобы при заполнении поля "День рождения",он автоматически проставлял галочку в поле,"Песионер" При условии,что женщина выходит на пенсию в 55 лет, а мужчина в 60.

Код
' draft code
Private Sub ДеньРождения_change()
Age = DateDiff("yyyy", ДеньРождения.Value, BirthDate)
If ( Пол.Value = "М" AND Age >= 60 ) Or ( Пол.Value = "Ж" AND Age >= 55 ) Then
   Пенсионер.Value=True
End If
End Sub

Цитата(kivan @  2.5.2006,  14:49 Найти цитируемый пост)
не совсем понял 

А чего понимать? На пенсию можно выйти гораздо раньше указанного тобой срока.   


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kivan
Дата 9.5.2006, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 17.10.2005

Репутация: нет
Всего: нет
Код

Private Sub ДатаРождения_Change()
Dim Age As Variant
Age = DateDiff("yyyy", ДатаРождения.Value, Now)
If (Пол.Value = "М" And Age >= 60) Or (Пол.Value = "Ж" And Age >= 55) Then
  Пенсионер.Value = True
ElseIf (Пол.Value = "М" And Age < 60) Or (Пол.Value = "Ж" And Age < 55) Then
    Пенсионер.Value = False
End If
End Sub


 Сделал так, но почему то работает через раз!
 В чем может быть причина smile  
--------------------
#----------------------------------------------------------#A little knowledge is a dangerous thing...!!!senatum.blogspot.com
PM MAIL WWW ICQ   Вверх
Akina
Дата 10.5.2006, 10:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Цитата(kivan @  9.5.2006,  23:31 Найти цитируемый пост)
Сделал так, но почему то работает через раз!
 В чем может быть причина

Трассируй, разбирайся... 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
ustas
Дата 1.6.2006, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 6.12.2004

Репутация: нет
Всего: нет
Цитата(kivan @ 1.5.2006,  14:18)
Имеются поля "День рождения(дата)","Песионер(логический)"

А зачем иметь поле "Пенсионер", если есть поле "ДеньРождение" и правило "женщина выходит на пенсию в 55 лет, а мужчина в 60". Не проще выводить всех пенсионеров запросом. При этом не нужно корректировать поле "Пенсионер" для запоненных сотрудников, выходящих на пенсию. 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1014 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.