Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: tronghieu9792 05-02-15, 11:55 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (8) |
Họ tên, Từ ngày. Đến Ngày, Tổng số ngày, Lũy kế số ngày.
Cụ thể mình muốn tính được số ngày lũy kế theo từng người của từng dòng như sau :
Võ Bá Phước, 01/02/2015, 02/02/2015, 2, 2
Võ Bá Phước, 03/02/2015, 05/02/2015, 3, 5
Nguyễn Ngọc, 01/02/2015, 05/02/2015, 5, 5.
Nhưng khi làm thì mình chỉ có thể tính được tổng lũy kế tất cả các dòng chứ không tính được số ngày lũy kế theo họ tên của từng người.
Kết quả là cho ra thế này:
Võ Bá Phước, 01/02/2015, 02/02/2015, 2, 2
Võ Bá Phước, 03/02/2015, 05/02/2015, 3, 5
Nguyễn Ngọc, 01/02/2015, 05/02/2015, 5, 10
Nhờ các bác chỉ giúp.
|
Viết bởi: maidinhdan 05-02-15, 01:59 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (40) |
Thông tin về demo:
1. Xuất từ table ra file Excel theo mẫu Excel có sẳn và tự đặt tên;
2. Xuất từ Query có đặt điều kiện ra file Excel theo theo mẫu Excel có sẳn và tự đặt tên.
3. Xuất từ nhiều table/query ra nhiều Sheet Excel
Form demo
![[Hình: demoxuatfile%20sang%20Access.png]](https://sites.google.com/site/congthucassecc/home/demoxuatfile%20sang%20Access.png)
Mẫu Excel dựng sẳn
![[Hình: maudemo.png]](https://sites.google.com/site/congthucassecc/home/maudemo.png)
Mẫu Excel dựng sẳn
Demo: https://sites.google.com/site/congthucassecc/home/Tong%20hop_Access%20Xuat%20sang%20Excel_VIP.rar?attredirects=0&d=1
Bổ sung link mediafire: http://www.mediafire.com/download/l40a4z...opass).rar ( Không có đặt pass VBA)
Nguồn được tổng hợp sưu tầm trên trang thuthuataccess.( Tác giả của code được đính trong demo)
Pass VBA: ngày mai post. Vì sợ nó chạy lỗi. gần 1 giờ rồi
Pass VBA: codobanghiep
Bổ sung code xuất từ nhiều table/query ra nhiều Sheet Excel
Đoạn code sau sẽ giúp xuất 2 table vào 1 file Excel theo mẫu, được chỉ định vị trí trước
Đã test:
Mã PHP:
Private Sub cmdExport_Click()
On Error Resume Next
Dim db As DAO.Database
Dim rs1 As DAO.Recordset ' table1'
Dim rs2 As DAO.Recordset 'table2'
Dim tb1 As String ' table1'
Dim tb2 As String ' table2'
Dim oApp As New Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Set oBook = oApp.Workbooks.Open(CurrentProject.Path & "\Danh sach khach hang.xlt")
tb1 = "select * from tblKhach" ' tblKhach là tên table 1'
tb2 = "select * from tblchu" ' tblchu là tên table 2'
Set oSheet = oBook.Sheets("Danh Sach")
Set db = CurrentDb
' Chép dữ liệu từ table1 vào file Excel bắt đầu từ cột B dòng thứ 7'
Set rs1 = db.OpenRecordset(tb1, dbOpenSnapshot)
oSheet.Range("b7").CopyFromRecordset rs1 'b7: lla cot B dong thu 7'
' Chép dữ liệu từ table2 vào file Excel bắt đầu từ cột B dòng thứ 25'
Set rs2 = db.OpenRecordset(tb2, dbOpenSnapshot)
oSheet.Range("b25").CopyFromRecordset rs2 'b25: lla cot B dong thu 25'
' Xoa bien va giai phong bo nho dong thoi mo file Excel'
rs1.Close
rs2.Close
oApp.Visible = True
oApp.UserControl = True
db.Close
End Sub
Nếu muốn table 2 nạp vào sheet2 chẳng hạn thì thêm đoạn
Mã PHP:
Set oSheet = oBook.Sheets("Sửa lại tên Sheet2")
Chèn vào dưới chữ : Chép dữ liệu từ table2 vào file Excel bắt đầu từ cột B dòng thứ 25
Ứng dụng: Ta có thể Export nhiều Table đến một file Excel theo mẫu dựng sẳn mà trong đó gồm nhiều mẫu báo cáo ( phần này sau khi làm xong Ứng dụng báo cáo thống kê số liệu mình sẽ post một số ảnh minh họa lên để chia sẽ cùng mọi người)
Nếu không hay xin chém nhẹ tay.
|
|
Viết bởi: maidinhdan 04-02-15, 06:00 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (1) |
(04-02-15, 08:00 AM)dinhnhieu Đã viết: Có vướng mắc nữa xin hỏi Maidinhdanh: có cách nào khi xuất ra excel từ Qry lấy tham số từ ngày đến ngày trong frm được không? ở mục Báo cáo\Tồn theo ngày.
https://www.dropbox.com/s/zi8oa52aeligo5...D.mdb?dl=0
Xin chân thành cảm ơn.
Trả lời:
Bạn vào query "Q_trong" cột [NgayHD] sửa lại đoạn: Between [tungay] and [denngay] thành
Mã:
Between [Forms]![F_ThuocTonXuatNhap]![TuNgay] And [Forms]![F_ThuocTonXuatNhap]![DenNgay]Vậy là ok, bạn xuất sang Excel thoải mái.
Một số góp ý xoay quanh Export sang Excel của bạn để phần mềm êm hơn: Làm hay không làm cũng không sao
1. nút xuất sang Excel của bạn cần phải chỉnh lại để mà khi xuất ra nó lưu với một tên khác nhau chứ.
Hiện tại, nút của bạn xuất ra nó sẽ đè lên file củ luôn, vậy làm xuất sang Excel có ý nghĩa gì khi mà file xuất lần trước mất đi.
Cần bổ sung code tự động xuất ra thư mục và đặt tên theo ngày xuất ( hay còn gọi là từ ngày đến ngày)
Cái này bạn tự nghiên cứu nhé, nếu không được thì sẽ giúp tiếp. ( Bởi tự mài mò sẽ mau tiến bộ hơn so với những gì mình hướng dẫn ==> kinh nghiệm của mình cũng như vậy mà có)
2. Modules XuatExcell sao không áp dụng để tạo một mẫu để xuất ra cho nó đẹp vậy.
Bài này bạn kiếm trên mạng rất nhiều.
Demo thì mình không gửi đâu nhé: vì chỉ chỉnh có cái query thì cần gì mà làm lại.
3. Nói thêm về xuất Table, Query sang Excel hiện tại thì mình biết có 03 cách ( thực ra là 02 cách: dùng VBA và Macro):
1. Thứ nhất: đó là code của bạn đang dùng
Mã:
DoCmd.TransferSpreadsheet acExport, 8, "Tên table/Query", "c:\A.xls", False, ""False/True : là cho phép open hay không?
2. Thứ hai:
Mã:
DoCmd.OutputTo acQuery, "Tên table", "MicrosoftExcelBiff8(*.xls)", "", True, "", 03. Thứ 3: Dùng Macro
Xem demo: https://sites.google.com/site/congthucas...ects=0&d=1
Lưu ý khi dùng 03 cách trên:
1. Bởi vì VBA OutputTo chỉ hỗ trợ bảng ANSI. Nên trong trường hợp xuất dữ liệu từ access ra excel không nhận tiếng Việt.
Bạn có thể áp dụng cách 3 Đảm bảo nhận Font bình thường
2. TransferSpreadsheet chỉ áp dụng được cho table. Nến nếu user muốn 1 report ra Excel vẫn phải dùng Phương thức OutputTo
Đây là bài viết đã được Noname nhắc đến rồi.
Kết luận: Bài viết này tớ dự kiến viết tiếp bổ sung các Demo gồm:
1. Minh Họa thêm cách 1, cách 2 gồm
+ Xuất Table
+ Xuất Query
+ Xuất Report
.....
2. Xuất file ra đặt tên luôn
3. Xuất ra Excel theo mẫu dựng sẵn.
Nếu thấy không được, xin vào chê một cái.
Tạo form đăng ký thành viên trong access
|
Viết bởi: quan_pc 02-02-15, 10:37 AM Chuyên mục: Forms - Bài trả lời (11) |
Co[/font]de
Trích dẫn:Tạo đăng ký tài khoản:
tadmin(user,pass,hoten,cauhoibimat,traloi)
các textbox cần có: txtten, txtpass, txthoten,txtbimat,txttraloi,
Nút lệnh: Tạo tài khoản "tao", nút lệnh đóng "dong"
-----
Private Sub tao_Click()
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb
Set rs = DB.OpenRecordset("tadmin")
rs.MoveFirst
Do While (rs.EOF = False)
If (rs.Fields("user") = txtten.Value) Then
MsgBox "Ten dang ky da co"
Exit Sub
End If
rs.MoveNext
Loop
rs.AddNew
If (txtpass.Value = txtpass2.Value) Then
rs.Fields("user") = txtten.Value
rs.Fields("pass") = txtpass.Value
rs.Fields("hoten") = txthoten.Value
rs.Fields("cauhoibimat") = txtbimat.Value
rs.Fields("traloi") = txttraloi.Value
rs.Update
rs.Close
DB.Close
MsgBox "Da dang ky thanh cong!"
Else
MsgBox "xac nhan pass khong trung!"
End If
End Sub
Lỗi Run-time error '13'|
|
Viết bởi: yang_ying 31-01-15, 10:53 AM Chuyên mục: Forms - Bài trả lời (2) |
Hiện tại gặp vấn đề lỗi trong phần Form " F_BENHNHAN ", khi đang thực hiện thao tác nhập mới và nhấp vào phần lưu thì bị lỗi ạ. Có hình phía dưới:
![[Hình: IIqp3gP.png]](http://i.imgur.com/IIqp3gP.png)
Có link kèm theo:
https://app.box.com/s/snw13ug3u6wbqisb1457g3qfttur6ble
Các anh, chị giúp giùm em nhé!
Chúc anh, chị nhiều sức khỏe!
| Chủ đề Mới nhất |
| nv casino — практический ... -Chuyên mục: MS Word-Đăng bởi lần cuối: MichaelHieta-4 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-9 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-10 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-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: 158 |
| 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: 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: 669 |
| 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 đủ |