normal değil ama isnull kontrolü eklemeniz hatayı ortadan kaldırır.
Sub cevir()
if not isnull(Me.ADI.Value) then
Me.ADI.Value = Replace(Me.ADI.Value, "i", "İ")
Me.ADI.Value = Replace(Me.ADI.Value, "ı", "I")
Me.ADI.Value = UCase(Me.ADI.Value)
end if
if not isnull(Me.SOYADI.Value) then
Me.SOYADI.Value = Replace(Me.SOYADI.Value, "i", "İ")
Me.SOYADI.Value = Replace(Me.SOYADI.Value, "ı", "I")
Me.SOYADI.Value = UCase(Me.SOYADI.Value)
end if
End Sub
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.
Son Düzenleme: 11/04/2011, 21:07, Düzenleyen: Yandemir.