xSQL = "insert into surec (firmaId,alimTuruId,isinAdi,isinTuruId,depoId,faturaTarihi,faturaNo,tutar,kdv,toplamFiyat,tevkifatOrani,odenekId,islemTarihi) values (" & _
a & "," & b & ",'" & Me.isinAdi & "'," & c & "," & e & _
"," & IIf(IsDate(Me.faturaTarihi), CLng(Me.faturaTarihi), "Null") & ", '" & Me.faturaNo & "', " & _
Replace(Me.tutar, ",", ".") & ", " & _
Replace(Me.acilanKdv, ",", ".") & "," & _
Replace(Me.toplamFiyat, ",", ".") & "," & _
Replace(Me.acilanTevkifat, ",", ".") & "," & f & "," & IIf(IsDate(Me.islemTarihi), CLng(Me.islemTarihi), "Null") & ")"
DoCmd.RunSQL xSQL
neyi değiştirdiniz ben aşağıdaki gibi yapttım