+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: güncelleştirme sonrası hatası (/konu-guncellestirme-sonrasi-hatasi.html)
güncelleştirme sonrası hatası - manager1981 - 19/01/2015
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
Cvp: güncelleştirme sonrası hatası - ozanakkaya - 20/01/2015
1-)
Private Sub FİRMA_ADI_AfterUpdate()kodunun hemen altına
on error resume nextkodunu 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 Subveya
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 Functionmetin 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.
Cvp: güncelleştirme sonrası hatası - manager1981 - 20/01/2015
(20/01/2015, 00:10)ozanakkaya yazdı: 1-)Sn. ozanakkaya
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.
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.