blackminh86 > 17-03-20, 03:30 PM
ongke0711 > 17-03-20, 04:38 PM
Sub XoaSKU()
Dim tdf As DAO.TableDef
Dim sSQL As String
For Each tdf In CurrentDb.TableDefs
If tdf.Name Like "tbl_Quocte" Or tdf.Name Like "MSys*" Then
Else
'Debug.Print tdf.Name
sSQL = "DELETE " & tdf.Name & ".SKU FROM " & tdf.Name & _
" WHERE " & tdf.Name & ".SKU IN (SELECT tbl_QuocTe.SKU FROM tbl_QuocTe)"
CurrentDb.Execute sSQL, dbFailOnError
End If
Next
End Sub
blackminh86 > 17-03-20, 05:19 PM
ongke0711 > 17-03-20, 05:43 PM
UPDATE SheetDanhMucSP INNER JOIN tbl_DanhMucSP ON SheetDanhMucSP.SKU = tbl_DanhMucSP.SKU SET tbl_DanhMucSP.DanhMucChinh = [SheetDanhMucSP].[DanhMucChinh], tbl_DanhMucSP.DanhMucThuPhu = [SheetDanhMucSP].[DanhMucThuPhu], tbl_DanhMucSP.ThuocTinhSP_CongDung = [SheetDanhMucSP].[ThuocTinh_CongDung], tbl_DanhMucSP.Tags = [SheetDanhMucSP].[Tags];
blackminh86 > 17-03-20, 06:36 PM
ongke0711 > 17-03-20, 10:49 PM
(17-03-20, 06:36 PM)blackminh86 Đã viết: Cám ơn anh rất nhiều . Anh có sử dụng momo không? Em muốn gửi anh voucher vài ly cafe HighLand , mong anh nhận cho
blackminh86 > 22-03-20, 09:15 PM