Dear Everyone,
The sub c1tim() on command 4 of form as follows: => error
Code:
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