กระทู้เก่าบอร์ด อ.Yeadram
1,346 3
URL.หัวข้อ /
URL
allowfullmenus
อยากใช้ select case ให้เลือกทำเมื่อตรวจสอบได้ว่าชื่อ login ตรงกับฐานข้อมูลโดยถ้าเป็น user ให้ allowfullmenus = false ถ้าเป็น admin ให้มีค่าเป็น true ครับ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R07804
ขอคุณครับ
3 @R07805
อาจารย์ครับแต่ผมยังไม่เข้าใจเท่าไหร่ครับขออธิบายความต้องการเพิ่มครับ
คือผมมีเทเบิลที่เป็น username และ password โดยแต่ละ username จะมี level
ต่างกัน โดยมี admin 1 คน superuser 1 คน และ user 3 คน ซึ่งเมื่อ login แล้วตรวจสอบได้ว่า เป็น admin ก็ให้สามารถใช้เมนูปกติทั้งหมดของ access ได้
แต่ถ้าตรวจสอบแล้วเป็น superuser ก็สามารถ ใช้บางฟังชั่นได้ แต่ถ้าเป็น user ก็ให้สามารถ add หรือ delete เร็คคอร์ดได้ ครับซึ่งขั้นตอนตรวจสอบนั้นพอได้แล้วครับและใช้ select case เพื่อบอกว่าถ้าเป็น case user ให้ล็อค property บางตัว
แต่ถ้าเป็น admin อยากให้ใช้เมนูได้ตามปกติครับ จึงอยากทราบว่าพวกเมนูถ้าเราอยากปิดมันโดยตรวจสอบจากสิทธ์จะต้องเขียนอย่างไรและมี property ตัวไหนน่าสนใจบ้างอยากได้ประเภทที่ใช้ในระบบ helpdesk นะครับเพื่อให้สิทธิ์ของแต่ละ user ต่างกันและเพื่อความปลอดภัยของข้อมูลโดยไม่ต้องทำเป็น mde file ครับเพราะอยากปรับปรุงแก้ไขได้ทุกเมื่อครับ
คือผมมีเทเบิลที่เป็น username และ password โดยแต่ละ username จะมี level
ต่างกัน โดยมี admin 1 คน superuser 1 คน และ user 3 คน ซึ่งเมื่อ login แล้วตรวจสอบได้ว่า เป็น admin ก็ให้สามารถใช้เมนูปกติทั้งหมดของ access ได้
แต่ถ้าตรวจสอบแล้วเป็น superuser ก็สามารถ ใช้บางฟังชั่นได้ แต่ถ้าเป็น user ก็ให้สามารถ add หรือ delete เร็คคอร์ดได้ ครับซึ่งขั้นตอนตรวจสอบนั้นพอได้แล้วครับและใช้ select case เพื่อบอกว่าถ้าเป็น case user ให้ล็อค property บางตัว
แต่ถ้าเป็น admin อยากให้ใช้เมนูได้ตามปกติครับ จึงอยากทราบว่าพวกเมนูถ้าเราอยากปิดมันโดยตรวจสอบจากสิทธ์จะต้องเขียนอย่างไรและมี property ตัวไหนน่าสนใจบ้างอยากได้ประเภทที่ใช้ในระบบ helpdesk นะครับเพื่อให้สิทธิ์ของแต่ละ user ต่างกันและเพื่อความปลอดภัยของข้อมูลโดยไม่ต้องทำเป็น mde file ครับเพราะอยากปรับปรุงแก้ไขได้ทุกเมื่อครับ
Time: 0.6061s
งานของคุณ ไม่ต้องใช้ก็ได้ครับ
if nz(dlookup("fldUser","tbPerson","fldUser ='" & txUser & "' AND [fldPwd] = '" & txPwd & "'"),"Null")="Null" then exit sub
allowfullmenus = (dlookup("fldAdmin","tbPerson","fldUser ='" & txUser & "' AND [fldPwd] = '" & txPwd & "'"))