Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Lukas
В Аксе я делаю так:

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)
...


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.