• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Report width....

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Report
  • [Lỗi] Report width....
• Report width....

• Report width....

  papito > 02-05-14, 10:10 AM

  Tình hình là report của em nó báo lỗi "Report width is greater than page width", mong mọi người fix dùm em, em thank

• RE: Report width....

  anhemnhangu > 02-05-14, 11:00 AM

  Bạn chỉnh sửa lại khổ giấy là OK. (trong Page setup)

• RE: Report width....

  papito > 02-05-14, 11:13 AM

  vẫn không được bạn ơi, khi mình click Thực Hiện thì report nó chỉ hiện thu nhỏ, không mở dc report, bạn có thể check dùm mình được không vậy
  http://www.mediafire.com/download/860dvx...LHS1-a.rar

• RE: Report width....

  trunghieu > 02-05-14, 06:33 PM

  Lỗi này do quá trình bạn thiết kế có kích thước lớn hơn khổ giấy in, ngoài việc điều chỉnh lề giấy in trong page setup bạn còn phải điều chỉnh thước kế lại cho phù hợp, nếu không bị dư ra ngoài trang giấy thì sẽ không bị thông báo này nữa đâu.

• RE: Report width....

  papito > 03-05-14, 09:49 AM

  mình chỉnh lại kích thước trong form design nhưng vẫn vậy, bạn có thể chỉ mình cách chỉnh mấy thông số lại để cho hết bị lỗi ko ?
  p/s: khi mình tạo report wizard mới thì nó đã hiện lỗi đó lên rồi

• RE: Report width....

  papito > 04-05-14, 10:23 PM

  ai giúp fix lỗi này dùm mình với

• RE: Report width....

  MTNQ > 05-05-14, 01:30 AM

  (04-05-14, 10:23 PM)papito Đã viết: ai giúp fix lỗi này dùm mình với

  
  1/Chỉnh lại chiều rộng Report
  2/Chọn Auto resize: No
  3/Nên thay các Macro mở Report bằng câu lệnh sau:
  

  Mã:

  DoCmd.OpenReport "Tên report", acViewPreview, , , acDialog

  
  Bạn xem hình:
  

• RE: Report width....

  papito > 05-05-14, 08:36 AM

  bạn cho mình hỏi cái này luôn nhá :
  Trong form thêm, khi mình bỏ qua Họ Tên hoặc Địa Chỉ thì vẫn lưu được, dù trong table (required = yes) 2 cột Họ Tên và Địa Chỉ,
  link: http://www.mediafire.com/download/860dvx...LHS1-a.rar
  
  ai có thể giúp mình cái này được không vậy ?

• RE: Report width....

  MTNQ > 05-05-14, 01:58 PM

  Theo mình thì bạn nên bắt lỗi trên form, việc dùng Macro có nhiều hạn chế, bạn cố gắng làm quen với VBA
  
  Để bắt lỗi bỏ trống dữ liệu bắt buộc phải nhập (Hoten, Diachi) bạn code cho nút thêm như sau:
  
  

  Mã:

  Private Sub cmdThem_Click()
On Error GoTo Err_cmdThem_Click
    If Nz(Me!HOTEN, "") = "" Then
        MsgBox "Ho Ten: Khong duoc bo trong "
        Me!HOTEN.SetFocus
        Exit Sub
    End If
    If Nz(Me!DIACHI, "") = "" Then
        MsgBox "Dia Chi: Khong duoc bo trong "
        Me!DIACHI.SetFocus
        Exit Sub
    End If
    
    If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , "", acNewRec
    Me!HOTEN.SetFocus
    
Exit_cmdThem_Click:
    Exit Sub

Err_cmdThem_Click:
    MsgBox Err.Description
    Resume Exit_cmdThem_Click
End Sub

  
  Nếu vững về VBA một chút và trên form có nhiều điều khiển không cho phép bỏ trống bạn có thể tham khảo cách sau:
  
  

  Mã:

  Private Sub cmdThem_Click()
On Error GoTo Err_cmdThem_Click

    Dim strCtrlNames  As String, Ctrl As Control, Arr As Variant
    strCtrlNames = "HOTEN,DIACHI"  'Tên các điều khiển không được bỏ trống cách nhau bằng dấu phẩy
    Arr = Split(strCtrlNames, ",")
    
    For i = LBound(Arr) To UBound(Arr)
        Set Ctrl = Controls(Arr(i))
        If Nz(Ctrl, "") = "" Then
            MsgBox Ctrl.ValidationText, , "Luu Y!"  'Nhập câu cần thông báo vào thuộc tính ValidationText của điều khiển
            Ctrl.SetFocus
            Exit Sub
        End If
    Next
    If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
    
    DoCmd.GoToRecord , "", acNewRec
    Me!HOTEN.SetFocus

Exit_cmdThem_Click:
    Exit Sub

Err_cmdThem_Click:
    MsgBox Err.Description
    Resume Exit_cmdThem_Click
End Sub
• Bài trước Bài tiếp