Merhaba arkadaşlar,
Bir metin kutusunda güncelleştirme sonrası 

Private Sub FİRMA_ADI_AfterUpdate()

Me.FİRMA_ADI = Replace(Me.FİRMA_ADI, "i", "İ")
Me.FİRMA_ADI = Replace(Me.FİRMA_ADI, "ı", "I")
Me.FİRMA_ADI = UCase(Me.FİRMA_ADI)

End Sub

komutunu kullanıyorum. Hücreye bir değer girip vazgeçip sildikten sonra diğer metin kutusuna geçtiğimde "Run-time error "94" Invalid use of Null" hatası alıyorum. Nasıl düzeltebilirim. 
Yardımlarınız için şimdiden teşekkürler 

1-)

Private Sub FİRMA_ADI_AfterUpdate()

kodunun hemen altına

on error resume next

kodunu yazın, veya

2-)
kodu aşağıdaki ile değiştirin

Private Sub FİRMA_ADI_AfterUpdate()





if len([FİRMA_ADI]) <> 0 then

Me.FİRMA_ADI = Replace(Me.FİRMA_ADI, "i", "İ")

Me.FİRMA_ADI = Replace(Me.FİRMA_ADI, "ı", "I")

Me.FİRMA_ADI = UCase(Me.FİRMA_ADI)

else

exit sub

end if



End Sub

veya

3-)Aşağıdaki kodu modüle kaydedin,

Function Convert(metin)



If Len(metin) <> 0 Then

    metin = Replace(metin, "i", "İ")

    metin = Replace(metin, "ı", "I")

    metin = UCase(metin)

    Convert = metin

Else

    Exit Function

End If

   

End Function

metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyin

Me.FİRMA_ADI = Convert([FİRMA_ADI])

Convert([denetimAdi) kodunu tüm formlardaki tüm metin kutularında kullanabilirsin.

Ayrıca, aşağıdaki bağlantıyı inceleyiniz.

Yapılmaması gereken ölümcül hatalar

Metin kutusunun adı "FİRMA_ADI" olmamalı, "mtn_firmaadi" olmalıdır.

(20/01/2015, 00:10)ozanakkaya yazdı: 1-)

Private Sub FİRMA_ADI_AfterUpdate()

kodunun hemen altına

on error resume next

kodunu yazın, veya

2-)
kodu aşağıdaki ile değiştirin

Private Sub FİRMA_ADI_AfterUpdate()





if len([FİRMA_ADI]) <> 0 then

Me.FİRMA_ADI = Replace(Me.FİRMA_ADI, "i", "İ")

Me.FİRMA_ADI = Replace(Me.FİRMA_ADI, "ı", "I")

Me.FİRMA_ADI = UCase(Me.FİRMA_ADI)

else

exit sub

end if



End Sub

veya

3-)Aşağıdaki kodu modüle kaydedin,

Function Convert(metin)



If Len(metin) <> 0 Then

    metin = Replace(metin, "i", "İ")

    metin = Replace(metin, "ı", "I")

    metin = UCase(metin)

    Convert = metin

Else

    Exit Function

End If

   

End Function

metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyin

Me.FİRMA_ADI = Convert([FİRMA_ADI])

Convert([denetimAdi) kodunu tüm formlardaki tüm metin kutularında kullanabilirsin.

Ayrıca, aşağıdaki bağlantıyı inceleyiniz.

Yapılmaması gereken ölümcül hatalar

Metin kutusunun adı "FİRMA_ADI" olmamalı, "mtn_firmaadi" olmalıdır.

Sn. ozanakkaya 
Yardım ve uyarınız için teşekkürler.
İyi akşamlar
Konu kapanmıştır.

---

Sn. ozanakkaya
Yardım ve uyarınız için teşekkürler.
İyi akşamlar
Konu kapanmıştır.