error on the command with sub

[antam]

Dear Everyone,



The sub c1tim() on command 4 of form as follows: => error

Sub c1tim(tablea As String, loai As String, x1 As Integer, tableb As String)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim i As Integer

' Bc 1: Tìm giá tr? x1 trong các  C1 den C6 cua tablea
Set db = CurrentDb()
strSQL = "SELECT * FROM " & tablea & " WHERE Type = '" & loai & "'"
Set rs = db.OpenRecordset(strSQL)

' Bc 2: Xóa du lieu tableb truoc khi dùng SQL vi?t các giá tr? tìm duoc ? bc1 vào tableb
strSQL = "DELETE * FROM " & tableb
db.Execute strSQL, dbFailOnError

' Bc 3: Sao chép toàn bo dòng tìm thay tu tablea vào tableb

While Not rs.EOF
For i = 1 To 7
If rs.Fields("C" & i) = x1 Then
strSQL = "INSERT INTO " & tableb & " SELECT * FROM " & tablea & " WHERE C" & i & " = " & x1 & " AND Type = '" & loai & "'"
db.Execute strSQL, dbFailOnError

Exit For
End If
Next i
rs.MoveNext
Wend

rs.Close
Set rs = Nothing
Set db = Nothing
End Sub

The sub to update data into table "daso455"
Although query1 is ok.
Pls find the attachment in the link below for your ref., thanks.
https://drive.google.com/file/d/1NDc...usp=drive_link

[ranman256]

put stop point on db.execute
under the line: strSql =
put : debug.print strSql

copy the sql from the immediate window and paste into a query. run. it will show you the error.

and you dont need db.execute, just use: docmd.runSql strSql

[Welshgasman]

Crossposted https://www.access-programmers.co.uk...or-sub.331013/