Tabloya Veri Eklerken Hata Alıyorum

Tabloya Veri Eklerken Hata Alıyorum - Baskı Önizleme

+- 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ığı: Tabloya Veri Eklerken Hata Alıyorum (/konu-tabloya-veri-eklerken-hata-aliyorum.html)

Tabloya Veri Eklerken Hata Alıyorum - pelitt - 25/03/2017

[Resim: 9473incij5069559.png]

Kod:

Private Sub AdiNe_AfterUpdate()

Dim perBirim As Variant

Dim perSicilim As Variant





'alan adı

'tablo

'ölçüt



perBirim = DLookup("[Birimi]", "[Personel]", "[Adi]='" & AdiNE + "'")



Birimi = perBirim



perSicilim = DLookup("[SicilNo]", "[Personel]", "[Adi]='" & AdiNE + "'")



perSicil = perSicilim





End Sub





Private Sub btnKaydet_Click()



Dim Zimekle As String



Zimekle = "INSERT INTO Zimmetler (barkodNo,perSicil,urunTur,alma) VALUES (" & CInt(barkodNo) + "," & CInt(perSicil) + "," & CInt(urunTurId) + "," & CDate(alma) + ")"





DoCmd.RunSQL Zimekle





End Sub

Ekle dediğimde hata alıyorum sanırım bu variant tipinden kaynaklı ama dönüşüm olmuyor. bu sorunu nasıl çözebilirim yardım edebilirmisiniz.

hata kodu Type mismatch

Cvp: Tabloya Veri Eklerken Hata Alıyorum - pelitt - 25/03/2017

Sorunu çözdüm ancak veri eklerken bir uyarı çıkıyor geri alamazsınız vs. diye bunu nasıl engelleyebilirim

İkinci sorumda Textbox ın boş olmadığını normalde if alan<>null ile anayabiliyorduk ama accesde nedense kabul ettiremedim nasıl yapmalıyım

if alan<>null
if alan=null
if alan.isNull
if alan=""
denedim ama kod işlemiyor

Cvp: Tabloya Veri Eklerken Hata Alıyorum - ozanakkaya - 26/03/2017

Merhaba,

Sorunuzu çözdüyseniz nasıl çözdüğünüzü konunuza yazınız. Benzeri problemi yaşayanlar böylelikle çözüm bulabilirler.

Sorunuzu çözdükten sonraki farklı sorularınız için yeni konu açmalısınız. Konularınıza mutlaka örnek uygulama ekleyin.

(25/03/2017, 19:20)pelitt yazdı: Sorunu çözdüm ancak veri eklerken bir uyarı çıkıyor geri alamazsınız vs. diye bunu nasıl engelleyebilirim

Bunun için, kodunuz 1. mesajdaki kod olarak varsayarsak

DoCmd.RunSQL Zimekle

Kodunu



docmd.setwarnings false

DoCmd.RunSQL Zimekle

docmd.setwarnings true

Kodu ile değiştirerek deneyiniz.
Sonraki sorunuz için cevap yazamayacağım, Site Kuralları gereği birden fazla soruyu aynı konu içerisinde soramazsınız. Üstteki cevabımı ilk konularınız olduğu için yazdım.

Cvp: Tabloya Veri Eklerken Hata Alıyorum - pelitt - 26/03/2017

Cevap için teşekkür ettim.
Genelde bu tarz insert işlemi yaparken tek veri ekleterek doğru veri türü oldugunu teyit ederim. Ancak bu defa biraz aceleci davradım. Neyse sadece barkodNo ekledim hata verdi hatayı tablo alan türünü uzun sayı olarak değiştirdiğimde diğer sayılarıda aynı şekilde değiştirdim sıkıntı kalmadı.