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.