-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


ññûëêà íà ïîëå èëè íà òàáëèöó -÷òî âîçâðàùàåò çíà÷åíèå

Ñðåäà, 17 Ñåíòÿáðÿ 2014 ã. 11:44 + â öèòàòíèê
íå ðàáîòàåò òàêîé êîä, íå îòîáðàæàåò íàäïèñü â çàâèñèìîñòè îò çíà÷åíèÿ ïîëÿ (÷èñëîâîãî), ìîæåò ññûëêó ëó÷øå íå íà ïîëå, à ñàìó òàáëèöó çàäàâàòü?

Private Sub Form_Open(Cancel As Integer)
Form.AllowAdditions = False

ÍàäïèñüÂèäÐåñóðñà.Visible = False

If IsNull(ÂèäÐåñóñà) Then
ÍàäïèñüÂèäÐåñóñà.Caption = "ÂÛÁÅÐÈÒÅ ÂÈÄ ÐÅÑÓÑÀ"
ÍàäïèñüÂèäÐåñóñà.Visible = True
ElseIf ÂèäÐåñóñà = 1 Then
Me.ÍàäïèñüÂèäÐåñóñà.Caption = "ÒÝ(îòîïëåíèå)"
Me.ÍàäïèñüÂèäÐåñóñà.Visible = True
ElseIf ÂèäÐåñóñà = 2 Then
ÍàäïèñüÂèäÐåñóñà.Caption = "ÒÝ (îòîïëåíèå) è à(ãîÿ÷àÿ âîäà)"
ÍàäïèñüÂèäÐåñóñà.Visible = True
End If

End Sub 

http://www.sql.ru/forum/1116110/ssylka-na-pole-ili-na-tablicu-chto-vozvrashhaet-znachenie


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó