[vb]Private Sub btn_aktar_Click()

Dim GItem As Variant
Dim GurunAdi, Gurunno As String
Dim GBirimi As String
Dim GMiktari As Integer


For Each GItem In Me.Liste0.ItemsSelected
Gurunno = Me.Liste0.Column(0, GItem)
GurunAdi = Me.Liste0.Column(1, GItem)
GBirimi = Me.Liste0.Column(2, GItem)

   
    If DCount("*", "tbl_ihtiyac", "[urun_adi] = '" & GurunAdi & "' And [ihale_id] = " & [mtn_is_no] & "") <> 0 Then
   
       
        MsgBox (GurunAdi & ", Daha Önce Eklenmiş !")
   

Merhaba arkadaşlar.

DLookup("[Kimlik]", "Tbl_Sr_Frm", "[TARIH] = #" & Format(Me.TARIH, "dd.mm.yyyy") & "#" And "[firma] = '" & Me.firma & "'")

Bu kod ile firma alanı kontrolü yaparken type missmatch hatası alıyorum. alan türü kısa metin. Fakat bir türlü düzeltemedim. Nerede yanlış yapıyorum?

[code]                baglanti.Open();
                SqlCommand ekle = new SqlCommand("insert into BiletBilgi(TicketID,Ad,Soyad,DogumTarihi,KimlikNo,TelNo,EmailAdresi,Cinsiyet,Nereden,Nereye,BiletTarihi,TrenSaati,Vagon,KoltukNo,Indirim,Ucret) values('" + textBox9.Text + "','" + textBox1.Text + "','" + textBox2.Text + "','" + dateTimePicker1.Text + "','" + textBox3.Text + "','" + textBox4.Text + "

merhaba arkadaşlar,
metin kutusuna girilen verinin girilip girilmediğni sorgularken

type mismatch hatası alıyordum,
mesaj yazarken tırnak hatası yapmışım,

ÇÖZÜLDÜ.

Sayın Hocalarım,

ekli örnek çalışmada userform ile ürün girişi yapıp kaydet diyorum Run Time Error 13 Type mismatch hatası veriyor.


Saygılarımla,