แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Public Sub On_Top(ByVal lhWnd As Long)
SetWindowPos lhWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
Public Sub NotOn_Top(ByVal lhWnd As Long)
SetWindowPos lhWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Subต้องดูว่า MS Office ใช้กี่ Bit
ครับ ถ้า 32bit ไม่น่าจะมีปัญหาอะไร
แต่ถ้า 64 bit ต้องมีคำว่า prtSafe ด้วย เช่น
Private declare prtsafe function ...........................
ที่ปุ่ม ใส่โค้ดใน Event On_Enter ได้เลยครับ
ลองดูกระทู้นี้ครับ
แนะนำให้มี ตาราง User และมีฟิลล์ UserLevel เพื่อใช้ในการกำหนดสิทธิ์การเข้าถึงหรือการมองเห็น
และทำฟอร์มแยกออกมา ตามสิทธิ์ที่สามารถใช้ได้ดีกว่าครับ
โดยจากโค้ดด้านล่างให้ใช้การ selete Case หรือใช้ IF เข้ามาเช็คเงื่อนไขเช่น
IF Flevel = 1 then
docmd.OpenForm "admin"
elseif Flevel = 2 then
Docmd.openform "User"
End if
ส่วนโค้ดไปศึกษาจากลิ้งด้านล่างได้เลย
https://www.thai-access.com/index.php?topic=117.msg318#msg318
จากโค๊ดด้านบน
ถ้าใส่ User ถูก และถ้ารหัสผ่านผิดน่าจะขึ้นแจ้งเตือนได้ครับ
แต่ถ้าใส่ User ผิด การแจ้งเตือนจะไม่แสดง
ลองปรับโค๊ดเป็นแบบนี้โค๊ด: [Select]Dim fpass As String, fusername As String
If IsNull(Me.Userbox) Then
MsgBox "กรุณาระบุ UserName", vbInformation, "ข้อผิดพลาด"
Exit Sub
ElseIf IsNull(Me.PassBox) Then
MsgBox "กรุณาระบุ Password", vbInformation, "ข้อผิดพลาด"
Else
fusername = Nz(DLookup("[UserName]", "UserV", "[UserName]='" & Me.Userbox & "'"))
If fusername = "" Then
MsgBox "ชื่อผู้ใช้ไม่ถูกต้อง", vbCritical, "ไม่พบชื่อผู้ใช้งาน"
Else
fpass = Nz(DLookup("[Password]", "UserV", "[UserName]='" & Me.Userbox & "'"))
If fpass = Me.PassBox Then
DoCmd.OpenForm "PIScreen_vaccine", acNormal, "", "", , acNormal
Else
MsgBox "รหัสผ่านไม่ถูกต้อง", vbCritical, "พบข้อผิดพลาด"
End If
End If
End If
Private Sub Command9_Click()
Dim fpass As String
Dim flevel As String
On Error GoTo 1:
fpass = DLookup("[Password]", "UserV", "[UserName]='" & Me.UserBox & "'")
If fpass = Me.PassBox Then
DoCmd.OpenForm "PIScreen_vaccine", acNormal, "", "", , acNormal
DoCmd.Close acForm, "Login4"
Else
MsgBox "Try Again"
End If
Exit Sub
1:
End Sub
อ้างอิง ฟอร์มหลัก ก่อนจะ อ้างอิงซัพฟอร์มครับ
อาจจะใช้ Me.PTT1.Form.TextIDCard
กดไปที่มุมมองออกแบบ ตรงด้านล่างจะมีให้จัดเรียงลำดับ กดเลือก ไม่เรียงลำดับ แล้วกดบันทึก มันจะหายไปเอง
