กระทู้เก่าบอร์ด อ.Yeadram
1,320 10
URL.หัวข้อ /
URL
โค๊ดหรือมาโคร แนะนำทีครับ
เป็น Access ธรรมดานะครับ ไม่ได้เชื่อมกับ VB คือตอนนี้ผมมี ฟอร์ม Login ในรูปเป็น (Form2) และตาราง (UserStaff)
ผมต้องการให้เมื่อผมกรอกข้อความใน TextBox ทั้ง User / Pass แล้วกด "เข้า" ให้มันไปเช็ค User / Pass ในตาราง (UserStaff)
มันจะทำได้หรือป่าวครับ
ขอบคุณ ล่วงหน้าครับ ....มือใหม่จริงๆครับ
ผมต้องการให้เมื่อผมกรอกข้อความใน TextBox ทั้ง User / Pass แล้วกด "เข้า" ให้มันไปเช็ค User / Pass ในตาราง (UserStaff)
มันจะทำได้หรือป่าวครับ
ขอบคุณ ล่วงหน้าครับ ....มือใหม่จริงๆครับ
10 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R18473
2 @R18474
ผมมีทำตัวอย่างเป็น Page Login อยู่ โดยใช้ MS-Access ล้วนๆ ใช้มาโครใน Access ที่ให้มา ไม่มี Code VBA ปนเลย ส่งเมล์มาที่ saifar@outlook.com แล้วผมจะส่งไฟล์ไปให้นะครับ
3 @R18475
ขอบคุณครับ
4 @R18476
ตัวอย่าง vba ลองปรับใช้ดูครับ
dim dataPassword
If DCount("*", "user", "user='" & Me.user & "'") > 0 Then
dataPassword = DLookup("pass", "user", "user='" & Me.user & "'")
If Me.pass = dataPassword Then
docmd.openform "Main"
else
msgbox("รหัสไม่ถูกต้อง")
end if
else
msgbox("คุณไม่ได้รับอนุญาตให้ใช้งานโปรแกรมได้")
end if
dim dataPassword
If DCount("*", "user", "user='" & Me.user & "'") > 0 Then
dataPassword = DLookup("pass", "user", "user='" & Me.user & "'")
If Me.pass = dataPassword Then
docmd.openform "Main"
else
msgbox("รหัสไม่ถูกต้อง")
end if
else
msgbox("คุณไม่ได้รับอนุญาตให้ใช้งานโปรแกรมได้")
end if
5 @R18477
ขอบคุณครับ คุณchai
6 @R18478
คุณchai ถ้าไม่รบกวน ช่วยอธิบาย 3บรรทัด นี้ให้หน่อยครับ
If DCount("*", "user", "user='" & Me.user & "'") > 0 Then
dataPassword = DLookup("pass", "user", "user='" & Me.user & "'")
If Me.pass = dataPassword Then
If DCount("*", "user", "user='" & Me.user & "'") > 0 Then
dataPassword = DLookup("pass", "user", "user='" & Me.user & "'")
If Me.pass = dataPassword Then
7 @R18479
1. If DCount("*", "user", "user='" & Me.user & "'") > 0 Then
หมายถึง user ที่ใส่ใน Form (Me.user)มีในฐานข้อมูลตาราง user หรือไม่ ถ้ามี (มันนับ record ได้มากกว่า 0) จึงทำในข้อ 2
2. dataPassword = DLookup("pass", "user", "user='" & Me.user & "'")
หมายถึง ให้เก็บค่า password (pass) ของ user ในข้อ 1 ในตัวแปร dataPassword เพื่อตรวจสอบเงื่อนไขต่อไป ในข้อ 3
3. If Me.pass = dataPassword Then
หมายถึง ค่า password ที่ใส่ในฟอร์ม มีค่าเท่ากับ Password ใขฐานข้อมูล (ก็คือยืนยันทั้ง user และ password ถูกต้องนั่นเอง) ก็ให้ทำงานที่ต้องการ คือเข้าใช้โปรแกรมได้
ยกตัวอย่างเช่น ในฟอร์มกรอก user = chai และ password=1234
เมื่อกดปุ่มคำสั่ง login แล้ว ถ้า chai ไม่มีในฐานข้อมูล ก็จะ message "คุณไม่ได้รับอนุญาตให้ใช้งานโปรแกรมได้" ถ้า มี chai ในฐานข้อมูล แต่ password ไม่ถูกต้อง ก็ message ว่า "รหัสไม่ถูกต้อง"
หมายถึง user ที่ใส่ใน Form (Me.user)มีในฐานข้อมูลตาราง user หรือไม่ ถ้ามี (มันนับ record ได้มากกว่า 0) จึงทำในข้อ 2
2. dataPassword = DLookup("pass", "user", "user='" & Me.user & "'")
หมายถึง ให้เก็บค่า password (pass) ของ user ในข้อ 1 ในตัวแปร dataPassword เพื่อตรวจสอบเงื่อนไขต่อไป ในข้อ 3
3. If Me.pass = dataPassword Then
หมายถึง ค่า password ที่ใส่ในฟอร์ม มีค่าเท่ากับ Password ใขฐานข้อมูล (ก็คือยืนยันทั้ง user และ password ถูกต้องนั่นเอง) ก็ให้ทำงานที่ต้องการ คือเข้าใช้โปรแกรมได้
ยกตัวอย่างเช่น ในฟอร์มกรอก user = chai และ password=1234
เมื่อกดปุ่มคำสั่ง login แล้ว ถ้า chai ไม่มีในฐานข้อมูล ก็จะ message "คุณไม่ได้รับอนุญาตให้ใช้งานโปรแกรมได้" ถ้า มี chai ในฐานข้อมูล แต่ password ไม่ถูกต้อง ก็ message ว่า "รหัสไม่ถูกต้อง"
8 @R18480
ขอบคุณครับ คุณ Chai
9 @R18497
เยี่ยมเลย
10 @R18499
ทำข้อ 1. และ 2. พร้อมกันได้เลยครับ
Time: 0.2409s
