กระทู้เก่าบอร์ด อ.Yeadram
1,092 2
URL.หัวข้อ /
URL
ทำยังไงจึงให้ชื่อคนที่ล็อกอินปรากฏที่ฟอร์มที่เขาเข
ทำยังไงจึงให้ชื่อคนที่ล็อกอินปรากฏที่ฟอร์มที่เขาเข้าไปใช้ได้ครับ
ลองทำนานแล้วไม่ได้ เช่น "ยินดีต้อนรับ คุณ B"
ลองทำนานแล้วไม่ได้ เช่น "ยินดีต้อนรับ คุณ B"
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R17743
ผมใช้โค้ดในกระทู้ http://www.thai-access.com/yeadram_view.php?topic_id=3452&page=1
แบบนี้ครับ (ข้างล่าง) แต่โค้ดนี้ให้ปิดฟอร์ม log in ซึ่งลองเอา DoCmd.Close ออกแล้วฟอร์ม log in ก็ยังปิดไปครับ เลยทำให้ปรากฏชื่อ log in ในหน้าฟอร์มที่เปิดไม่ได้ รบกวนอาจารย์แนะนำครับ
Username.SetFocus
Dim StartForm As Variant
StartForm = DLookup("TStartForm", "Tlogin", "Tuser = '" & Username & "' and Tpass = '" & Password & "' ")
If Not IsNull(StartForm) Then
MsgBox "ยินดีต้อนรับสู่ระบบบันทึกข้อมูล"
DoCmd.Close
DoCmd.OpenForm StartForm
Exit Sub
Else
MsgBox "กรุณาใส่ ชื่อและรหัส ให้ถูกต้อง"
End If
Static intLogonAttempts As Integer
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts >= 3 Then
MsgBox "คุณพยายามเข้าระบบเกินสามครั้ง กรุณาติดต่อผู้ดูแลระบบ", vbCritical, "ปิดโปรแกรม"
Application.Quit
End If
LastUserName = Username
แบบนี้ครับ (ข้างล่าง) แต่โค้ดนี้ให้ปิดฟอร์ม log in ซึ่งลองเอา DoCmd.Close ออกแล้วฟอร์ม log in ก็ยังปิดไปครับ เลยทำให้ปรากฏชื่อ log in ในหน้าฟอร์มที่เปิดไม่ได้ รบกวนอาจารย์แนะนำครับ
Username.SetFocus
Dim StartForm As Variant
StartForm = DLookup("TStartForm", "Tlogin", "Tuser = '" & Username & "' and Tpass = '" & Password & "' ")
If Not IsNull(StartForm) Then
MsgBox "ยินดีต้อนรับสู่ระบบบันทึกข้อมูล"
DoCmd.Close
DoCmd.OpenForm StartForm
Exit Sub
Else
MsgBox "กรุณาใส่ ชื่อและรหัส ให้ถูกต้อง"
End If
Static intLogonAttempts As Integer
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts >= 3 Then
MsgBox "คุณพยายามเข้าระบบเกินสามครั้ง กรุณาติดต่อผู้ดูแลระบบ", vbCritical, "ปิดโปรแกรม"
Application.Quit
End If
LastUserName = Username
Time: 0.3314s
1. อย่าปิดหน้าต่าง Login
2. ที่หน้าต่างที่เปิดใช้งาน ให้เพิ่ม Text Box โดยกำหนดให้ไม่สามารถแก้ไขได้
3. กำหนด Control Source ของ Text Box อันนี้เป็น
="ยินดีต้อนรับ คุณ " & คอนโทรลที่เลือกชื่อผู้ใช้ในฟอร์ม Login