thucgia > 09-03-15, 04:06 PM
maidinhdan > 09-03-15, 04:24 PM
thucgia > 09-03-15, 05:26 PM
(09-03-15, 04:24 PM)maidinhdan Đã viết:(09-03-15, 04:06 PM)thucgia Đã viết: Hi chào cả nhà, Có cách nào để hiển thị hộp thoại option > access option bằng code vba không các bạn?
mong giúp đỡ.
Sao không tạo ra thanh menu cho mình rồi lôi nó ra để lên đó cho đỡ mệt hok, làm chi phiền phức vậy. Không biết tác giả muốn làm gì nhỉ !
maidinhdan > 09-03-15, 05:44 PM
(09-03-15, 05:26 PM)thucgia Đã viết: hi, Cái hộp thoại đó ở đâu? và làm sao lôi nó ra trên form chỉ mình với bạn.Bạn nói rõ muốn thay đổi properties của cái gì? càng cụ thể càng tốt. Tốt nhất là chụp hình nó lên đây.
Mình muốn khi log in vào với chức năng admin mới mở được cái hộp thoại option để thay đổi một số properties.
Cám ơn nhiều
thucgia > 09-03-15, 08:03 PM
(09-03-15, 05:44 PM)maidinhdan Đã viết:(09-03-15, 05:26 PM)thucgia Đã viết: hi, Cái hộp thoại đó ở đâu? và làm sao lôi nó ra trên form chỉ mình với bạn.Bạn nói rõ muốn thay đổi properties của cái gì? càng cụ thể càng tốt. Tốt nhất là chụp hình nó lên đây.
Mình muốn khi log in vào với chức năng admin mới mở được cái hộp thoại option để thay đổi một số properties.
Cám ơn nhiều
Và Hình như bạn thucgia rất rành về code VBA sao không biết cái này nhỉ.
Bổ sung thêm: không biết hình dưới đây có giúp được gì không:
Cuối cùng là nhấp dính vào nút option và quăng vào thanh toolbar mới tạo theo hình số 2 đó.
maidinhdan > 09-03-15, 10:23 PM
(09-03-15, 08:03 PM)thucgia Đã viết: hi, Cám ơn bạn rất nhiều, nhưng mình thích xài access 2010 vì khoái cái ribbon với lại mình chỉ thích viết bằng vba ( để ôn code ấy mà - mình cũng hơi bảo thủ nhỉ ) còn macro thì mình chỉ xài duy nhất cái AutoExec.
Ý của mình muốn làm là thế này:
- Mình phân quyền cho 2 loại user : admin và user
- Khi log vào với role admin thì có các chức năng sau
1, add del edit user...
2, Ribb sẽ chứa option button cái này sẽ có tác dụng thay đổi 1 số thuộc tính như:
a, hide navigation pan
b, disable allow full menu
c, disable shift key
d, disable special keys
e, ... dùng để bảo mật
b,
- Còn khi log vào role user se không có cái nút option
....Tóm lại nếu cái box option có thể đưa vào form thì lấy xài còn nếu không được thì mình định chế lại luôn cái box "statup option box"
Rất cám ơn, bạn rất tốt
Function HienRibbon(strAcToolBar As String)
Select Case strAcToolBar
Case "Yes"
DoCmd.ShowToolbar "Ribbon", acToolbarYes 'Hiển thị thanh Ribbon
Case "No"
DoCmd.ShowToolbar "Ribbon", acToolbarNo 'Ẩn thanh Ribbon
Case Else
MsgBox "Chỉ chấp nhập sử dụng khai báo kiểu Yes/No. Nếu không đừng có xài"
End Select
End Function
HienRibbon ("Yes") ' Hiện
HienRibbon ("No") 'Ẩn
Select Case CurrentUser()
Case Admin Then HienRibbon("Yes")
Else HienRibbon("No")
End Select