Tùy chọn
về việc tạo Combobox
- về việc tạo Combobox
-
về việc tạo Combobox
hoaithanh > 16-07-20, 11:08 AM
Dạ cho e hỏi. e có nhiều table dữ liệu. E muốn tạo 1 combobox để xóa (thanh lý dữ liệu) hết các dữ liệu trong table.
Mong các ac giúp đỡ ạ. e cám ơn -
RE: về việc tạo Combobox
ongke0711 > 16-07-20, 11:14 AM
Cái gì chứ Xoá hết là nhanh dễ nhất.
- Bạn liệt kế tất cả tên table đưa vào Row Source của comboBox để chọn.
- Dùng code:
Private Sub cmdXoa_Click
CurrentDb.Execute "DELETE * FROM " & Me.cboTenTable, dbFailOnError
End Sub -
RE: về việc tạo Combobox
hoaithanh > 16-07-20, 11:17 AM
a ơi, mình sử dụng Macro được không anh -
RE: về việc tạo Combobox
ongke0711 > 16-07-20, 11:32 AM
Macro thì tôi không rành rồi nhưng nhưng cách trên chỉ cần 1 dòng code VBA đơn giản mà.
Click vô Event của nút lênh -> chọn Event procedure -> copy dòng code dán vô. Đổi tên comboBox tương ứng
CurrentDb.Execute "DELETE * FROM " & Me.cboTenTable, dbFailOnError -
RE: về việc tạo Combobox
tranthanhan1962 > 16-07-20, 12:45 PM
Tạo một nút lệnh trên form ví dụ Command0, giả sử combobox chứa danh sach table là ABC cũng nằm trên form, đưa mã này vào
Private Sub Command0_Click()
Dim T As TableDef
DoCmd.SetWarnings False
If T.Name Like ABC.Value Then
DoCmd.RunSQL "DELETE * FROM " & T.Name
End If
DoCmd.SetWarnings True
End Sub -
RE: về việc tạo Combobox
hoaithanh > 16-07-20, 01:01 PM
Vậy e muốn xóa tất cả các table thì e liệt kê tên table vô thôi hả a -
RE: về việc tạo Combobox
tranthanhan1962 > 16-07-20, 01:15 PM
OK con dê. Nếu có quan hệ thì xóa sub table trước