Formun özelliklerine geçtiğinizde Geçerli Olduğunda özelliğinin varlığını görebilirsiniz.

---

Kod bölümünde ise ;

Private Sub Form_Current()

'Buraya eylemi gerçekleştirecek kodlar yazılır.

End Sub

olarak kullanılır.

Sledgeab hocamın belirttiği kodları ise;

Private Sub Form_Current()

            If Me.KullaniciCevap = 1 Then

            Me.yaziylacevap.Value = "A"

            End If

            If Me.KullaniciCevap = 2 Then

            Me.yaziylacevap.Value = "B"

            End If

            If Me.KullaniciCevap = 3 Then

            Me.yaziylacevap.Value = "C"

            End If

            If Me.KullaniciCevap = 4 Then

            Me.yaziylacevap.Value = "D"

            End If 

     End Sub

şeklinde kullanabilirsiniz.