mrtoanbin > 29-05-18, 01:52 PM
ongke0711 > 29-05-18, 02:46 PM
Function DongTatCaFormReport()
On Error GoTo errHandler
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop
Do While Reports.Count > 0
DoCmd.Close acReport, Reports(0).Name
Loop
Exit Function
errHandler:
MsgBox Err.Number & ": " & Err.Description, vbOKOnly, "Error"
End Function
mrtoanbin > 29-05-18, 05:45 PM
(29-05-18, 02:46 PM)ongke0711 Đã viết: Hàm đóng form, report:
Mã PHP:Function DongTatCaFormReport()
On Error GoTo errHandler
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop
Do While Reports.Count > 0
DoCmd.Close acReport, Reports(0).Name
Loop
Exit Function
errHandler:
MsgBox Err.Number & ": " & Err.Description, vbOKOnly, "Error"
End Function
ongke0711 > 29-05-18, 06:20 PM