bai-giang-chuong-7

Lệnh DoCmd Dùng để thực thao tác xử lý đối tượng như: mở, đóng form, mở Report, query, xử lý ghi, … 1.1 Một số lệnh làm việc với mẫu tin DoCmd.GoToRecord , , DoCmd.GoToRecord , , DoCmd.GoToRecord , , DoCmd.GoToRecord , , DoCmd.GoToRecord , , DoCmd.RunCommand acPrevious acNext acFirst acLast acNewRec (acCmdDeleteRecord) DoCmd.RunCommand (acCmdSaveRecord) Docmd.Close Docmd.Maximize Docmd.Minimize Docmd.Applyfilter “Ten query”,”dieu kien” DoCmd.OpenForm [objectName], [ViewMode], [FilterName], [WhereCondition], [DataMode], [WindowsMode] ObjectName – tên form muốn mở; ViewMode - chế độ mở: acDesign, acNormal FilterName – tên query lọc liệu WhereCondition – điều kiên DataMode - thiết lập chế độ liệu form WindowsMode - thiết lập kiểu cửa sổ form là: acDialog, acWindowsNormal Mặc nhiên Normal, mục khơng có bỏ trống Ví dụ: Mở From nhập liệu cho phòng “TC” Docmd.Openform “nhap_HSCANBO”, , ,phong=“TC” DoCmd.OpenReport [objectName], [ViewMode], [FilterName], [WhereCondition], [DataMode], [WindowsMode] Vidụ 1: Tạo form in report Select Case chon Case DoCmd.OpenReport "indscanbo”,acNomal Case DoCmd.OpenReport "indscanbo", acPreview Case DoCmd.OutputTo acReport, tt = 1, Ví=dụIIf(chonin "indscanbo", IIf(chonin = 2, "dsnamsinh", "dsphong")) Select Case chon Case DoCmd.OpenReport [tt], acNomal Case DoCmd.OpenReport [tt], acPreview Case DoCmd.OutputTo acReport, [tt] Option Group 1: End Select Name: chonin Option Group 2: Name: chon Ví dụ tt = IIf(chonin = 1, "indscanbo", IIf(chonin = 2, "dsnamsinh", "dsphong")) Select Case chon Case DoCmd.OpenReport [tt], acNomal, ,"phong=[forms] ![in_chonds]![ph]" Case DoCmd.OpenReport [tt], acPreview, ,"phong=[form s]![in_chonds]![ph]" Case DoCmd.OutputTo acReport, [tt] End Select Combobox ControlSource: ph Kỹ thuật xử lý lỗi Xử lý lỗi kỹ thuật quan trọng lập trình Đã lập trình khó tránh khỏi lỗi (Errors) Có nhiều nguyên nhân gây lỗi; nguyên nhân lường trước không lường trước Kỹ thuật xử lý lỗi bao gồm kỹ phát xử lý tình chương trình gây lỗi On Error Resume Next Khi từ chỗ trở đi, chương trình gặp lỗi, bỏ qua (ignore) hồn tồn On Error GoTo : If Err.Number= then Msgbox(“câu t/báo lỗi”) EndIf On Error GoTo : Exit Sub : MsgBox “cau thong bao loi", vbInformation, "thong bao" Resume End Sub Vidụ: On Error GoTo loi X=a/b Loi: If Err.Number=11 then Msgbox “không chia cho 0” End if