Вопрос № 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.
С уважением
Анатолий
Отвечает: 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 - если число сделать нельзя, т. е. там есть буквы.
--------- Учиться никогда не поздно. Особенно программированию!