| |
|
|
| | Public GLB_START_FORM As Object ' стартовая форма
надо менять в зависимости от нужд имя формы, которая стартовая
то это Okno_1
а то через месяц - это уже okno_2? а потом может и опять назад
как написать что бы считывая имя формы из таблицы например "okno_1"
rst.Filter = "ID = 'Okna'"
Set GLB_START_FORM = rst("ZNACHENIE")
и запускать форму
GLB_START_FORM.Show | |
| |
| |
| |
|
|
| |
...
Set GLB_START_FORM = rst("ZNACHENIE")...
|
У вас в поле рекодсета ссылки на объектные переменные?  | |
| |
| |
| |
|
|
| | нет, - просто имена форм  ==========
=========================
Set rst = New ADODB.Recordset
rst.Open " SELECT TUNING_TBL.*" _
& " From TUNING_TBL", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
If rst.RecordCount <> 0 Then
rst.Filter = "ID = 'Okna'"
Set GLB_START_FORM = rst("ZNACHENIE")
и запускать форму
GLB_START_FORM.Show | |
| |
| |
| |
|
|
| | лучше переписывать значение в Database Properties ИМХО | |
| |
| |
| |
|
|
| | лучше переписывать значение в Database Properties ИМХО
====================================================
простите -? не врубилси........... как лучше????  | |
| |
| |
| |
|
|
| |
Ему не лучше. Он не в Аксе, а со стороны. | |
| |
| |
|
|
| |
|
|
| | точно - я уже забыл  | |
| |
| |
| |
|
|
| | 1.Так откуда Set?
2.Да еще и присвоение объектной переменной строки?
Select case rst("ZNACHENIE")
Case "ФормаА"
....
Case "Форма2"
....
...
End Select
|
| |
| |
| |
| |
|
|
| | можно и select - спасибо 
а как, блин присвоением имени - или это бред у мну? | |
| |
| |
|
|
| |
|
|
| | нуууууууууууу типа объект.имя = "Okno"
=======================
херня на поносном масле!!!!!!!! | |
| |
| |
| |
|
|
| | Ну так опишите класс,
у него должно быть два свойства: Имя и Объект.
Может быть еще метод Show и др.
При присвоении свойству Имя значения, создается необходимый объект (через Select case),
и свойству объект присваивается ссылка на этот объект. | |
| |
| |
| |
|
|
| | В Аксе я делаю так:
Public Function NewFormByName(FormName As String) As Object
Select Case FormName
Case Is = "frmItem"
Set NewFormByName = New Form_frmItem
Case Is = "frmListItems"
Set NewFormByName = New Form_frmListItems
Case Is = "frmAny"
Set NewFormByName = New Form_frmAny
Case Is = "frmListAny"
Set NewFormByName = New Form_frmListAny
Case Is = "frmPicture"
Set NewFormByName = New Form_frmPicture
Case Is = "frmListPictures"
Set NewFormByName = New Form_frmListPictures
End Select
End Function
|
И далее:
...
Set frm = NewFormByName(FormName)
...
|
| |
| |
| |
| |
|
|
| | он спрашивает как стринг имени формы получить ИМХО | |
| |
| |
| |
|
|
| | Не, ему надо по имени формы создать объект-форму и присвоить ссылку на него в объектную переменную. Ну мож еще сделать ему Show попутно. | |
| |
| |
|
|
|
|
| |
|
|
| | а хотелось без выбора вариантов - одной строкой - открыть форму .
А имя формы - переменная.........  | |
| |
| |
