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.