ññûëêà íà ïîëå èëè íà òàáëèöó -÷òî âîçâðàùàåò çíà÷åíèå |
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
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |