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

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


Информационный Канал Subscribe.Ru

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

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

Выпуск № 215
от 05.02.2006, 10:42

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


Вопрос № 34475: Добрый день всем! Суть вопроса такова: на форме вносится информация об абитуриентах в БД Access. Для внесения информации о серии и № паспорта: нового образца (00 00 000000) - заполняется в MaskEdBox1 маска ввода – “## ## ######”, а данные старого...

Вопрос № 34.475
Добрый день всем!
Суть вопроса такова: на форме вносится информация об абитуриентах в БД Access. Для внесения информации о серии и № паспорта: нового образца (00 00 000000) - заполняется в MaskEdBox1 маска ввода – “## ## ######”, а данные старого образца, где есть буквы или паспорта из СНГ , вносятся в TextBox1. Здесь вопросов нет.
При просмотре записей БД
--------
Text1.Visible=False ( т.к. паспорта старого образца – очень редко)
MaskEdBox1.Visible=True
--------
Нельзя ли написать код как-нибудь так (при просмотре):
--------
Private Data1_Reposition()' (или в другом месте)
If "№паспорта" имеет кроме цифр и буквы Then
TextBox1.Visible=True
MaskEdBox1.Visible=False
Else
…наоборот…
End If
End Sub
---------
Программа написана на VB6
Б/Д - Access
Подскажите, pse.
С уважением
Анатолий

Отправлен: 31.01.2006, 10:41
Вопрос задал: Робатько Анатолий Васильевич (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: DrakoN
Здравствуйте, Робатько Анатолий Васильевич!
Сделайте проще например так, добавьте поле типа boolean в таблицу..
Затем при вводе данных
If TextBox1.Text = "" tnen
Bool = false Else Bool = True
End if

И потом при выводе..
If Data1.Recordset.Field(i) = True Then ... помойму так ...с синтаксисом обращения мог напутать давно не пользовался етим делом.
Удачи!

---------
От Винта!
Ответ отправил: DrakoN (статус: 10-ый класс)
Отправлен: 31.01.2006, 11:28

Отвечает: EPsilonDSota
Здравствуйте, Робатько Анатолий Васильевич!

IF ISNUMERIC(<НАЗВАНИЕ ТВОЕЙ ПЕРЕМЕННОЙ С НОМЕРОМ ПАСПОРТА>)THEN
TEXTBOX1.VISIBLE=FALSE
...
ELSE
...
ENDIF

---------
Открыть глаза навстречу солнцу
Ответ отправил: EPsilonDSota (статус: Практикант)
Отправлен: 31.01.2006, 12:51
Оценка за ответ: 5

Отвечает: Залетин Виталий Викторович
Здравствуйте, Робатько Анатолий Васильевич!
Используйте функцию Isnumeric(var) - она вернет True, если там только цифры, т. е. из него можно сделать число, и False - если число сделать нельзя, т. е. там есть буквы.
---------
Учиться никогда не поздно. Особенно программированию!
Ответ отправил: Залетин Виталий Викторович (статус: Студент)
Отправлен: 04.02.2006, 14:23


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

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

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

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

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


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


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

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Архив рассылки
Отписаться Вебом Почтой
Вспомнить пароль

В избранное