(11/04/2011, 20:17)coskun_cakal yazdı:

Sub cevir()

Me.ADI.Value = UCase(Me.ADI.Value)

Me.SOYADI.Value = UCase(Me.SOYADI.Value)

End Sub





Private Sub ADI_Exit(Cancel As Integer)

Call cevir

End Sub







Private Sub SOYADI_Exit(Cancel As Integer)

Call cevir

End Sub