Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: feeling 17-05-23, 07:50 AM Chuyên mục: Report - Bài trả lời (4) |
Em đang tạo report sổ quỹ tiền mặt (lâu rồi em không xài đến ạ) và có xài code co giãn dữ liệu và kẻ bảng của @maidinhdan. Nhưng hiện tại nó không thực hiện được việc co giãn dữ liệu và kẻ dòng. Em loay hoay mãi từ hôm qua đến giờ vẫn không hiểu sai chỗ nào mà vẫn không chạy được như mình muốn. Em đưa bài lên đây nhờ các anh chị hoàn thiện giúp cho em với ạ!
Tải File
Em cám ơn nhiều ạ!
|
Viết bởi: ducvudut 13-05-23, 12:12 PM Chuyên mục: Tin Học Văn Phòng - Bài trả lời (1) |
|
|
Viết bởi: hoat 26-04-23, 04:40 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (6) |
Mình có 1 form nhập liệu có các text box và check box như sau:
Text box: txtGiatriPO, txtTonggiatriPOcoVAT, txtDongtienthanhtoan, txtSotiencanthanhtoanVND, txtSotiencanthanhtoanUSD, ......
và 1 check box: cboxVAT_TU.
Mình muốn viết sự kiên cho check box: cboxVAT_TU để tính số tiền cho 2 tex box: txtSotiencanthanhtoanVND, txtSotiencanthanhtoanUSD
với các điều kiện như sau:
Nếu txtDongtienthanhtoan = "VND" thì txtSotiencanthanhtoanUSD = 0
Nếu txtDongtienthanhtoan = "VND" và txtTamung = “Da thanh toan” và txtThanhtoanL1 = “Da thanh toan” và txtThanhtoanL2 = “Da thanh toan” và txtThanhtoanL3 = “Da thanh toan” thì txtSotiencanthanhtoanVND = 0
Nếu txtDongtienthanhtoan = "VND" và txtTamung = “Da thanh toan” và txtThanhtoanL1 = “Da thanh toan” và txtThanhtoanL2 = “Da thanh toan” và txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanVND = txtSotienthanhtoanL3VND
...... cư lần lượt như vậy. Mình đã viết đoạn mã VBA sau mà không tính được, nhờ anh chị em xem giúp
Private Sub cboxVAT_TU_Click()
If txtDongtienthanhtoan = "VND" And cboxVAT_TU = True Then
txtSotientamungVND = txtTonggiatriPOcoVAT * txtGiatriphantramtamung
txtSotientamungUSD = 0
ElseIf txtDongtienthanhtoan = "VND" And cboxVAT_TU = False Then
txtSotientamungVND = txtGiatriPO * txtGiatriphantramtamung
txtSotientamungUSD = 0
Else
If txtDongtienthanhtoan <> "VND" And cboxVAT_TU = True Then
txtSotientamungUSD = txtTonggiatriPOcoVAT * txtGiatriphantramtamung
txtSotientamungVND = 0
ElseIf txtDongtienthanhtoan <> "VND" And cboxVAT_TU = False Then
txtSotientamungUSD = txtGiatriPO * txtGiatriphantramtamung
txtSotientamungVND = 0
End If
If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
txtSotiencanthanhtoanVND = 0
End If
If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanVND = txtSotienthanhtoanL3VND
End If
If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanVND = txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
End If
If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanVND = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
End If
If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
txtSotiencanthanhtoanVND = txtSotientamungVND
End If
If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
txtSotiencanthanhtoanVND = txtSotientamungVND + txtSotienthanhtoanL1VND
End If
If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
txtSotiencanthanhtoanVND = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
End If
If txtDongtienthanhtoan = "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanVND = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
End If
If txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
txtSotiencanthanhtoanVND = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
End If
If txtDongtienthanhtoan = "VND" And txtDongtienthanhtoan = "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanVND = txtSotienthanhtoanL1VND + txtSotienthanhtoanL3VND
End If
If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
txtSotiencanthanhtoanUSD = 0
End If
If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanUSD = txtSotienthanhtoanL3VND
End If
If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanUSD = txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
End If
If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanUSD = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
End If
If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 = “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
txtSotiencanthanhtoanUSD = txtSotientamungVND
End If
If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
txtSotiencanthanhtoanUSD = txtSotientamungVND + txtSotienthanhtoanL1VND
End If
If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
txtSotiencanthanhtoanUSD = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
End If
If txtDongtienthanhtoan <> "VND" And txtTamung <> “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanUSD = txtSotientamungVND + txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND + txtSotienthanhtoanL3VND
End If
If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 <> “Da thanh toan” And txtThanhtoanL3 = “Da thanh toan” Then
txtSotiencanthanhtoanUSD = txtSotienthanhtoanL1VND + txtSotienthanhtoanL2VND
End If
If txtDongtienthanhtoan <> "VND" And txtTamung = “Da thanh toan” And txtThanhtoanL1 <> “Da thanh toan” And txtThanhtoanL2 = “Da thanh toan” And txtThanhtoanL3 <> “Da thanh toan” Then
txtSotiencanthanhtoanUSD = txtSotienthanhtoanL1VND + txtSotienthanhtoanL3VND
End If
End If
|
|
Viết bởi: cpucloi 25-04-23, 11:26 AM Chuyên mục: Report - Không có hồi đáp |
Bài này đã có hướng dẫn trên 4rum: tại đây #7
Demo đây!
|
|
Viết bởi: minhminh25767 25-04-23, 11:00 AM Chuyên mục: Macro - Bài trả lời (4) |
Khi xưa mình tạo 1 phần mềm hồi mà còn office 2003 là file .mdb
sau đó có office 2010, mình chuyển qua 2010, nhưng có một số cái bị lỗi, nên đành phải cài lại 2003 để file chuyển qua 2010 này mới chạy được - -> nên máy tính có 2 phiên bản office 2003 và 2010
giờ mình gở hết các phiên bản, cài 1 office 2016 thì liệu các code viết hồi 2003 có bị lỗi hay không? phần mềm có hoạt động trôi chảy không.
Vì hiện tại mình đã cài mà chưa thấy xảy ra lỗi gì?
Xin mọi người cho ý kiến về phiên bản 2016 này
| Chủ đề Mới nhất |
| Mẫu hình xăm full chân nà... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: alliisonparkk-1 Giờ trước- » Bài trả lời: 0- » Lượt xem: 3 |
| Tính số ngày làm việc (tr... -Chuyên mục: Thư Viện Hàm-Đăng bởi lần cuối: ongke0711-9 Giờ trước- » Bài trả lời: 2- » Lượt xem: 2,647 |
| Cần giúp đỡ tìm đơn vị bá... -Chuyên mục: Quán cóc-Đăng bởi lần cuối: ongke0711-Hôm nay, 12:55 AM- » Bài trả lời: 1- » Lượt xem: 32 |
| Thơ Những Mối Tình Buồn (... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-Hôm qua, 01:08 PM- » Bài trả lời: 5- » Lượt xem: 63 |
| Tìm kiếm tiếng việt khi L... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: tungthoi15-02-06-23, 11:30 AM- » Bài trả lời: 9- » Lượt xem: 97 |
| Chương trình quản lý bán ... -Chuyên mục: Share Code-Đăng bởi lần cuối: lmthu-31-05-23, 10:56 AM- » Bài trả lời: 5- » Lượt xem: 131 |
| Định dạng form -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-26-05-23, 02:22 PM- » Bài trả lời: 1- » Lượt xem: 58 |
| [Tools] Hỗ trợ Tạo Menu R... -Chuyên mục: Menu Bar/Ribbon-Đăng bởi lần cuối: maidinhdan-24-05-23, 11:55 PM- » Bài trả lời: 12- » Lượt xem: 5,428 |
| Listbox- Chuỗi điều kiện -Chuyên mục: Forms-Đăng bởi lần cuối: hoangdieuthuy82-20-05-23, 09:15 PM- » Bài trả lời: 3- » Lượt xem: 94 |
| Tạo QR code quét mã thanh... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-19-05-23, 08:32 PM- » Bài trả lời: 0- » Lượt xem: 89 |
| Diễn đàn Thống kê |
|
» Thành viên: 3,828 » Thành viên mới nhất: alliisonparkk » Các chủ đề diễn đàn: 9,769 » Các bài viết diễn: 47,845 Thống kê đầy đủ |