not: giren ve çıkan alanları tamsayı olarak tanımlamışsınız o nedenle ben de sonucu tamsayıya çevirttim -clng() fonksiyonuyla-
Dim Secim As Variant
Dim SqlEkle, txtSecim As String
For Each Secim In Me.Liste.ItemsSelected
txtSecim = Me.Metin1 & ", " & _
Me.Metin4 & ", " & _
Me.Metin3 & ", cdate(" & _
CLng(Me.Metin2) & "), " & _
Dlookup ("kimlik", "T_ARTIKELLER", "KOD='" & Liste.Column(0, Secim) & "'") & "," & _
Dlookup ("kimlik", "T_MALZEMELER", "ACIKLAMA='" & Liste.Column(1, Secim) & "'") & "," & _
Dlookup ("kimlik", "T_RENK", "ACIKLAMA='" & Liste.Column(2, Secim) & "'") & ", " & _
CLng(Liste.Column(3, Secim)) & ", '" & _
Liste.Column(4, Secim) & "'"
SqlEkle = " insert into T_VERI ( ISLEM, FIRMA, BELGE, TARIH, ARTIKEL, MALZEME, RENK, CIKAN, [NOT] ) values (" & txtSecim & ")"
CurrentDb.Execute SqlEkle
Next Secim
Me.T_VERI_1.Requery
"seçilenleri aktar" butonunun kodu