Можно передать переменную в Form_Load?

[Dummiel]

Хай, други!

Задача у меня вот какая: При загрузке формы (Form_Load()) мне нужно узнать, есть ли определенная запись, если она есть, то вывести форму с текстбоксами, заполненными значениями полей этого рекордсета, и при изменении их сделать .Edit рекордсета, если же нет - вывести пустые поля на этой форме для заполнения новыми данными, с последующим сохранением их (.AddNew) в БД.

Можно ли в вызывающей форме сделать проверку наличия записи и как-то передать (напрмер 0 Or 1) в вызываемую форму, чтобы уже внутри формы вычислять, пустую ее выводить, или заполненную? Или делать глобальные булевы переменные? Дык форм около 20, следовательно и флагов столько же. Загаживать память не хотелось бы. А ведь Form_Load() пишется со скобками, т.е., вроде как "ждет" какую-то переменную?

Разъясните!

С уважением - Я.

[Viper]

Низзя... Тока глобальные переменные.

Тем более, что Form_Load есть процедура обработки события не имеющего аргументов.

Другой вариант, сделай в форме функцию, в нее передай аргумент, а уже внутри этой функции отображай форму:

Код: Выделить всё

Public Sub ShowMe(ByVal nArg As Integer)
     ' что-нить делаем с аргументом
    Me.Show
End Sub

[Dummiel]

Спасибо!

[Andrey Fedorov]

Низзя... Тока глобальные переменные.

Не надо так делать ибо нехорошо.

Можно использовать Public переменную/ые уровня формы или создать соответствующее свойство/а.

Ну или такой вариант:

Другой вариант, сделай в форме функцию, в нее передай аргумент, а уже внутри этой функции отображай форму:

Правда показана была процедура. Но и функцию можно:

Код: Выделить всё

Public Function ShowMe(ByVal nArg As Integer) As Long
     ' что-нить делаем с аргументом
    Me.Show vbModal, Me
    ShowMe = какой-то переменной формы
End Function

Вызывается примерно так:

Код: Выделить всё

Dim f As New frmFindSkl
MsgBox f.ShowMe( 123)