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-)
Visual Basic Code
Private Sub FİRMA_ADI_AfterUpdate()




kodunun hemen altına

Visual Basic Code
on error resume next

kodunu yazın, veya

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


Visual Basic Code
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,


Visual Basic Code
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

Visual Basic Code
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
(20/01/2015 00:10)ozanakkaya Adlı Kullanıcıdan Alıntı: 1-)
Visual Basic Code
Private Sub FİRMA_ADI_AfterUpdate()




kodunun hemen altına

Visual Basic Code
on error resume next

kodunu yazın, veya

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


Visual Basic Code
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,


Visual Basic Code
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

Visual Basic Code
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