Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Tabloya Veri Eklerken Hata Alıyorum

pelitt
pelitt
Access Cevaplanmış Soruları
3
1336

Tabloya Veri Eklerken Hata Alıyorum

#1
pelitt
Üye
pelitt
Bul
Üye
Adı Soyadı: se.... pe....
Konum: Tokat
Ofis Versiyonu: Ofis 2007
Son Oturumu: 17/11/2018,00:29
Yorumları: 32
Konuları: 8
Kayıt Tarihi: 19/03/2017
Teşekkür Puanı: 0
[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
Son Düzenleme: 25/03/2017, 16:25, Düzenleyen: pelitt.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Tabloya Veri Eklerken Hata Alıyorum - Yazar: pelitt - 25/03/2017, 16:22
Task