заполнение переменных

[duh_si]

День добрый, помогите пожалуйста в решение нескольких проблем
1.правильно ли я написал код(действительно ли я получу значения в переменные и смогу их использовать в любой части программы)
2.IDRoli который сейчас =1 меняется в зависимости от вошедшего пользователя, как сделать, что бы IDRoli подставлялся автоматически вошедшего пользователя?

Option Compare Database
Public Init, Zak As Boolean

Private Sub Form_Close()
Zak = DLookup("Закупщик", "ВЫБОРРОЛЕЙПОПОЛЬЗОВАТЕЛЮ", "IDRoli = 1")
Init = DLookup("Инициатор", "ВЫБОРРОЛЕЙПОПОЛЬЗОВАТЕЛЮ", "IDRoli = 1")
Ved = DLookup("ВЭД", "ВЫБОРРОЛЕЙПОПОЛЬЗОВАТЕЛЮ", "IDRoli = 1")
End Sub

[Myhaylo]

Public Init As Boolean
Public Zak As Boolean

[duh_si]

Спасибо, хотя я думал что переменные одного типа можно писать через запятую как в д.р языках программирования.

2.IDRoli который сейчас =1 меняется в зависимости от вошедшего пользователя, как сделать, что бы IDRoli в код подставлялся автоматически вошедшего пользователя?

а как это реализовать правильно?

[Myhaylo]

Наверное, CurrenUser()

[Myhaylo]

Это если Вы работаете с mdw-файлом...

[duh_si]

Сообщение от Myhaylo

Это если Вы работаете с mdw-файлом...

access2010 файл laccdb

[duh_si]

Private Sub Form_Close()
Zak = DLookup("Закупщик", "ВЫБОРРОЛЕЙПОПОЛЬЗОВАТЕЛЮ", "IDRoli = CurrenUser()")

End Sub

Это таким образом?

[Myhaylo]

Возможно, однако тогда:

Public Init As Long
Public Zak As Long
Public Ved As Long

[duh_si]

Сообщение от Myhaylo

Возможно, однако тогда:

Public Init As Long
Public Zak As Long
Public Ved As Long

а почему long если поле логического типа? или я чего то не так понимаю

[Myhaylo]

Да, виноват - Boolean.