Đá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))
#71
(11-02-18, 07:51 PM)conmeo Đã viết: Xin anh maidinhdan một pass để học hỏi.Cảm ơn anh
nammeo0101@gmail.com

Send
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 conmeo
#72
Mình xin pass vba nhé, cám ơn rất nhiều.
Mail: Sirolichking15@gmail.com
Chữ ký của mrsiro Xin chào, mình là mrsiro, Tham gia http://thuthuataccess.com/forum từ ngày 05-12 -14.
Reply
Những người đã cảm ơn
#73
(10-03-18, 11:17 AM)mrsiro Đã viết: Mình xin pass vba nhé, cám ơn rất nhiều.
Mail: Sirolichking15@gmail.com

Đã 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
#74
Cho mình xin pass VBA: ngocmster@gmail.com
Cám ơn nhiều!
Chữ ký của feeling feeling,gia nhập Thủ Thuật Access từ 05-10 -16.
Reply
Những người đã cảm ơn
#75
Cho em xin pass với Bác ơi
dunganh9301@gmail.com
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#76
Đã 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
#77
(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:
[Hình: rpCodantheodong.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 

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

Vui lòng để lại Email để nhận file không khóa pass VBA.


Bác maidinhdan cho mình xin pass vba với nhé: vodainhan68@gmail.com
Chữ ký của vodainhan Xin chào, mình là vodainhan, Tham gia http://thuthuataccess.com/forum từ ngày 06-11 -13.
Reply
Những người đã cảm ơn
#78
Lại có món hay, e xin với bác: nguyentrungtoan0288@gmail.com
Chữ ký của mrtoanbin mrtoanbin,gia nhập Thủ Thuật Access từ 09-09 -16.
Reply
Những người đã cảm ơn
#79
Đã gửi
Trích dẫn:tới:
vodainhan <vodainhan68@gmail.com>,
Toan Nguyen <nguyentrungtoan0288@gmail.com>
ngày:12:23, 13 thg 12, 2018
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


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [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 39 8,791 22-09-18, 12:40 PM
Bài mới nhất: NguyenDungAnh
  [Help] SQL trong VBA chạy không đúng! NguyenDungAnh 12 762 07-09-18, 10:44 AM
Bài mới nhất: NguyenDungAnh
  [Hàm] [Demo] Hàm kiểm tra IP tắt hay mở maidinhdan 10 2,518 26-07-18, 04:27 PM
Bài mới nhất: Cuong Servenet
  [Thủ Thuật] DeMo CommandButỏ Xuân Thanh 0 372 25-07-18, 10:42 AM
Bài mới nhất: Xuân Thanh
  Xin file demo theo yêu cầu, tùy biến các query theo câu lệnh SQL Đình Phán 12 1,937 19-08-17, 07:08 AM
Bài mới nhất: cpucloi

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối