Xin chào cả nhà, lâu rồi chưa lên diễn đàn do công việc bận rộn nhưng với niềm đam mê Access nay mình xin chia sẻ video cho các bạn sinh viên mới vào ngành tham khảo video hướng dẫn tạo form đăng nhập bằng access nhé. Mình sẽ bổ sung thêm video hướng dẫn tạo form quên mật khẩu, đổi mật khẩu v.v.. trong thời gian tới các bạn nhớ theo dõi bài đăng của mình.



Video 2 có file demo bản chuẩn


video 3 tạo form tạo tài khoản:

Chú Quan_PC cập nhật hêm bản Demo.accdb nữa thì tuyệt vời. Cảm ơn Chú nhiều
Cháu DooHoaangPhuuc

Chú Quan_PC cập nhật hêm bản Demo.accdb nữa thì tuyệt vời. Cảm ơn Chú nhiều
Ngoài ra có thể Chú thêm phần code cho checkbox để ghi nhớ login đăng nhập lưu giữ lần đăng nhập trước
Cháu DooHoaangPhuuc

(04-04-19, 12:59 AM)DooHoaangPhuuc Đã viết: Chú Quan_PC cập nhật hêm bản Demo.accdb nữa thì tuyệt vời. Cảm ơn Chú nhiều
Ngoài ra có thể Chú thêm phần code cho checkbox để ghi nhớ login đăng nhập lưu giữ lần đăng nhập trước
Cháu DooHoaangPhuuc

trong video có bản demo đó em nhé =) cái này đơn giản thôi trong access khi tắt thì nó sẽ thoát hết chứ ko như web còn [/url]Session và cookie

[url=https://freetuts.net/session-va-cookie-trong-php-25.html]

Muốn ghi nhớ đăng nhập cũng có cách đơn giản nhưng nó sẽ không bảo mật cho lắm.
- Thông tin đăng nhập sẽ được mã hoá và lưu vào 1 file .txt nào đó dấu qua nhiều lớp folder (vd: trong ổ C:\).
- Khi form load thì móc file text này lên. 
Cách làm gần giống với cái demo lúc trước tôi có post lên diễn đàn: khi login có tuỳ chọn dùng file INI để lấy thông số kết nối. Bạn có thể dựa vào đó phát triển.
Link: http://thuthuataccess.com/forum/thread-10003.html

Không biết cháu khai báo như thế nào mà mãi bị lỗi dòng rs.Movefirst

Private Sub cmdLogin_Click()


Dim DB As DAO.Database
Dim rs As DAO.Database
    Set BD = CurrentDb
    Set rs = DB.OpenRecordset("Table_Login")
    rs.MoveFirst
    If rs.Fields("User") = txtuser.Value And rs.Fields("pass") Then
    Exit Do
    Else
    rs.MoveNext
    End
    Loop While Not rs.EOF
    If rs.EOF Then
    MsgBox "Ten dang nhap hoac mat khau khong dung !", vbOKOnly, "Thong bao"
    Else
    DoCmd.Close
    DoCmd.OpenForm "F_Main"
    End If
    rs.Close
    DB.Close

End Sub

- Xem lại chính tả: BD vs DB
- Bẫy lỗi khi recordset trả về không có dòng nào.
    If rs.BOF And rs.EOF Then
       Msgbox "Không có dữ liệu"
       Exit Sub
    End If
    rs.MoveFist