|
|
Viết bởi: phuoc_bhxhbl 07-05-15, 10:55 AM Chuyên mục: Table - Bài trả lời (6) |
|
|
Viết bởi: nhphuqui 07-05-15, 12:21 AM Chuyên mục: Report - Bài trả lời (13) |
|
|
Viết bởi: nhattiensinh 05-05-15, 03:43 PM Chuyên mục: Table - Bài trả lời (4) |
|
|
Viết bởi: tranthanhan1962 04-05-15, 03:43 PM Chuyên mục: Forms - Bài trả lời (2) |
![[Hình: 0c5ZDgx.png]](http://i.imgur.com/0c5ZDgx.png)
![[Hình: vZWUvYB.png]](http://i.imgur.com/vZWUvYB.png)
![[Hình: JSBpHV7.png]](http://i.imgur.com/JSBpHV7.png)
Sub CoDan()
Set sct = Me.Section(acFooter)
MoRong = KHO.Value
If MoRong = True Then
sct.Visible = True
Else
sct.Visible = False
End If
DoCmd.DoMenuItem acFormBar, 7, 6, 0, acMenuVer70
If Not MoRong Then
Me.Painting = True
Me(KhoCtl).SetFocus
Else
Me(PhatsinhCtl).SetFocus
End If
End Sub
|
|
Viết bởi: tranthanhan1962 30-04-15, 08:48 AM Chuyên mục: Forms - Bài trả lời (2) |
Me.Line (Left, Top)-Step(Width, Height), , BF
Function MaxCol(ParamArray varValues()) As Variant
Dim i As Integer
Dim varMax As Variant
varMax = Null
For i = LBound(varValues) To UBound(varValues)
If IsNumeric(varValues(i)) Or IsDate(varValues(i)) Then
If varMax >= varValues(i) Then
Else
varMax = varValues(i)
End If
End If
Next
MaxCol = varMax
End Function
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Me.ScaleMode = 0
Me.DrawStyle = 0
Dim OCAONHAT As Double
OCAONHAT = MaxCol(Text1.Height, Text2.Height, …Textn.Height)
Me.Line (Me![Text1].Left, Me![Text1].Top)-Step(50, OCAONHAT), , BF
Me.Line (Me![Text2].Left, Me![Text2].Top)-Step(10, OCAONHAT), , BF
…
Me.Line (Me![Textn].Left, Me![Text2].Top)-Step(10, OCAONHAT), , BF
End Sub
| Chủ đề Mới nhất |
| nv casino — практический ... -Chuyên mục: MS Word-Đăng bởi lần cuối: MichaelHieta-7 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| Peptide research and refe... -Chuyên mục: MS Word-Đăng bởi lần cuối: CarlosDug-Hôm nay, 09:53 AM- » Bài trả lời: 0- » Lượt xem: 1 |
| SkfterjeadS -Chuyên mục: MS Word-Đăng bởi lần cuối: Danielapams-Hôm nay, 09:22 AM- » Bài trả lời: 0- » Lượt xem: 3 |
| tripscan — Почему предска... -Chuyên mục: MS Word-Đăng bởi lần cuối: NicholasAxiot-Hôm nay, 06:38 AM- » Bài trả lời: 0- » Lượt xem: 3 |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,368 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 159 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 164 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,172 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 185 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 670 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |