กระทู้เก่าบอร์ด อ.Yeadram
1,038 1
URL.หัวข้อ /
URL
สอบถามเรื่องการ Login ตรวจสอบสิทธิ์หน่อยครับ
จากโค้ดของกระทู้ Login ที่ผ่านมา ลองรันแล้วผ่านครับ
If DCount("EmpID", "EmpTB", "EmpID = '" & Username & "' and EmpPass = '" & Password & "'") > 0 Then
MsgBox "รหัสพนักงาน " & Me.Username & " ได้เข้าสู่ระบบแล้ว", vbInformation, "Result"
DoCmd.Close acForm, "Login", acSaveNo
DoCmd.OpenForm "MainMenu"
Exit Sub
ทีนี้ปัญหาคือเขาอยากให้มีการตรวจสอบสิทธิ์โดยอ้างจากเทเบิ้ล EmpTB ฟิลด์ EmpPosition ว่า ถ้า Login ด้วย User นี้แล้วเป็น
- พนักงานทั่วไป ให้เปิดฟอร์ม EmpG
- พนักงานขาย ให้เปิดฟอร์ม EmpS
- พนักงานบัญชี ให้เปิดฟอร์ม EmpA
ไม่ทราบว่าเราต้องกำหนดโค้ดเพิ่มตรงส่วนไหนบ้างครับ ลองทำแล้ว Error มา 2 วันแล้วครับ
If DCount("EmpID", "EmpTB", "EmpID = '" & Username & "' and EmpPass = '" & Password & "'") > 0 Then
MsgBox "รหัสพนักงาน " & Me.Username & " ได้เข้าสู่ระบบแล้ว", vbInformation, "Result"
DoCmd.Close acForm, "Login", acSaveNo
DoCmd.OpenForm "MainMenu"
Exit Sub
ทีนี้ปัญหาคือเขาอยากให้มีการตรวจสอบสิทธิ์โดยอ้างจากเทเบิ้ล EmpTB ฟิลด์ EmpPosition ว่า ถ้า Login ด้วย User นี้แล้วเป็น
- พนักงานทั่วไป ให้เปิดฟอร์ม EmpG
- พนักงานขาย ให้เปิดฟอร์ม EmpS
- พนักงานบัญชี ให้เปิดฟอร์ม EmpA
ไม่ทราบว่าเราต้องกำหนดโค้ดเพิ่มตรงส่วนไหนบ้างครับ ลองทำแล้ว Error มา 2 วันแล้วครับ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R16290
ผมว่า ในเทเบิล EmpTB ควรเพิ่มฟิลด์ EmpStartForm เพื่อเก็บชื่อฟอร์มเริ่มต้นของคนๆนั้น แล้วก็ใช้ DLookup แทน DCount เพื่อหาค่าของฟิลด์นี้ ถ้าหาได้ ก็ให้เปิดฟอร์มตามค่าของฟิลด์นี้โดย [b]DoCmd.OpenForm ตัวแปรที่เก็บชื่อฟอร์ม[B]
Time: 0.2726s
