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-)




kodunun hemen altına


kodunu yazın, veya

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




veya

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




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



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()

Kodu Seç

Kodu Kopyala

kodunun hemen altına

on error resume next

Kodu Seç

Kodu Kopyala

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

Kodu Seç

Kodu Kopyala

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

Kodu Seç

Kodu Kopyala

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

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

Kodu Seç

Kodu Kopyala

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.