Chào mọi người, mình đang làm một phần mềm, về cơ bản đã gần hoàn thành, chỉ còn mỗi form login và form lấy mã ổ cứng để đăng ký bản quyền sử dụng phần mềm. Lúc trước mình code bằng Access 2003 thì chạy được form, nhưng nay mình lưu dưới dạng Access 2016 thì code lại báo lỗi, không chạy được form nữa (mình muốn chuyển sang định dạng Access 2016 để điều chỉnh giao diện đẹp hơn). Nó cứ mãi báo lỗi tại dòng code này: "Set rs = CurrentDb.OpenRecordset("tblCopyRight")" tại các form: frmGenerate, frmLogin, frmRegedit. Nhưng nếu mình chuyển sang định dạng Access 2003 cũng với code đó thì chạy bình thường.
Mong mọi người sữa giúp lỗi này cho mình. Xin ý kiến về form login mình làm, có cần phải làm như thế hay cách nào khác.
Link: https://drive.google.com/open?id=10pHP55...cJWAItl4Ma

Mình thì hay sử dụng: Dim rs As DAO.Recordset chứ không chỉ Recordset không như bạn.
Bạn thử xem sao?

Tuy nhiên mình thấy nếu lấy giá trị trong bảng sao bạn không dùng Dlookup phải nhanh hơn không?
Viết khai báo recordset thì tiện thật nhưng code dài quá. Bảng có một Record thì làm gì cần phải setrecord cho loằng ngoằng ra.

(10-04-19, 10:05 PM)vietnc Đã viết: Chào mọi người, mình đang làm một phần mềm, về cơ bản đã gần hoàn thành, chỉ còn mỗi form login và form lấy mã ổ cứng để đăng ký bản quyền sử dụng phần mềm. Lúc trước mình code bằng Access 2003 thì chạy được form, nhưng nay mình lưu dưới dạng Access 2016 thì code lại báo lỗi, không chạy được form nữa (mình muốn chuyển sang định dạng Access 2016 để điều chỉnh giao diện đẹp hơn). Nó cứ mãi báo lỗi tại dòng code này: "Set rs = CurrentDb.OpenRecordset("tblCopyRight")" tại các form: frmGenerate, frmLogin, frmRegedit. Nhưng nếu mình chuyển sang định dạng Access 2003 cũng với code đó thì chạy bình thường.
Mong mọi người sữa giúp lỗi này cho mình. Xin ý kiến về form login mình làm, có cần phải làm như thế hay cách nào khác.
Link: https://drive.google.com/open?id=10pHP55...cJWAItl4Ma

Từ Access 2013 trở lên, Access đã không hỗ trợ ngược lại các phiên bản Access sử dụng Jet Database Engine cũ, DAO 3.5, 3.0 mà đổi sang ACE nên khi bạn chỉ khai báo: Dim rs As Recordset thì Access không hiểu bạn đang dùng bộ máy xử lý nào.
Do đó bạn nên thay đổi  việc khai báo các đối tượng Database, Recordset thành tường minh.

Dim db As DAO.Database
Dim rs As DAO.Recordset

Đối với thư viện DAO bạn mới dùng được phương pháp .FindFisrt

(11-04-19, 04:11 PM)ongke0711 Đã viết:

(10-04-19, 10:05 PM)vietnc Đã viết: Chào mọi người, mình đang làm một phần mềm, về cơ bản đã gần hoàn thành, chỉ còn mỗi form login và form lấy mã ổ cứng để đăng ký bản quyền sử dụng phần mềm. Lúc trước mình code bằng Access 2003 thì chạy được form, nhưng nay mình lưu dưới dạng Access 2016 thì code lại báo lỗi, không chạy được form nữa (mình muốn chuyển sang định dạng Access 2016 để điều chỉnh giao diện đẹp hơn). Nó cứ mãi báo lỗi tại dòng code này: "Set rs = CurrentDb.OpenRecordset("tblCopyRight")" tại các form: frmGenerate, frmLogin, frmRegedit. Nhưng nếu mình chuyển sang định dạng Access 2003 cũng với code đó thì chạy bình thường.
Mong mọi người sữa giúp lỗi này cho mình. Xin ý kiến về form login mình làm, có cần phải làm như thế hay cách nào khác.
Link: https://drive.google.com/open?id=10pHP55...cJWAItl4Ma

Từ Access 2013 trở lên, Access đã không hỗ trợ ngược lại các phiên bản Access sử dụng Jet Database Engine cũ, DAO 3.5, 3.0 mà đổi sang ACE nên khi bạn chỉ khai báo: Dim rs As Recordset thì Access không hiểu bạn đang dùng bộ máy xử lý nào.
Do đó bạn nên thay đổi  việc khai báo các đối tượng Database, Recordset thành tường minh.

Dim db As DAO.Database
Dim rs As DAO.Recordset

Đối với thư viện DAO bạn mới dùng được phương pháp .FindFisrt

Tks bạn. Vấn đề này sau khi đổi code khai báo đã giải quyết xong. Tuy nhiên, cho mình hỏi, database của mình sao khi thêm mới các form chạy thì báo lỗi giao tiếp với máy chủ OLE hoặc điều khiển ActiveX là sao nhỉ ?
Hình đây ạ: https://drive.google.com/open?id=1G0CLZX...NRb3AHmqh6

Lỗi này chủ yếu là do trong các control trên Form có cái có "Name" là tiếng Việt có dấu hoặc có khoảng trắng. Bạn kiểm tra kỹ thuộc tính Name của từng textbox, nút lênh, label v.v... xem cái nào dính lỗi trên thì sửa thành tiếng Việt không dấu và viết liền.

(12-04-19, 10:59 PM)ongke0711 Đã viết: Lỗi này chủ yếu là do trong các control trên Form có cái có "Name" là tiếng Việt có dấu hoặc có khoảng trắng. Bạn kiểm tra kỹ thuộc tính Name của từng textbox, nút lênh, label v.v... xem cái nào dính lỗi trên thì sửa thành tiếng Việt không dấu và viết liền.

Thanks nhiều!!! Mình đã tìm và thấy đúng là sub_Form có name tiếng việt, đã chỉnh và sửa được lỗi.
Mình nhờ ongke0711 giúp mình thêm 3 vấn đề đang gặp rắc rối không xử lý được:
1. Trong form nhập độc giả, mình muốn thêm 1 subform bên dưới lấy dữ liệu cũng từ table Độc giả, mục đích là khi thêm hoặc di chuyển tên các độc giả trong các field bên trên thì có danh sách bên dưới di chuyển đúng dòng mình đang hiển thị phía trên.
Hình ảnh cụ thể form này đây ạ: https://drive.google.com/open?id=1sYdV5b...1ec5oh-Zqf
2. Lúc trước mình tạo menu bằng các macro, bây giờ mình muốn xóa menu này đi, nhưng khi khởi động database thì trong mục AddIn của ACCESS vẫn còn chạy các menu cũ này, không tài nào xóa được (mình muốn chuyển sang làm bằng Ribbon để chèn icon vào cho giao diện đẹp hơn).
Hình đây ạ: https://drive.google.com/open?id=1fbcqwf...jZ-SmMhyb7
3. Các form khi thiết kế mình điều chỉnh size vừa phải, nhưng khi thực thi các form từ menu hay từ form F_Main thì các form tự động bung hết cả màn hình, làm nó không được đẹp lắm.
Mong bạn trợ giúp cho mình 03 vấn đề này, cảm ơn nhiều.

(14-04-19, 08:41 PM)vietnc Đã viết: 1. Trong form nhập độc giả, mình muốn thêm 1 subform bên dưới lấy dữ liệu cũng từ table Độc giả, mục đích là khi thêm hoặc di chuyển tên các độc giả trong các field bên trên thì có danh sách bên dưới di chuyển đúng dòng mình đang hiển thị phía trên.
Hình ảnh cụ thể form này đây ạ: https://drive.google.com/open?id=1sYdV5b...1ec5oh-Zqf
2. Lúc trước mình tạo menu bằng các macro, bây giờ mình muốn xóa menu này đi, nhưng khi khởi động database thì trong mục AddIn của ACCESS vẫn còn chạy các menu cũ này, không tài nào xóa được (mình muốn chuyển sang làm bằng Ribbon để chèn icon vào cho giao diện đẹp hơn).
Hình đây ạ: https://drive.google.com/open?id=1fbcqwf...jZ-SmMhyb7
3. Các form khi thiết kế mình điều chỉnh size vừa phải, nhưng khi thực thi các form từ menu hay từ form F_Main thì các form tự động bung hết cả màn hình, làm nó không được đẹp lắm.

2. Bạn vô Menu File -> Option ->Customize Ribbon --> Vô khung bên phải, bỏ chọn checkbox Add-ins

3. Trong Form Design, bạn vô Form Properties -> Format -> mục AutoResize: chọn Yes, mục Border style: chọn Thin
Máy tôi mở lên không thấy form nào bung đầy màn hình, chỉ có một số Form có thể do bạn thiết kế trên máy bạn có độ phân gỉai cao nên khi qua máy tôi nó lớn hơn màn hình máy tính của tôi (1276 x 739).

1. Tôi đã thêm và sửa cái form F_NhapDocGia của bạn.
- Khi di chuyển trên Main form thì sub form di chuyển theo và ngược lại.
- Sửa nút Xoá.

Link file đã sửa: http://www.mediafire.com/file/h6553ivr6v...a%29.accdb

(15-04-19, 06:16 PM)ongke0711 Đã viết:

(14-04-19, 08:41 PM)vietnc Đã viết: 1. Trong form nhập độc giả, mình muốn thêm 1 subform bên dưới lấy dữ liệu cũng từ table Độc giả, mục đích là khi thêm hoặc di chuyển tên các độc giả trong các field bên trên thì có danh sách bên dưới di chuyển đúng dòng mình đang hiển thị phía trên.
Hình ảnh cụ thể form này đây ạ: https://drive.google.com/open?id=1sYdV5b...1ec5oh-Zqf
2. Lúc trước mình tạo menu bằng các macro, bây giờ mình muốn xóa menu này đi, nhưng khi khởi động database thì trong mục AddIn của ACCESS vẫn còn chạy các menu cũ này, không tài nào xóa được (mình muốn chuyển sang làm bằng Ribbon để chèn icon vào cho giao diện đẹp hơn).
Hình đây ạ: https://drive.google.com/open?id=1fbcqwf...jZ-SmMhyb7
3. Các form khi thiết kế mình điều chỉnh size vừa phải, nhưng khi thực thi các form từ menu hay từ form F_Main thì các form tự động bung hết cả màn hình, làm nó không được đẹp lắm.

2. Bạn vô Menu File -> Option ->Customize Ribbon --> Vô khung bên phải, bỏ chọn checkbox Add-ins

3. Trong Form Design, bạn vô Form Properties -> Format -> mục AutoResize: chọn Yes, mục Border style: chọn Thin
Máy tôi mở lên không thấy form nào bung đầy màn hình, chỉ có một số Form có thể do bạn thiết kế trên máy bạn có độ phân gỉai cao nên khi qua máy tôi nó lớn hơn màn hình máy tính của tôi (1276 x 739).

1. Tôi đã thêm và sửa cái form F_NhapDocGia của bạn.
- Khi di chuyển trên Main form thì sub form di chuyển theo và ngược lại.
- Sửa nút Xoá.

Link file đã sửa: http://www.mediafire.com/file/6xar71kdhe...a%29.accdb

Cám ơn ongke0711 nhé! Nhưng bạn cho mình hỏi, nếu bỏ cái addin menu cũ rồi, khi mình chạy ribbon thì cũng không hiển thị ra nhỉ, không biết bị gì nữa, mình làm ribbon theo hướng dẫn của bạn Darkmoon mà không chạy menu trên bar nhỉ: http://thuthuataccess.com/forum/thread-3663.html
Còn nữa, sao link này mình không thấy file tải về nhỉ: http://www.mediafire.com/file/6xar71kdhe...a%29.accdb

Đã sửa lại link.