اشكال در ديتابيس اكسس

[(سیدشریفی)]

با سلام

لطفا اشكال كد زير را بفرمائيد چون موقع اجرا به خط زير اشكال ميگيرد


MyQuery = "INSERT INTO Tel (Name,Famil,Number,Adress,List) VALUES ('" & a1(i) & "','" & a2(i) & "','" & a3(i) & "','" & a4(i) & "','" & Val(a5(i)) & "')"
Set My_Recordset = My_Connection.Execute(MyQuery)



Dim a1(1 To 1000)
Dim a2(1 To 1000)
Dim a3(1 To 1000)
Dim a4(1 To 1000)
Dim a5(1 To 1000)
Dim a6(1 To 1000)
Dim k

Dim My_Connection As ADODB.Connection
Dim My_Recordset As ADODB.Recordset

Set My_Connection = New ADODB.Connection
My_Connection.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\1.mdb;" & "Jet OLEDB:Database"
My_Connection.Open
MyQuery = "SELECT * FROM Contacts ORDER BY LastName"
Set My_Recordset = My_Connection.Execute(MyQuery)

If My_Recordset.EOF = True Then
My_Recordset.Close
My_Connection.Close
Exit Sub
End If

i = 1

While Not My_Recordset.EOF
a1(i) = My_Recordset.Fields(1)
a2(i) = My_Recordset.Fields(3)
a3(i) = My_Recordset.Fields(30)
a4(i) = My_Recordset.Fields(31)
a5(i) = My_Recordset.Fields(37)
a6(i) = My_Recordset.Fields(40)

i = i + 1

My_Recordset.MoveNext
Wend

My_Recordset.Close
My_Connection.Close

k = i - 1

Set My_Connection = New ADODB.Connection
My_Connection.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\Tel.mdb;" & "Jet OLEDB:Database"
My_Connection.Open

For i = 1 To k
MyQuery = "INSERT INTO Tel (Name,Famil,Number,Adress,List) VALUES ('" & a1(i) & "','" & a2(i) & "','" & a3(i) & "','" & a4(i) & "','" & Val(a5(i)) & "')"
Set My_Recordset = My_Connection.Execute(MyQuery)
Next i

My_Recordset.Close
My_Connection.Close


با تشكر

[xxxxx_xxxxx]

سلام
اگر فيلد سوم (Number) نوعش رشته اي نيست تك كوتيشن ها رو از كنارش برداريد

[(سیدشریفی)]

نوع Number رشته اي ميباشد
اصلا هر نوعي تعريف ميكنم نميشود

من فايلهاي ديتابيس را هم ارسال ميكنم شايد از روي آنها مشكل پيدا شود

[aslan]

سلام

1- وقتي از val استفاده ميکنيد تک کوتيشن ها قبل و بعدش را برداريد
2 - نام فيلد Number را عوض کنيد

[(سیدشریفی)]

با تشكر از جوابتان
مشكل در نام فيلد Number بود كه با عوض كردن آن درست شد