Skip to main content

AccessTr.neT


güncelleştirme sonrası hatası

güncelleştirme sonrası hatası

Çözüldü #1
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 
Cevapla
#2
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.
Cevapla
#3
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da