Chỉ mình cách tao form login trong Access

[sonvb]

Các bạn ơi, vừa rồi thằng bạn chí cốt của mình có nhờ viết dùm cho nó một phần mềm quản trị bán hàng(free, bạn bè mà...), ban đầu mình viết bằng VB6 dã gần xong nhưng ko hiểu sao khi chạy chương trình thường hay mắt lỗi :"Visual Basic has an encount a problem and need to cole, send, do'nt send, nhấn vào dont send thì chương trình thoát luôn") vì vậy mình định chuyển qua access 2000, thế là lên mạng để lùng sục tài liệu nhưng hầu hết đều bắt phải mua ( nhưng minh ko có tiền...hic...),qua một thỏi gian thì cũng biết sơ sơ, nhưng vấn đề chính của minh là ở đây :
Khi khởi động mình nuốn Form login được chạy trước (cái này mình đã làm được) và các menu ẩn đi (Cái này mình chưa làm được)

Vậy có bạn nào làm ơn chỉi dùm mình cách Show và hide menu (do mình tạo ra, chứ ko phải của Access) không....Nếu được xin bái làm sư phụ

Cảm ơn các bạn nhiều

[paulsteigel]

có vài ví dụ trong VBA mỗi ngày một ví dụ, bạn xem qua nhé!
Bạn nên download cả phần Setup.zip ở bài cuối, đổi tên thành setup.exe và cài đặt sau đó download cái VDP_2005 về mà patch nhé!
Chúc thành công!

[sonvb]

Cảm ơn ban Paulsteigelnhe, nhan tien bạn có thể chỉ cho minh làm cách nào khi thiết kế form mà ko dung thuộc tính "Navigation Record" mà thay vào đó mình thiết kế nhũng nút nhấn để di chuyển Record, và khi di chuyển thì dữ liệu trên text box cung di chuyển theo đồng thời con trỏ record(trong datasheet (la mot form thuoc tính dèault View la "Datasheet" cũng di chuyển theo)
Cảm ơn bạn nhiều lắm

[tieutam]

Bạn dùng control Wizard rất dễ, vẽ 1 commandbutton +next và làm theo hướng dẫn của acess

[lekynhan]

Nếu các bạn muốn biếc record hiện hành khi chúng ta duy chuyển con trỏ đến vị trí đó thì làm như sau:
' Tạo form chứa các đối tượng là Textbox(lblcurrent) và các field cần thiết
'Xây dựng 1 thủ tục

Private Sub Form_Current()
lblcurrent=me.recordcurrent

End Sub

[=========> Bổ sung bài viết <=========]

Tạo Form đăng nhập:
Các bạn chỉ cần dùng hàm If:
VD:
Private sub cmdok_click()
if txtusename="anh" and txtpassword="em" then
docmd.openform "F_main"
else
msgbox"Bạn càn nhập lại Usename và Pasword"
end if

end sub
------------------------------------------------------
Nhưng Tôi không biết cách làm khi nhập vào Password thì các ký tự mã hóa thành các dấu ************************
Nếu ai biết thì chỉ dùm. Thank !
Email:lekynhan@yahoo.com.vn

[cpucloi]

Bạn nhấn nút phải chuột, vào Pro... (Thuộc tính), chọn inputmask và nhập vào từ Password là OK
Chúc vui.

[meoconlilom]

Cách mã hóa ký tự trong ô pasword VD:**************
- Right Click vào ô pasword (Ô cần mã hóa)
- Vào thẻ data chọn dòng Input Mask và khai báo "Password"
+ Input Mask: Password
Email: thanhtamtct1@gmail.com

[hoaiduy]

Xin hỏi tạo và quản lý password - user name ở đâu, hay đã chỉ định sẵn trong câu lệnh rồi

[sunset_tnvn]

Xin hỏi tạo và quản lý password - user name ở đâu, hay đã chỉ định sẵn trong câu lệnh rồi

Theo mình biết để tạo một pass cho CSDL thì bạn phải mở tập tin ở chế độ "Open Exclusive" mới được.Sau khi mở bạn vào Tool -> Security -> Set Password.Sau đó nó hiện ra một form để nhập User name và password vào.Sau khi xác nhận lại pass ok là xong.
****** Nếu bạn muốn tạo riêng một form "đăng ký sử dụng" khi có ngưới muốn truy cập CSDL là một vấn đề khác.

[paulsteigel]

Đây là một ví dụ dùng DAO để thay đổi mật khẩu của cơ sở dữ liệu mà mình đã làm đấy


Function SetPassword(Optional ByVal OldPassword As String = "", Optional ByVal NewPassword As String = "", Optional sDbPath As String = "") As Boolean
' Setting database password
Dim Dbs As Database
On Error GoTo SetPassword_Err
If sDbPath = "" Then sDbPath = dbPath
Set Dbs = OpenDatabase(sDbPath, True, False, "MS Access;UID='Admin';PWD=" & OldPassword)
Dbs.NewPassword OldPassword, NewPassword
Dbs.Close
Set Dbs = Nothing
SetPassword = True
SetPassword_Err:
If Err.Number <> 0 Then WriteLog "Setpassword", Err.Description
End Function

[ngocninh3011]

chán cả nhà quá!hỏi một câu như vậy mà trang nào củng trả lời giống nhau như đúc! là sao nhỉ?ko có j mới sao?thế thì nhanh nhàm chán lém hehee

[duongducvinh333]

Hay quá! Tất cả những gì mình đang cần thì đều thấy! Thank nhiều nha các cao thủ!

[quanvinhthinh]

cac ban giup toi khoa mot Folder voi

[=========> Bổ sung bài viết <=========]

cac ban oi giup toi dat pass cho mot Folder trong File cua minh voi

[finditsol]

nếu bạn còn cần thì liên hệ tui gởi cho một soft QTBH về mà sữa sủoce theo ý mình nhé!