Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: hatashibl 04-05-13, 06:22 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (10) |
Sơ lược về cách mình làm:
- Trên form tạo 2 textbox: txtthang và txtnam để nhập tháng năm cần thống kê. Kèm thêm 1 nút bấm Thực hiện.
- Khi click vào nút bấm sẽ rà soát từng khách hàng trong table thongtinhhv. Với mỗi khách hàng, ta sẽ lọc các giao dịch từ ngày đầu tháng đến ngày cuối tháng (dựa vào txtthang và txtnam nhập vào) của Khách hàng đó và dùng TongHH để cộng dần lại. Sau đó ghi vào table PhatHH các thông tin Mshv, thang, nam, tongHH.
Và đây là code nút bấm của mình:
Mã:
Private Sub Command8_Click()
Dim Ngaydauthang As Date
Dim Ngaycuoithang As Date
Dim rs As Recordset
Dim rs1 As Recordset
Dim CauSQL As String
Dim CauSQL1 As String
Dim CauSQL2 As String
Dim tongHH1 As Integer
Ngaydauthang = DateSerial(Me.txtnam, Me.txtthang, 1)
Ngaycuoithang = DateAdd("m", 1, Ngaydauthang) - 1
CauSQL = "Select Mshv from Thongtinhv"
Set rs = CurrentDb.OpenRecordset(CauSQL)
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
tongHH1 = 0
CauSQL1 = "Select * from Giaodich Where MST1 ='" & rs & "' and NgaythangGD<=Ngaycuoithang and NgaythangGD>=Ngaydauthang"
Set rs1 = CurrentDb.OpenRecordset(CauSQL1)
If rs1.RecordCount > 0 Then
rs1.MoveFirst
Do Until rs1.EOF
tongHH1 = rs1!Soluong * rs1!HH1
rs1.MoveNext
Loop
End If
CauSQL2 = "INSERT INTO PhatHH VALUES (rs, txtthang, txtnam, TgHHT1)"
DoCmd.RunSQL CauSQL2
rs.MoveNext
Loop
Else: MsgBox "Khong co Hoi vien de thong ke", vbDefaultButton1, "Thong bao"
End If
rs.Close
rs1.Close
End SubVà mình còn thêm 2 thắc mắc nữa:
- Vì mỗi lần giao dịch có nhiều sản phẩm do đó Mỗi giao dịch đều lưu thành 2 table. Vậy khi lựa chọn giao dịch theo ngày tháng như trên phải viết cú pháp như thế nào cho ổn ^^!
- Trong khi chạy code nếu có 1 dữ liệu đã có sẵn thì bắt lỗi để update dữ liệu đã có của Khách hàng đó như thế nào. Ví dụ: khi chạy code, Khách hàng A đã có tongHH của tháng 3/2013 trong table thì sẽ cập nhật lại.
Mình gửi kèm file cho mọi ng tiện tham khảo Download
Xem nhanh database
|
|
Viết bởi: phamvietquy1992 04-05-13, 01:44 PM Chuyên mục: Forms - Bài trả lời (2) |
có 1 số bài tập về form mà mình ko hiểu , chủ yếu là về subform
cách yêu cầu và CSDL mình đã để trong file gửi kèm.
2/ mình có 1 bài tập access yêu cầu làm báo cáo
, nghiên cứu mãi mà ko ra , nhờ mọi người cho ý kiến
CSDL và yêu cầu đây https://docs.google.com/file/d/0B3OYkpLo...sp=sharing
|
|
Viết bởi: mrtula 04-05-13, 10:38 AM Chuyên mục: Report - Bài trả lời (4) |
Mình tạo 1 query truy vấn với điều kiện như hình (trường SoHDB):
![[Hình: untitled3.JPG]](https://www.dropbox.com/s/vecvtbn8hsob592/untitled3.JPG)
Với cách tạo điều kiện trên, mỗi lẫn mở query lên thì sẽ yêu cầu đánh vào số hóa đơn muốn truy vấn và chỉ truy vấn số hóa đơn đó.
Tạo report của query này.
Sau đó mình tạo một main-sub form như hình:
![[Hình: untitled4.JPG]](https://www.dropbox.com/s/qgnkgrmqkk8gz3r/untitled4.JPG)
và tạo button link với report.
Nhờ các bạn chỉ giúp mình làm cách nào để khi bấm vào Button In hóa đơn thì sẽ tự động hiểu là số hóa đơn đang hiển thị trên Form (ko cần phải nhập lại số hóa đơn trong bảng Enter Parameter Value như hình)
Cám ơn mọi người.
|
|
Viết bởi: mrtula 04-05-13, 10:23 AM Chuyên mục: Forms - Bài trả lời (4) |
Mình tạo CSDL như sau và liên kết như hình:
![[Hình: untitled.JPG]](https://www.dropbox.com/s/zdsuovne7xqoegu/untitled.JPG)
Trong table Hóa đơn bán hàng, sau khi mình nhập Số hóa đơn thì sẽ hiện lên table con của chi tiết bán hàng để nhập
![[Hình: untitled2.JPG]](https://www.dropbox.com/s/rhwinuyfg7q5v0y/untitled2.JPG)
Với cách nhập này thì trường SoHDB của Table Chi tiet ban hang sẽ tự động hiểu SoHDB.
Các bạn chỉ dùm mình cách làm form để nhập liệu với nha.
|
Viết bởi: Xuân Thanh 03-05-13, 12:19 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (4) |
--- Cú pháp : Dir ( Path, [Attribute] As vbFileDirectory) As String
Hàm trả về giá trị chuỗi là tên của tập tin hoặc thư mục hay nhãn của ổ đĩa. Hàm sẽ trả về giá trị rỗng nếu đường dẫn không có thật.
Path : Đường dẫn đến tập tin/ thư mục/ phân vùng
Attribute : thường dùng nhất là vbNormal (mặc định - dùng để lấy tên tập tin) và vbDirectory (lấy tên thư mục)
----- Ví dụ :
Dir ("E:\Example.mdb") '>>> Kết quả là Example.mdb
Dir ("E:\New Folder") '>>> Kết quả là rỗng (vì NewFolder không phải là tập tin)
Dir ("E:\New Folder", vbDirectory) '>>> Kết quả là New Folder
Mẹo : bạn có thể dùng hàm Dir để kiểm tra sự tồn tại của một tập tin/ thư mục nào đó :
Mã:
Sub ValidateFile()
If Dir("E:\My File.txt") = "" Then
Msgbox "File khong ton tai"
Else
Msgbox "File co ton tai"
End If
End Sub
Sub ValidateFolder()
If Dir("E:\My Folder", vbDirectory) = "" then
Msgbox "Folder khong co ton tai"
Else
Msgbox "Folder co ton tai"
End If
End Sub** Có thể sử dụng dấu chấm hỏi hoặc dấu sao để đại diện cho 1 hoặc nhiều ký tự
VD: Dir("E:\My Folder\*.mdb") '>>> Nếu có nhiều hơn 1 file mdb thì hàm sẽ trả về tên file đầu tiên được tìm thấy. Bạn có thể dùng vòng lặp để liệt kê các tập tin trong một thư mục hay các thư mục trong 1 ổ đĩa, vấn đề này sẽ được đề cập trong phần khác
| Chủ đề Mới nhất |
| carcasses d’abat-jour -Chuyên mục: MS Word-Đăng bởi lần cuối: Elmerneola-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 2 |
| Mahadev ID Support, Accou... -Chuyên mục: MS Word-Đăng bởi lần cuối: mahadevidnumberphece-8 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,344 |
| 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: 144 |
| 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: 160 |
| 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,083 |
| 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: 181 |
| Đồ 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: 657 |
| 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: 184 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 626 |
| 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 đủ |