Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Demo Hàm report tự canh đều chiều cao ( Không kẻ line))
#1
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:
[Hình: modHamtimchieucao.png]


*************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 IntegerByRef 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.


File đính kèm
.zip   Demo_Cogianreport(khongke).zip (Kích cỡ: 24.54 KB / Tải về: 56)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn huuduy.duy , ongke0711 , toancvp , ChiMai , ledangvan , HungSoft , vulhu06 , Noname , cpucloi
#2
bac cho e xin pass vba: chomsaonhanma@gmail.com
Chữ ký của kinggai kinggai,gia nhập Thủ Thuật Access từ 25-08 -16.
Reply
Những người đã cảm ơn
#3
Bác maidinhdan cho mình xin pass vba với nhé: diepmhb@yahoo.com
Xin cảm ơn bác.
Chữ ký của Nguyen Hoang Diep Nguyen Hoang Diep,gia nhập Thủ Thuật Access từ 08-03 -16.
Reply
Những người đã cảm ơn
#4
(23-09-16, 06:53 PM)kinggai Đã viết: bac cho e xin pass vba: chomsaonhanma@gmail.com

(23-09-16, 07:56 PM)Nguyen Hoang Diep Đã viết: Bác maidinhdan cho mình xin pass vba với nhé: diepmhb@yahoo.com
Xin cảm ơn bác.

Đã gửi 2 email trên.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Bác Dân ơi, em đang cần cái này lắm, nhưng lại hơi khác 1 chút, bác có cách nào tùy biến được giúp em ko ạ?

Em tính thiết kế 1 form lọc dữ liệu dùng Query làm SourceObject cho Subform, các dữ liệu này toàn là text nên cũng sẽ cần tự động điều chỉnh chiều cao của record cho phù hợp.

Vì cái này là form chứ ko phải report nên chưa biết tùy biến ra sao, bác chỉ cách em với.
Chữ ký của toancvp Nếu tất cả đường đời đều trơn láng    
Có thể nào ta nhận ra ta Bat
Reply
Những người đã cảm ơn
#6
(23-09-16, 09:44 PM)toancvp Đã viết: Bác Dân ơi, em đang cần cái này lắm, nhưng lại hơi khác 1 chút, bác có cách nào tùy biến được giúp em ko ạ?

Em tính thiết kế 1 form lọc dữ liệu dùng Query làm SourceObject cho Subform, các dữ liệu này toàn là text nên cũng sẽ cần tự động điều chỉnh chiều cao của record cho phù hợp.

Vì cái này là form chứ ko phải report nên chưa biết tùy biến ra sao, bác chỉ cách em với.

Code này không thể áp dụng cho co giản text trên form được.

Để hiện text đối với textbox kiểu memo tức là quá nhiều chữ tạ dùng sự kiện DblClick

Mã PHP:
Private Sub Diachia_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdZoomBox
End Sub 


Ở đây Diachi là ô tetxbox khi ta nhấn 2 lần vào ô Địa chỉ sẽ hiện 1 bản Zoom cho ta thấy hết.

Thân!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn toancvp
#7
Thế ạ big green, vâng ok bác, để em thử. Cũng tại vì ý tưởng thiết kế mới ở trong đầu chứ chưa bắt tay thực hiện nên chưa gấp rút tìm kiếm, bác thông cảm cho em big green. Em vẫn còn đang trong giai đoạn nghĩ nên thiết kế table như thế nào cho đúng ý tưởng.
Chữ ký của toancvp Nếu tất cả đường đời đều trơn láng    
Có thể nào ta nhận ra ta Bat
Reply
Những người đã cảm ơn
#8
Quên khuấy đi mất, bác Dân cho em xin pass VBA vào mail nhatki001@gmail.com với ạ.
Chữ ký của toancvp Nếu tất cả đường đời đều trơn láng    
Có thể nào ta nhận ra ta Bat
Reply
Những người đã cảm ơn
#9
(26-09-16, 12:30 AM)toancvp Đã viết: Quên khuấy đi mất, bác Dân cho em xin pass VBA vào mail nhatki001@gmail.com với ạ.

Đã gửi
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn toancvp
#10
Bác ơi em làm không được rồi, em không biết cho vào event nào của form cho nó phù hợp được cả. Bác xem qua file này giúp em với ạ.

https://drive.google.com/open?id=0B5rfqy...kI1U0NfX0k
Chữ ký của toancvp Nếu tất cả đường đời đều trơn láng    
Có thể nào ta nhận ra ta Bat
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Sử dụng ngày trong truy vấn qua VBA tại sao không đúng? luonguct 5 325 09-06-16, 06:24 PM
Bài mới nhất: maidinhdan
  [Hàm] [Demo] Hàm kiểm tra IP tắt hay mở maidinhdan 5 313 05-06-16, 12:47 AM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access maidinhdan 17 3,075 17-03-16, 05:00 PM
Bài mới nhất: MatTroiNguQuen
  [Thủ Thuật] [Share Code] Demo Quay số trúng thưởng theo danh sách trong table maidinhdan 9 1,504 10-03-16, 11:43 AM
Bài mới nhất: phamlong24
  Xây dựng các chuổi tham chiếu lồng ghép có dấu ngoặc kép tranthanhan1962 4 786 31-07-15, 11:27 PM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ