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

Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Thủ Thuật] Demo Hàm report tự canh đều chiều cao ( Không kẻ line))
• Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

• RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

  maidinhdan > 11-02-17, 12:49 AM

  (08-02-17, 09:47 AM)trangdv.pchg Đã viết: Cho mình hỏi Tại sao dòng đầu tiên lại không hiện lên tất cả nội dung nhỉ.
  Tôi thấy trong report nó chỉ hiện "Chèn Modules Hàm độ cao vào ứng" thiếu nội dung "dụng của bạn"
  Bạn xem lại giúp mình!

  
  Ghi nhận ý kiến, và sẽ xem chỉnh sửa bổ sung.
  Thân mến và cảm ơn!

• RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

  mienmobk > 13-02-17, 09:16 AM

  cho mình xin bản demo ko pass vào mail thcshalongqn@gmail.com cảm ơn maidinhdan

• RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

  cannguyen > 13-02-17, 11:29 AM

  (23-09-16, 05:11 PM)maidinhdan Đã viết: Rãnh rỗi sinh nông nổi: Trước bài viết này đã có 01 bài viết về " Tạo report có chiều cao co dãn theo dữ liệu " và với cách này thì chúng ta phải vẽ line ( vẽ đường vẽ cho nó). Từ những trăn trở đó, tôi cố đã tổng hợp được 1 hàm tự động mà chẳng cần khéo tay hay kẻ từng đoạn để canh chỉnh chiều cao của cái report nửa.
  
  
  Demo_hàm cho report tự canh đều chiều cao theo chữ 
  
  Công dụng:
  - Tìm cột có độ cao cao nhất để lấy nó làm chuẩn để chỉnh các cột còn lại cân bằng theo
  
  Khả năng ứng dụng:
  - Ứng dụng để canh độ cao của report
  
  Hạn chế:
  - Chưa biết
  
  Code sử dụng:
  1. Hàm Điều chỉnh độ cao
  2. Hàm tìm chiều cao nhất của 1 dòng record
  
  Cách gọi sử dụng, như Hình minh họa:
  

  

  
  
  *************Chúng ta chỉ việc copy đoạn code sau vào bất kỳ report nào và thay vào đó là txt1, txt2, txt3 ( nhiều cột hơn thì cứ tạo thêm dòng dưới đó)
  *************Nhớ là cũng cần import cái modules nửa nhé
  
  
  

  Mã PHP:

  Private Sub Detail_Print(ByRef intCancel As Integer, ByRef intPrintCount As Integer)
    Dim lm As Long
    lm = Hamchieucaonhat(acDetail)
    
    ' Dien ten cot can can bang do cao o duoi day: txt1, txt2, txt3
        Dieuchinhchieucao Me.txt1, lm, 0, 0, 0, 0, 0, vbRed
        Dieuchinhchieucao Me.txt2, lm, 0, 0, 0, 0, 0, vbGreen
        Dieuchinhchieucao Me.txt3, lm, 0, 0, 0, 0, 0, vbBlue
End Sub


Private Function Hamchieucaonhat(ByVal intSection As Integer) As Long
    Dim lngHeight  As Long
    Dim ctlControl As Control
    For Each ctlControl In Me.Section(intSection).Controls
        If ctlControl.ControlType = acTextBox Then
            If ctlControl.Height > lngHeight Then
                lngHeight = ctlControl.Height
            End If
        End If
    Next ctlControl
    Hamchieucaonhat = lngHeight
End Function 


  
  Demo 15phút nửa post lên. ( đã đính kèm xong)
  
  Vui lòng để lại Email để nhận pass VBA.

  
  Bác cho em xin pass nhé. Cám ơn bác nhé! ketoantinhoc2017@gmail.com

• RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

  ongke0711 > 14-02-17, 12:52 PM

  (11-02-17, 12:49 AM)maidinhdan Đã viết:

  (08-02-17, 09:47 AM)trangdv.pchg Đã viết: Cho mình hỏi Tại sao dòng đầu tiên lại không hiện lên tất cả nội dung nhỉ.
  Tôi thấy trong report nó chỉ hiện "Chèn Modules Hàm độ cao vào ứng" thiếu nội dung "dụng của bạn"
  Bạn xem lại giúp mình!

  
  Ghi nhận ý kiến, và sẽ xem chỉnh sửa bổ sung.
  Thân mến và cảm ơn!

  
  Lỗi này là do cái Textbox [Địa chỉ] có Format "Shape Outline" (có vẽ border cho nó) nên bị đụng với hàm "Dieuchinhchieucao" của bác Dân.
  Bạn chỉ việc chọn Transparent cho Shape Outline của cái textbox đó là OK thôi.

• RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

  thanh.thkt > 15-02-17, 03:43 PM

  Nhờ bạn Dân cho xin pass VBA vào thanh.thkt@gmail.com
  Cảm ơn bạn. Nhờ bạn hoài, cũng thấy ngại. Nhưng nhiều chủ đề của bạn rất cần cho mình, nên cứ xin hoài. Mong bạn thông cảm.

• RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

  maidinhdan > 15-02-17, 09:55 PM

  (15-02-17, 03:43 PM)thanh.thkt Đã viết: Nhờ bạn Dân cho xin pass VBA vào thanh.thkt@gmail.com
  Cảm ơn bạn. Nhờ bạn hoài, cũng thấy ngại. Nhưng nhiều chủ đề của bạn rất cần cho mình, nên cứ xin hoài. Mong bạn thông cảm.

  
  Đã gửi file không khóa pass VBA
  
  Ghi chú nếu gặp lỗi dòng đầu tiên không hiện hết thì chọn 3 Textbox đó và đi đến Properties/ dòng Back Style: Sửa chữ Solid thành Transparent
  
  Thân mến!

• RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

  levanchon1801 > 16-02-17, 08:22 PM

  Nhờ anh cho xin khóa VBA, chân thành cảm ơn. Email: levanchon1801@gmail.com

• RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

  maidinhdan > 17-02-17, 02:37 AM

  (16-02-17, 08:22 PM)levanchon1801 Đã viết: Nhờ anh cho xin khóa VBA, chân thành cảm ơn. Email: levanchon1801@gmail.com

  Đã gửi

• RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

  ChiMai > 17-02-17, 12:48 PM

  Cho em xin pass nhé: chimai.pca@gmail.com

• RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))

  maidinhdan > 17-02-17, 11:11 PM

  (17-02-17, 12:48 PM)ChiMai Đã viết: Cho em xin pass nhé: chimai.pca@gmail.com

  
  Đã gửi
• Bài trước Bài tiếp