Xuân Thanh > 27-06-13, 04:05 PM
Function TachChuoi(ChuoiCanTach As String)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblTam", dbOpenTable)
If rs.RecordCount > 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From tblTam"
DoCmd.SetWarnings True
End If
Dim i As Long
Dim Chuoi As Variant
Chuoi = Split(ChuoiCanTach, ",")
For i = LBound(Chuoi) To UBound(Chuoi)
rs.AddNew
rs.Fields(0) = Chuoi(i)
rs.Update
Next
End Function