teşekkür ederim sorunum çözülmüştür. ben formun açıldığındığında olayına alttaki
Private Sub Metin20_Click()
If IsNull(Me.kul) Then
Me.kul = Dlookup ("[kulanici_adi]", "Tbl_Kullanici", "[kul_id] = " & AktifKullanici)
End If
End Sub
yazmıştım ana menü hiç gelmiyordu. teşekkür ederim elinize sağlık +++ Rep