Chào mừng, Khách
Bạn cần phải đăng ký trước khi bạn có thể đăng trên trang web của chúng tôi.

Tên người dùng
  

Mật khẩu
  





Diễn đàn Tìm kiếm

(Tìm kiếm nâng cao)

Diễn đàn Thống kê
» Thành viên: 3,591
» Thành viên mới nhất: tvtcm
» Các chủ đề diễn đàn: 7,639
» Các bài viết diễn: 29,571

Thống kê đầy đủ

Thành viên online
Hiện đang có 10 người dùng trực tuyến.
» 0 Thành viên | 10 Khách

Chủ đề Mới nhất
Demo hàm cho report tự ca...
Chuyên mục: Thủ thuật VBA
Đăng bởi lần cuối: toancvp
6 Giờ trước
» Bài trả lời: 9
» Lượt xem: 237
merge cell trong word
Chuyên mục: Thủ thuật VBA
Đăng bởi lần cuối: vuthaiha90
9 Giờ trước
» Bài trả lời: 6
» Lượt xem: 331
Sử dụng query và các hàm ...
Chuyên mục: Report
Đăng bởi lần cuối: trungminh
10 Giờ trước
» Bài trả lời: 5
» Lượt xem: 182
Tạo Form đăng ký tài khoả...
Chuyên mục: Thủ thuật VBA
Đăng bởi lần cuối: maidinhdan
Hôm qua, 12:28 PM
» Bài trả lời: 13
» Lượt xem: 737
Tuyển nhân viên lập trình...
Chuyên mục: Việc Làm Access
Đăng bởi lần cuối: chemgioti
24-09-16, 05:41 PM
» Bài trả lời: 5
» Lượt xem: 729
Chèn ảnh nằm bên dưới tex...
Chuyên mục: Report
Đăng bởi lần cuối: chemgioti
24-09-16, 04:49 PM
» Bài trả lời: 2
» Lượt xem: 58
THAO THỨC
Chuyên mục: Góc Thơ
Đăng bởi lần cuối: Nguyễn Thành Sáng
24-09-16, 04:26 PM
» Bài trả lời: 99
» Lượt xem: 1,187
Demo_Code Ẩn tất cả mọi t...
Chuyên mục: Thư viện thủ thuật
Đăng bởi lần cuối: maidinhdan
23-09-16, 11:08 PM
» Bài trả lời: 115
» Lượt xem: 6,110
Cách tạo Query để cập nhậ...
Chuyên mục: Query
Đăng bởi lần cuối: ngokimhang33
23-09-16, 05:31 PM
» Bài trả lời: 4
» Lượt xem: 125
[newbie] Requery là gì ??
Chuyên mục: Vấn đề chung
Đăng bởi lần cuối: maidinhdan
23-09-16, 04:34 PM
» Bài trả lời: 3
» Lượt xem: 118

 
  Chèn ảnh nằm bên dưới textbox
Viết bởi: danhxetnghiem - 23-09-16, 08:53 PM - Chuyên mục: Report - Bài trả lời (2)

Chào Quý Anh Chị tại diễn đàn Thủ thuật access!

Mình có một điều băn khoăn là, trong access mình không thể xếp lớp các đối tượng được như trong Word, PS, Corel, Ai ....

Vì khi làm xong report, giờ muốn chèn tấm hình nằm dưới các text box thì lại không được, nó luôn ở trên, vậy có cách nào để đưa xuống dưới không mọi người.

Xin cho góp ý!

In mục này

  Demo hàm cho report tự canh đều chiều cao
Viết bởi: maidinhdan - 23-09-16, 04:11 PM - Chuyên mục: Thủ thuật VBA - Bài trả lời (9)

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 daytxt1txt2txt3
        Dieuchinhchieucao Me
.txt1lm00000vbRed
        Dieuchinhchieucao Me
.txt2lm00000vbGreen
        Dieuchinhchieucao Me
.txt3lm00000vbBlue
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ề: 11)
In mục này

  Cách tạo Query để cập nhật lại thời gian trong table.
Viết bởi: ngokimhang33 - 23-09-16, 02:01 PM - Chuyên mục: Query - Bài trả lời (4)

Xin chào Anh, Chị trong Diễn đàn, mình có vấn đề này mong mọi người giúp đỡ. Mình có tải phần mềm quản lý  Biada-Karaoke trên Diễn đàn về và muốn làm tiếp một vấn đề sau xin mọi người chỉ giúp:

 Trong Table: DM_Hoadon_Tam có 2 record như sau:

 1/ Maban = 001; Giovao = 23/09/2016 13:00
 2/ Maban = 002; Giovao = 23/09/2016 13:40

+ Mình thấy trong phần mềm có chạy Query Update Gop_HD. Tức là gộp lại chung của hai bàn thành một.
   Sau khi chạy Query Gop_HD thì sẽ còn một dòng:   Maban = 001; Giovao= 23/09/2016 13:00
- Nếu gộp bàn 001 vào chung bàn 002 thì Giovao sẻ là: 13:40 hoặc ngược lại là 13:00 Như vậy sẽ tính lố giờ của khách hàng hoặc thiếu giờ của quán.

 * Ý của mình là sau khi gộp giữa hai bàn 001 vào 002 hoặc  ngược lại. Thì mục Giovao phải là thời gian của 13:00 + 13:40/2 (tức là Giovao = 13:20) để tính giờ cho khách hàng chính xác. 
 Mong mọi người giúp em tạo Query để thực hiện như ý ở phần trên.
Cảm ơn nhiều.

In mục này

  merge cell trong word
Viết bởi: vuthaiha90 - 22-09-16, 03:42 PM - Chuyên mục: Thủ thuật VBA - Bài trả lời (6)

Cho em hỏi dòng code để merge cell table trong Word, chứ em bật macro để ghi lại code:
    
    Selection.MoveRight Unit:=wdCharacter, Count:=8, Extend:=wdExtend
    Selection.Cells.Merge
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

thì khi áp vào chương trình của em thì chả thấy merge được gì cả

In mục này

  in 2 mặt trong report
Viết bởi: tieuho828 - 21-09-16, 08:11 PM - Chuyên mục: Report - Bài trả lời (3)

Các bác  cho hỏi. Mình có nút in. Khi nhấn vào thì sẽ in nhiều report liên tiếp theo Khoa. Mà mình muốn in hai mặt thì có câu lệnh nào thực hiện in 2 mặt không vậy?

In mục này