Private Sub Metin20_Click()
If IsNull(Me.kul) Then
Me.kul = Dlookup ("[kulanici_adi]", "Tbl_Kullanici", "[kul_id] = " & AktifKullanici)
End If
End Sub
Formun açıldığında olayına aşağıdaki kodu eklediğinizde metin kutusunda giriş yapan kullanıcının ismi görünür.
Me.Metin22 = Dlookup ("[kulanici_adi]", "Tbl_Kullanici", "[kul_id] = " & AktifKullanici)