Фильтр при загрузке формы по пользователю

Четверг, 10 Июля 2014 г. 14:34 + в цитатник

Доброго времени суток всем!

Есть форма [f1], в которой в поле [Polzovatel] при обновлении поля [Data1] вставляется имя пользователя компьютера (username)
Что-то похожее нашёл в интернете, и немного изменил для себя.
Код Модуля1

Option Compare Database
Option Explicit

Dim lngTr As Long

Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = -20
Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Sub sSetTransparency(frmF As Form, lngT As Long)
Dim Ret As Long
    'Set the window style to 'Layered'
    Ret = GetWindowLong(frmF.hwnd, GWL_EXSTYLE)
    Ret = Ret Or WS_EX_LAYERED
    SetWindowLong frmF.hwnd, GWL_EXSTYLE, Ret
    'Set the opacity of the layered window to 128
    SetLayeredWindowAttributes frmF.hwnd, 0, lngT, LWA_ALPHA
    DoEvents
End Sub

И, собственно, само добавление в в поле [Polzovatel]

Option Compare Database
Option Explicit

Dim lngTr As Long

Private Sub Data1_AfterUpdate()

    lngTr = 0
    sSetTransparency Me.Form, lngTr
    Me.Polzovatel = Environ("username")

Подскажите, пожалуйста, как сделать фильтр по полю [Polzovatel] при открытии формы? Что-то где-то, а, возможно, и вообще ничего, я не понимаю.
Пытался так, но фигня получается (закомментирована одна из попыток):

Private Sub Form_Open(Cancel As Integer)
    lngTr = 0
    sSetTransparency Me.Form, lngTr
    Me.Filter = Polzovatel = Environ("username")
    Me.FilterOn = True
    'DoCmd.OpenForm "f1", acFormDS, , "Polzovatel=" & Environ("username")
End Sub