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 |
| Dòng Video Ngâm Nga Thơ N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| Video YouTube Ngâm Nga Bà... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-3 Giờ trước- » Bài trả lời: 1- » Lượt xem: 27 |
| Đành Thôi! Phũ Phàng! &Vi... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-31-12-24, 04:34 PM- » Bài trả lời: 0- » Lượt xem: 18 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: tuanpham-31-12-24, 11:46 AM- » Bài trả lời: 58- » Lượt xem: 3,289 |
| Dòng Video Youtube Ngâm N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-30-12-24, 01:51 PM- » Bài trả lời: 46- » Lượt xem: 457 |
| Tin Học Văn Phòng: Khái N... -Chuyên mục: Tin Học Văn Phòng-Đăng bởi lần cuối: Tinhocvanphong-27-12-24, 11:54 AM- » Bài trả lời: 0- » Lượt xem: 27 |
| NHỜ NÂNG CẤP CODE TÌM DỮ ... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: ongke0711-27-12-24, 09:28 AM- » Bài trả lời: 12- » Lượt xem: 492 |
| Trang thủ thuật Access ít... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-25-12-24, 08:41 AM- » Bài trả lời: 11- » Lượt xem: 316 |
| Tạo query tổng hợp dữ liệ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-19-12-24, 07:58 PM- » Bài trả lời: 1- » Lượt xem: 350 |
| Test phần mềm QUẢN LÝ TÀI... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: AnNguyen-19-12-24, 05:33 PM- » Bài trả lời: 44- » Lượt xem: 5,233 |
| Diễn đàn Thống kê |
|
» Thành viên: 5,140 » Thành viên mới nhất: Abrahamwet » Các chủ đề diễn đàn: 9,882 » Các bài viết diễn: 48,670 Thống kê đầy đủ |