maidinhdan > 28-12-16, 11:32 PM
(27-12-16, 12:24 AM)nhimsieunhan Đã viết:(26-12-16, 10:56 PM)maidinhdan Đã viết: Gửi file lên đây.
Mình gửi mail cho Admin rồi đó. Chưa biết cách gửi trực tiếp lên đây
nhimsieunhan > 30-12-16, 12:45 AM
maidinhdan > 03-01-17, 08:42 PM
(30-12-16, 12:45 AM)nhimsieunhan Đã viết: Mình gửi lại file rồi đấy Ad. Có kèm tấm hình chụp màn hình ngày tháng mình gửi file hôm trước luôn. Ad xem lại giúp nhé.
Có mấy tấm hình mình khỏa thân lỡ insert vào Access giờ muốn xóa thôi chứ cũng không có gì bí mật đâu Ad.
Just Kidding
Private Sub Command3_Click()
DoCmd.SetWarnings False
Dim sql As String
sql = "UPDATE Table1 SET Table1.Hinhanh =Null"
DoCmd.RunSQL sql
Me.Hinhanh.Requery
End Sub
sql = "UPDATE Table1 SET Table1.Hinhanh =Null WHERE Table1.ID=" & Me.ID
Private Sub Command4_Click()
CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction
End Sub