Değişkene bilgi göndermeden önce form2 açılıyor. KULLANICI= olarak başlayan satırınız docmd.openform satırının üstünde olmalı. Yani şöyle:
Kod:
Private Sub Komut4_Click()
If Me.w = Me.q.Column(1) Then
KULLANICI = Me.q.Column(0)
DoCmd.OpenForm "form2"
DoCmd.Close acForm, "form1"
End If
End Sub