Chương 6 * 1 Lệnh DoCmd Dùng để thực hiện các thao tác xử lý trên các đối tượng như mở, đóng form, mở Report, query, xử lý bản ghi, * 1 1 Một số lệnh làm việc với mẫu tin DoCmd GoToRecord , , acPrevio[.]
1 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 , , acPrevious DoCmd.GoToRecord , , acNext DoCmd.GoToRecord , , acFirst DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand (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] End Select Option Group 1: 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=[forms ]![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 Private Sub truoc_Click() On Error GoTo Err_truoc_Click DoCmd.GoToRecord , , acPrevious Exit_truoc_Click: Exit Sub Err_truoc_Click: MsgBox "da het mau tin", bInformation, "thong bao" Resume Exit_truoc_Click End Sub Private Sub luumoi_Click() On Error GoTo Err_luumoi_Click DoCmd.RunCommand (acCmdSaveRecord) Exit_luumoi_Click: Exit Sub Err_luumoi_Click: MsgBox "trung ma", vbInformation, "thong bao" MaCB.SetFocus Resume Exit_luumoi_Click Ví dụ: Tạo Form nhập liệu cho Bảng Form: DMPHONG sau: Record Seletor No Navigation Button No Diving Line No ScrollBar Neither