Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: Taihuynh 19-10-19, 11:43 AM Chuyên mục: Forms - Bài trả lời (4) |
Em có tham khảo code tìm kiếm trên diễn đàn nhưng sử dụng dạng main-sub form không áp dụng vào ứng dụng của em được, em xin mạn phép gửi file lên nhờ các Anh, Chị giúp đỡ.
Mục đích của em là tìm theo Dry, từ ngày đến ngày và xuất report.
Trân trọng cảm ơn các Anh, Chị.
Link file
P/s: Em chỉ mới tìm hiểu access có gì sai sót mong các Anh, Chị thông cảm và giúp đỡ em xin chân thành cảm ơn.
|
Viết bởi: ongke0711 19-10-19, 02:45 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (2) |
Đối với vấn đề tự động kiểm tra kết nối của Linked Table có rất nhiều cách tiếp cận. Lần này tôi cũng có một demo chia sẻ với các bạn về vấn đề trên.
Như phần 1 demo của Mod maidinhdan đã giới thiệu với các bạn, đây là hướng dẫn cách cơ bản nhất để các bạn có thể theo thủ thuật đó mà phát triển thêm cho các ứng dụng thực tế của các bạn.
Lần này demo của tôi sẽ đi theo hướng chi tiết vào qui trình xử lý (luồng thao tác) thực tế của ứng dụng.
Thông thường thì khi ứng dụng khởi động sẽ chạy cái form Splash màu mè để giới thiệu sản phẩm hoặc form đăng nhập thẳng luôn. Khi đó mình sẽ dùng cái form Splash (hoặc Macro Autoexec) để kích hoạt thủ tục/ hàm kiểm tra các đường link tới CSDL Backend có còn hiệu lực không và tái kết nối nếu có vấn đề phát sinh. Để làm được điều này thì tôi dùng 1 table lưu các đường dẫn tới các file BE (đã kết nối thành công ở lần trước) và file này luôn nằm (đi theo) trong file FE và là "local table" chứ không phải "linked table".
- Hàm sẽ kiểm tra kết nối thử tới các database này, nếu thành công thì vô thẳng form đăng nhập và sử dụng.
- Nếu kết nối không được sẽ hiện bảng để bạn chọn lại đường dẫn database BE. Sau đó sẽ xoá các linked table hiện hữu và tạo link mới từ đường dẫn file BE vừa cung cấp.
![[Hình: 48919939061_084d1ea648_o.png]](https://live.staticflickr.com/65535/48919939061_084d1ea648_o.png)
Việc kiểm tra xem đường dẫn tới file có còn "nằm đúng chỗ" hay không thì tôi hay dùng hàm Dir() hàm này rất nhanh nhưng hàm này chưa đủ trong việc xác định Linked table hiện tại có thể kết nối được với database BE đó hay không do có đặt mật khẩu database. Có nhiều trường hợp lúc đầu không đặt mật khẩu, sau này suy nghĩ lại và đặt mật khẩu cho BE hoặc thay đổi mật khẩu mới. Khi đó bắt buộc bạn phải xoá hết Linked table cũ và Import Link lại với BE mới có mật khẩu (nếu linked table lần trước đã link với BE có mật khẩu rồi thì không cần xoá table). Chuỗi kết nối (tdf.Connect) sẽ khác nhau. Khi đó hàm Dir() cho bạn biết file BE còn nằm đúng chỗ nhưng linked table kết nối vô sẽ báo lỗi sai password.
Để tránh trường hợp này thì tôi dùng cách mở thẳng cái BE đó với mật khẩu cũ, nếu báo lỗi sẽ hiện form để cập nhât lại đường dẫn + password.
Mã PHP:
On Error GoTo ErrHandler
Set db = DBEngine.OpenDatabase(strDatabasePath, False, True, "MS Access;PWD=" & strPassword)
Sau khi cung cấp đường dẫn và mật khẩu hợp lệ cho database BE, sẽ tiến hành xoá Linked table cũ và nạp lại Linked table mới.
Tôi có dùng thử lệnh xoá: Docmd.DeleteObject nhưng thấy nó chậm và phát sinh một lỗi không hiểu đó là nó xoá không hết table (Không biết do lỗi Access hay sao nhưng đã cài lại Access vẫn bị).
Mã PHP:
For Each tdfI In dbs.TableDefs
If Len(tdfI.Connect) > 0 Then
If tdfI.Connect Like "*;DATABASE=*" Then 'Chi xóa link cua Access database
On Error Resume Next '* Khong có dòng này, se không xóa hêt tdf
dbs.TableDefs.Delete tdfI.Name
End If
End If
Next tdfI
Tôi thêm điều kiện: Like "*;DATABASE=*" để chỉ xoá các Linked table của Database Access thôi. Có nhiều ứng dụng có link với Excel và CSDL khác nên không đụng tới các link này.
Sau khi xoá Linked table sẽ tạo link mới tới file BE hợp lệ. Tôi cũng có test thử việc tạo link table mới bằng lênh: Docmd.TransferTransferDatabase acLink... nhưng cũng thấy chậm hơn so với dùng TableDef.
Mã PHP:
Set tdfI = dbs.CreateTableDef(strTableName)
tdfI.Connect = conn
tdfI.SourceTableName = strTableName
dbs.TableDefs.Append tdfI
Sau khi đã link lại toàn bộ table của các database BE thì tôi dùng code để mở kết nối liên tục tới các BE nhằm tăng tốc độ truy vấn các table. Phần này tôi đã có nói trong bài trước. Các bạn xem link ở đây.
Link: https://thuthuataccess.com/forum/thread-11157.html
Vậy là xong việc kết nối lại với các Linked table. Code để thực hiện kết nối thì không có gì khó, chủ yếu khó là bẫy lỗi các vấn để có thể phát sịnh trong quá trình thao tác, sử dụng ứng dụng.
Trong demo tôi có làm sẳn một macro "AutoExec1", nếu bạn nào không dùng form Splash thì sửa thành "AutoExec" để Access tự chạy macro này khi khởi động ứng dụng, kiểm tra Linked table.
Dưới đây là link file demo, các bạn test xem thử nhé.
Link demo: https://drive.google.com/open?id=1oOl9WixCXssN59cldcAvHikSV0qXgAGk
|
|
Viết bởi: nghiep 16-10-19, 02:40 PM Chuyên mục: Query - Bài trả lời (1) |
Ví dụ như em có bảng: dbo_vs_Intran_Farm_GF và bản dbo_vs_Intran_Farm_GF1
SELECT A.batnbr, A.refnbr, A.ReceiptNote, A.trantype, A.trandate, A.perpost, A.invtid, A.siteid, A.whseloc, A.acct, A.sub, A.invtacct, A.invtsub, A.qty, A.Unitdesc, A.unitprice, A.tranamt, A.reasoncd, A.IssueForID, A.apbatnbr, A.POreceiptNo, A.invtmult, A.crtd_user, A.lupd_user
FROM dbo_vs_Intran_Farm_GF AS A
WHERE (((A.trantype)=[Nhập (RC)/ Xuat (II)]) AND ((A.perpost) Like [ Month ]) AND ((A.siteid) Like [ Kho ]))
ORDER BY A.trandate;
Trong phần FROM dbo_vs_Intran_Farm_GF AS A mình có thể đặt Đk if để tùy chọn bảng dbo_vs_Intran_Farm_GF hoặc bảng dbo_vs_Intran_Farm_GF1 được không.
|
Viết bởi: maidinhdan 15-10-19, 10:13 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (6) |
muonhochoi Đã viết:https://thuthuataccess.com/forum/post-43...l#pid43208
Đợi bác ongke71 mà lâu quá ạ.
Tôi viết Demo Link table này dùng code kết nối đến file Access bất kỳ: *.mdb, *.accdb, *.adp
Áp cho tất cả phiên bản Access *.mdb hoặc *.accdb, có Pass hay không có pass cũng vậy
Và cũng không cần phải link table bằng tay trước
Cú pháp gọi hàm và cách sử dụng có ghi trong hình
Hình minh họa
![[Hình: Demo_LinkTable1.png]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/Demo_LinkTable1.png)
![[Hình: Demo_LinkTable3.png]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/Demo_LinkTable3.png)
![[Hình: Demo_LinkTable2.png]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/Demo_LinkTable2.png)
Để nghiên cứu vui lòng để lại email ở bên dưới.
|
|
Viết bởi: longkd_bvct@yahoo.com.vn 15-10-19, 09:09 AM Chuyên mục: Query - Bài trả lời (5) |
Em tạo một bảng có tên là DanhMucHang, trong bảng gồm các fiel: tenhang, dvt, dongia, soluongton, soluongban.
và một bảng là ChitietHoadon gom tenhang và soluongban.
Em tạo 1 Query để cập nhật soluongban từ ChitietHoadon sang soluongban của bảng DanhMucHang.
Giờ em muốn xóa record soluong bán vừa mới cập nhật thì phải làm sao ạ
| Chủ đề Mới nhất |
| chèn hình theo điều kiện -Chuyên mục: Forms-Đăng bởi lần cuối: tranthanhan1962-3 Giờ trước- » Bài trả lời: 37- » Lượt xem: 2,881 |
| Demo Import Sheet Excel v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: nguyencuong1995-Hôm qua, 11:40 AM- » Bài trả lời: 19- » Lượt xem: 1,858 |
| (Phần 2) Tự động Link Tab... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-Hôm qua, 10:56 AM- » Bài trả lời: 2- » Lượt xem: 106 |
| Demo_Code Ẩn tất cả mọi t... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: tung99-Hôm qua, 10:07 AM- » Bài trả lời: 182- » Lượt xem: 51,466 |
| Form tìm kiếm nhiều điều ... -Chuyên mục: Forms-Đăng bởi lần cuối: Taihuynh-Hôm qua, 08:36 AM- » Bài trả lời: 4- » Lượt xem: 131 |
| Thơ Họa Nguyễn Thành Sáng... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-Hôm qua, 12:08 AM- » Bài trả lời: 291- » Lượt xem: 8,906 |
| So sánh Cú pháp kết nối c... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: Anna-21-10-19, 04:47 PM- » Bài trả lời: 5- » Lượt xem: 2,282 |
| [Phần 1]Demo Link Table n... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: nghiep-21-10-19, 10:36 AM- » Bài trả lời: 6- » Lượt xem: 149 |
| Mọi người cho mình hỏi có... -Chuyên mục: Việc Làm Access-Đăng bởi lần cuối: lmthu-21-10-19, 08:40 AM- » Bài trả lời: 3- » Lượt xem: 793 |
| PHẦN MỀM QUẢN LÝ PHÒNG KH... -Chuyên mục: Việc Làm Access-Đăng bởi lần cuối: truonghet-20-10-19, 06:29 PM- » Bài trả lời: 0- » Lượt xem: 40 |
| Diễn đàn Thống kê |
|
» Thành viên: 3,418 » Thành viên mới nhất: david1 » Các chủ đề diễn đàn: 8,865 » Các bài viết diễn: 39,730 Thống kê đầy đủ |