Đặt password cho Front End bằng VB

[ngavp_face]

:xinloinhe:

Mình đang muốn làm cái phần đặt pass cho Front End bằng VB thay vì dùng cái mặc định của Access.
Và ý tưởng của mình là trên Front End sẽ tạo 1 nút mở một cái file Access Changepass khác có cùng thư mục với Front End để đổi pass cho Front End .
Nhưng vấn đề nằm ở chỗ mình đã thử 3 cách từ dùng Shell, hàm API mà nó chỉ có thể mở pm Access nên chứ không mở cái file Changepass.
Bác nào có cách mở 1 pm access từ 1 pm access khác không ?
Hay có cách nào để đổi pass hay hơn thì chỉ em với .
:k5429592:

View more random threads:

• Lưu contact trên access vào Outlook và ngược lại
• Quản lý mua bán hàng - Phần 2: Thiết kế CSDL
• Giúp mình về câu lệnh thống kê từ ngày này đến ngày kia
• chèn ảnh vào form của access
• Tạo Form cập nhật có trường OLE Object
• Làm sao để tính số lượng sách của 1 mã sách còn lại trong thư viện. ac ơi..giúp e với
• Cơ sở dữ liệu Access nhiều người người dùng
• Khóa ko cho sử dụng chuột phải
• Lựa chọn và mặc định máy in trên access
• Cho Mình Hỏi Làm Sao Để Thu Nhỏ Cửa Sổ Access ?

[bluedragon0702]

Ðề: Đặt password cho Front End bằng VB

:xinloinhe:

Mình đang muốn làm cái phần đặt pass cho Front End bằng VB thay vì dùng cái mặc định của Access.
Và ý tưởng của mình là trên Front End sẽ tạo 1 nút mở một cái file Access Changepass khác có cùng thư mục với Front End để đổi pass cho Front End .
Nhưng vấn đề nằm ở chỗ mình đã thử 3 cách từ dùng Shell, hàm API mà nó chỉ có thể mở pm Access nên chứ không mở cái file Changepass.
Bác nào có cách mở 1 pm access từ 1 pm access khác không ?
Hay có cách nào để đổi pass hay hơn thì chỉ em với .
:k5429592:

1/ Dùng ngay một table và một form đổi pass ngay trong file của bạn ===> Cách này dễ nhất
2/ Dùng file access khác thì muốn mở file này hãy dùng kỹ thuật DAO hoặc ADODB (Dùng DAO đơn giản hơn ADOD8-)
Thân

[fantasysl06]

Ðề: Đặt password cho Front End bằng VB

Cách 1 dễ nhất nhưng cũng không an toàn nhất,nó lưu pass vào table.
Em muốn dùng phần đặt pass của chính access cơ bác. Mà cái DAO thì em chịu.

[seolenchoi]

Ðề: Đặt password cho Front End bằng VB

Cách 1 dễ nhất nhưng cũng không an toàn nhất,nó lưu pass vào table.
Em muốn dùng phần đặt pass của chính access cơ bác. Mà cái DAO thì em chịu.

Đây là một kỹ thuật DAO đơn giản

[COLOR=#000000]
Dim AppPass [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]DatabaseDim rPass [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]RecodsetDim TenTapTin [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]StringSet TenTapTin [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CurrentProject[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Path [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]"\PassChange.mdb"[/COLOR][COLOR=#0000BB]Set AppPass [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]DBEngine[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]OpenDatabase[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]TenTapTin[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]Set rPass [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]AppPass[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]OpenRecordset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"tblPass"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]dbOpenTable[/COLOR][COLOR=#007700])...................[/COLOR] 

Nhớ chọn Microsof DAO 3.x Object Library trong Reference

[nanivodoi]

Ðề: Đặt password cho Front End bằng VB

Cho em hỏi chút ,đoạn code này cho vào sự kiện Click của command button à.
Mà khi em chạy nó báo lỗi :
Object required ở dòng Set TenTapTin =
Mà còn cái này nữa :
\PassChange.mdb : là cái file sẽ mở phải không ?
Vậy cái tblPass là cái gì hở bác ?

[Hongthanhauto]

Ðề: Đặt password cho Front End bằng VB

Cho em hỏi chút ,đoạn code này cho vào sự kiện Click của command button à.
Mà khi em chạy nó báo lỗi :
Object required ở dòng Set TenTapTin =
Mà còn cái này nữa :
\PassChange.mdb : là cái file sẽ mở phải không ?
Vậy cái tblPass là cái gì hở bác ?

Cái này bác đó ví dụ mở một cái bảng lên cho vui thôi. Có thể 2 bác ko hiểu ý nhau.

[seominhthanhvip]

Ðề: Đặt password cho Front End bằng VB

Cho em hỏi chút ,đoạn code này cho vào sự kiện Click của command button à.
Mà khi em chạy nó báo lỗi :
Object required ở dòng Set TenTapTin =
Mà còn cái này nữa :
\PassChange.mdb : là cái file sẽ mở phải không ?
Vậy cái tblPass là cái gì hở bác ?

PassChange.mdb là file Access cần mở nằm chung với thư mục của file Access hiện hành
tblPass tà tên Table trong cái PassChange.mdb cần mở, còn mở để lam gì là tùy ý bạn
Thân

[vetinhnga03]

Ðề: Đặt password cho Front End bằng VB

Mấy bác ơi nhưng em chạy đoạn này nó vẫn lỗi :
Object required ở dòng Set TenTapTin =

Và nếu ở file PassChange.mdb em không muốn mở cái table đó lên mà chỉ muốn mở cái PassChange.mdb nên có được không ?
Vì trong file PassChange.mdb này không có table nào mà chỉ có 1 cái Form dùng để đổi pass bằng code cho cái file khác thôi.
-----------------------------------------------------------------------------------------
Có lẽ bác hiểu nhầm ý em thật. Em xin trình bày rõ lại như sau :
Em có 2 file ChangePass.accdb và CRMS.accdb (Front End)
File ChangePass.accdb nhằm mục đích đổi pass cho CRMS.accdb (Pass này là pass của Access quản lý chứ không phải pass cho lưu vào table nhé )

Và file ChangePass.accdb chỉ có 1 cái Form có 2 textbox Oldpass và Newpass và 1 nút có code như sau :

Sub setPass(oldPass as String, newPass As String) 
Set tempDB = OpenDatabase(CurrentProject.Path & "\" & "CRMS.accdb ", True, False, "MS Access;PWD=" & oldPass)
tempDB.NewPassword oldPass, NewPass
tempDB.Close
End Sub

Private Sub Command1_Click()
setPass  Oldpass,  Newpass
end sub

Mà vấn đề là muốn đổi pass như thế thì phải đóng cái CRMS.accdb lại và mở cái ChangePass.accdb ra. Thế nên em muốn tạo 1 cái nút trên CRMS.accdb để mở cái ChangePass.accdb ra cho nó Pro .

[supports]

Ðề: Đặt password cho Front End bằng VB

Mấy bác ơi nhưng em chạy đoạn này nó vẫn lỗi :
Object required ở dòng Set TenTapTin =

Và nếu ở file PassChange.mdb em không muốn mở cái table đó lên mà chỉ muốn mở cái PassChange.mdb nên có được không ?
Vì trong file PassChange.mdb này không có table nào mà chỉ có 1 cái Form dùng để đổi pass bằng code cho cái file khác thôi.
-----------------------------------------------------------------------------------------
Có lẽ bác hiểu nhầm ý em thật. Em xin trình bày rõ lại như sau :
Em có 2 file ChangePass.accdb và CRMS.accdb (Front End)
File ChangePass.accdb nhằm mục đích đổi pass cho CRMS.accdb (Pass này là pass của Access quản lý chứ không phải pass cho lưu vào table nhé )

Và file ChangePass.accdb chỉ có 1 cái Form có 2 textbox Oldpass và Newpass và 1 nút có code như sau :

Sub setPass(oldPass as String, newPass As String) 
Set tempDB = OpenDatabase(CurrentProject.Path & "\" & "CRMS.accdb ", True, False, "MS Access;PWD=" & oldPass)
tempDB.NewPassword oldPass, NewPass
tempDB.Close
End Sub

Private Sub Command1_Click()
setPass  Oldpass,  Newpass
end sub

Mà vấn đề là muốn đổi pass như thế thì phải đóng cái CRMS.accdb lại và mở cái ChangePass.accdb ra. Thế nên em muốn tạo 1 cái nút trên CRMS.accdb để mở cái ChangePass.accdb ra cho nó Pro .

Vậy thì dùng thử hàm Sheel xem sao nhé
Thân

[huong2211hd]

Ðề: Đặt password cho Front End bằng VB

Nói "một câu" ngắn gọn:

Bạn glasseggs không nên "cố chấp" cho cái quan điểm của mình khi làm cái vụ này.

Vì nó phá sản ngay cái ý tưởng mở một cái form từ mdb khác để thay đổi cái password của cái mdb hiện hành (tức cái Front End đang mở của bạn). Một lẽ đơn giản là nó bị đụng về quyền truy cập. Bởi cái Front End đang mở, nó mở theo một file ldb để quản lý cái vụ truy cập. Một remote khác truy cập vào nó sẽ bị "đụng" ngay cái ldb này.

Với một người đã có một ít năm làm việc với Access, tôi chỉ khuyên bạn là hãy suy nghĩ một cách đơn giản, đừng tự gây khó cho mình quá.