Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: btamsgn 14-07-14, 01:23 PM Chuyên mục: Thủ thuật VBA - Không có hồi đáp |
Chào các bạn,
Mình có câu lệnh sau bị lỗi ở phần truyền tham số I,I1,I2,I3,I4:
Dim I As Integer, I1 As Integer, I2 As Integer, I3 As Integer, I4 As Integer
I = 1
I1 = I + 1
I2 = I + 2
I3 = I + 3
I4 = I + 4
strsql = "SELECT CR5ADM.IDHD, CR5ADM.TENNPL, CR5ADM.DVT, CR5ADM.[" & I & "] AS A, CR5ATLHH.[" & I & "] AS B, CR5ANCAU.[" & I & "] AS C, CR5ADM.[" & I1 & "] AS D, CR5ATLHH.[" & I1 & "] AS E, CR5ANCAU.[" & I1 & "] AS F, CR5ADM.[" & I2 & "] & AS G, CR5ATLHH.[" & I2 & "] AS H, CR5ANCAU.[" & I2 & "] AS I, CR5ADM.[" & I3 & "] AS J, CR5ATLHH.[" & I3 & "] AS K, CR5ANCAU.[" & I3 & "] AS L, CR5ADM.[" & I4 & "] AS M, CR5ATLHH.[" & I4 & "] AS N, CR5ANCAU.[" & I4 & "] AS O, NZ([C])+NZ([F])+NZ([I])+NZ([L])+NZ([O]) AS TONG, " & TaoMa(J) & " AS CNN FROM (CR5ADM INNER JOIN CR5ANCAU ON (CR5ADM.TENNPL=CR5ANCAU.TENNPL) AND (CR5ADM.IDHD=CR5ANCAU.IDHD)) INNER JOIN CR5ATLHH ON (CR5ADM.TENNPL=CR5ATLHH.TENNPL) AND (CR5ADM.IDHD=CR5ATLHH.IDHD);"
Rất mong nhận được câu lệnh chỉnh sửa lại từ các bạn thanks,
Tâm
Nhờ giúp đỡ về việc cố định một Textbox trong phần Detail của Report
|
Viết bởi: neverstopvn 14-07-14, 07:37 AM Chuyên mục: Report - Bài trả lời (2) |
Mình đang làm một report trong đó có một Textbox chứa nội dung khi in ra phải nằm cố định về vị trí ở trang đầu tiên và ở gần giữa trang A4, vị trí này đã nằm ngoài phạm vi của PageHeader và PageFooter nên buộc mình phải đưa vào phần Detail tuy nhiên nó nằm ở dưới một subrecord trích xuất từ một bảng lại có số record thay đổi nên do thuộc tính CanGrow và CanShink, Textbox trên sẽ bị thay đổi vị trí.
Các bạn hãy tư vấn giúp mình làm sao có thể cố định vị trí của Textbox trên khi in ở trang đầu tiên, hoặc có thể mở rộng phạm vi của PageFooter hơn nữa không để nó có thể chứa được vị trí của Textbox trên ?
Rất cảm ơn mọi người !
|
|
Viết bởi: tranvy 11-07-14, 10:49 AM Chuyên mục: Report - Bài trả lời (1) |
|
|
Viết bởi: dinh_trong_hoa 08-07-14, 09:22 PM Chuyên mục: Forms - Bài trả lời (3) |
Mình tham khảo nhiều bộ code và thấy các cách điều khiển đối tượng như sau:
-Forms!nameform!control
-me!control
-me.control
-form_nameform.control
Nhờ các bạn giải thích ý nghĩa và cách sử dụng cho phù hợp.
Xin cám ơn !
|
Viết bởi: Xuân Thanh 06-07-14, 04:20 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (2) |
Mã PHP:
Option Explicit
'Set to True to make the password case-sensitive
Const CASE_SENSITIVE_PASSWORD = False
'Encrypt text
Function EncryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
If Not CASE_SENSITIVE_PASSWORD Then
'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)
End If
'Encrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function
'Decrypt text encrypted with EncryptText
Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
If Not CASE_SENSITIVE_PASSWORD Then
'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)
End If
'Decrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function
Chúc các bạn vui
Thân mến
| Chủ đề Mới nhất |
| Peptide research and refe... -Chuyên mục: MS Word-Đăng bởi lần cuối: CarlosDug-2 Giờ trước- » 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-3 Giờ trước- » 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-6 Giờ trước- » 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,367 |
| 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: 155 |
| 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,163 |
| 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: 184 |
| Đồ 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: 668 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 189 |
| 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 đủ |