değişmesini istediğiniz alan da: "txtdegis" olsun
"txtgiris" değiştiğinde olayına aşağıdaki kodu yazın
aktif metin kutusunun değerini ataya bilmek için ".value" değil ".text" özelliği kullanılıyor galiba
Private Sub txtgiris_Change()
Me.txtdegis = Me.txtgiris.Text
End Sub