มาเริ่มต้นทำฐานข้อมูลกัน: Ep.14 (สร้างระบบ Login พนักงาน)

ฐานข้อมูลไม่ใช่เรื่องไกลตัว ใครๆ ก็ทำฐานข้อมูลได้นะ!
หากเห็นว่ามีประโยชน์ ฝากกดไลท์ แชร์ และติดตาม ด้วยนะครับ
╔═╦╗╔╦╗╔═╦═╦╦╦╦╗╔═╗
║╚╣║║║╚╣╚╣╔╣╔╣║╚╣═╣
╠╗║╚╝║║╠╗║╚╣║║║║║═╣
╚═╩══╩═╩═╩═╩╝╚╩═╩═╝
สนับสนุนผู้จัดทำที่ ธ.กรุงศรีอยุธยา เลขบัญชี: 000-7-78552-5
#Login #Access

[@อะไรนะ-ษ6ษ]

ได้มากกว่าที่สอบถามเยอะเลยครับ ขอบคุณมากๆ ครับ

[@myhome8967]

สอนดีมากครับ ติดตามหลายคลิปเลย ขอบคุณครับ

[@shanghan9280]

Thank you & happy new year 2018

[@KeacApi]

👍

[@supanidakraikruan9979]

สวัสดีคะ พอดีว่าอยากสอบถามค่ะ คือว่าทำตามคลิปที่สอนแล้วไม่สามารถคีย์รหัสผ่านล็อคอินตามที่ตั้งไว้ได้ สามารถแก้ไขได้ยังไงบ้างคะ

[@talosan9020]

สวัสดีครับอาจารย์ อยากให้สอนเรื่องการกำหนดสิทธิ์การใช้ของพนักงานแต่ละคน ในกรณีที่พนักงานอยู่คนละแผนก ไม่ให้สามารถใช้งานของฟอร์มหรืออื่นๆของแผนกอื่นได้ครับ รบกวนแนะนำหน่อยครับผม

[@sawaraekwarew5834]

อยากให้พี่ทำคลิป ฐานข้อมูลเก็บเอกสารมากครับ แล้วเป็นค้นหาเวลาต้องการครับ

[@AccessCreator]

ไม่มีความรู้เรื่องของการเก็บเอกสารอะครับ นึกเนื้อหาไม่ออก

[@Heemen_678]

พี่รีโมทมาทำให้หน่อย 555

[@pangtiw7623]

พอกดเข้าใช้งานแล้วให้ไปต่อที่หน้าฟอร์มเมนูที่เราทำไว้ ทำยังไงคะอาจารย์ รบกวนช่วยตอบทางนี้หน่อยค่า ดูคลิปของอาจารย์จนจะทำโปรเจคผ่านแล้ว ติดอันนี้ค่ะ TwT

[@AccessCreator]

ให้เข้าไปที่ Design ของฟอร์ม frm_Login ที่ปุ่ม [เข้าใช้งาน] ที่ Event > On Click เพื่อเพิ่มโค้ด สมมุติผมต้องการให้เมื่อใส่รหัสผ่านถูกต้องแล้วให้เปิดฟอร์ม frm_การสั่งซื้อ ผมจะเพิ่มโค้ดการเรียกเปิดฟอร์มเป้าหมายจะเป็นคำสั่งดังนี้ DoCmd.OpenForm "ชื่อฟอร์มเป้าหมาย" โดยเขียนหลังบรรทัดเมื่อตรวจสอบรหัสถูกแล้วเท่านั้น จากตัวอย่างคำสั่งในคลิป Private Sub Command6_Click() If DLookup("รหัสผ่าน", "พนักงาน", "ชื่อพนักงาน = '" & Me.cb_Name & "'") = Me.txt_Password Then nEmployee = CInt(DLookup("รหัสพนักงาน", "พนักงาน", "ชื่อพนักงาน = '" & Me.cb_Name & "'")) InOut "tb_การใช้งาน", "เวลาเข้า", True DoCmd.Close acForm, Me.Name, acSaveNo DoCmd.OpenForm "frm_การสั่งซื้อ" 'เพิ่มบรรทัดนี้ การเปิดฟอร์มเป้าหมายหลังจากรหัสถูกต้องครับ Else MsgBox "รหัสผิด โปรดใส่รหัสอีกครั้ง หรือ ติดต่อผู้ดูแลระบบ", , "รหัสผิดพลาด" End If End Sub ประมาณนี้ครับ ปรับใช้ดู

[@pangtiw7623]

Access-Creator ขอบคุณมากๆนะคะ 💖

[@chatthadontop5534]

อาจารย์ครับผมรบกวนขอไฟล์ตัวนี้หน่อยได้ไหมครับ พอดีจะศึกษาวิธีการเขียนโมดูลครับ ขอบคุณมากครับ

[@AccessCreator]

มีแต่ไฟล์ที่ยังไม่มี Login ครับ bit.ly/2C9zsZF ดูคลิปแล้วทำตามอีกนิดหน่อย ผมว่ามันไม่ยากแล้วนะครับ ลองดูครับ

[@chatthadontop5534]

@@AccessCreator - ขอบคุณครับ

[@FFKKCCHH]

อยากให้สอนเชื่อมฐานข้อมูลaccessไปยังvb แล้วสอนทำformในvbค่ะ

[@PIMPHAKARUANLOO]

คือหนูทำตามละเหมือนหน้า Login มันไปค้างอยู่ด้านล่าง ตอนนี้ทำอะไรไม่ได้เลยค่ะ แก้ยังไงได้บ้างค่ะอาจารย์

[@AccessCreator]

มันค้างอยู่ด้านล่าง ยังงัยครับ แคปรูปให้ดูได้มั๊ย

[@programmerpladag4902]

"นิพจน์เมื่อเปิด ที่คุณใส่ให้เป็นการตั้งค่าคุณสมบุติเหตุการณ์ซึ่งทำให้เกิดข้อผิดพลาดขึ้นดังนี้: มีปัญหาเกิดขึ้นในขณะที่ ระบบ.. กำลังติดต่อสื่อสารกับ OLE เซิร์ฟเวอร์หรือตัวควบคุม ActiveX" * นิพจน์อาจจะไม่แสดงผลในชื่อของแมโคร ชื่อของฟังก์ชันที่ผู้ใช้กำหนดเองหรือ [Event Procedure] * อาจมีข้อผิดพลาดในการประเมินค่าฟังก์ชั่น เหตุการณ์ หรือแมโคร ผมเจอปัญหานี้ครับ รบกวนช่วยแนะนำให้หน่อยครับ

[@AccessCreator]

โปรแกรมฟ้องอย่างนี้กว้างมากครับ ยังไงต้องลองตรวจสอบชื่อต่างๆ ว่าเขียนถูกหรือไม่ครับ

[@programmerpladag4902]

ขอบคุณครับ

[@sengsouly89]

สบายดีอาจาร ทำไมผมเขียนตามคริบ แต่เรืยก DAO. ไม่ด้ายครับ

[@พิชาภพบุญฑล]

ผมมีปปัญหา พอกด เข้าใช้งานเสร็จแล้ว มีกล่องข้อความแจ้งเตือนขึ้นมาว่า "แอคชัน Close ถูกยกเลิก" เกิดจากสาเหตุใดครับ

[@vanhdysouvanhny2710]

Ep12-13 ไม่เห็นครับ เพื่มลงให้ดูบ้างนะ ขอบคุณครับ

[@AccessCreator]

Ep12: kzbin.info/www/bejne/Y5mziaiMrNCVndE Ep13: kzbin.info/www/bejne/d4CrmqmdaJahd6c

[@wetitpongmanate7836]

อาจารย์ อยากให้สอนเรื่องการส่ง sms โดยใช้ Ms access ครับ

[@AccessCreator]

สำหรับ sms ผมยังไม่เห็นมีวิธีไหนที่ใช้ได้ฟรีนะครับ ส่วนมากจะเป็นแบบที่เราต้องสมัครเสียเงิน หรือทดลองใช้ โดยใช้ผ่าน API ของเค้า ถ้ามีวิธีแบบฟรีจะทำคลิปให้ดูนะครับ แต่หากอยากทดลองใช้ดูให้หาคำว่า send sms from vba อะไรประมาณนี้ดูได้ครับ ส่วนตอนนี้ที่มีคลิปจะเป็นส่งแบบทาง อีเมล และ ไลน์ Email: kzbin.info/www/bejne/r3LFnGuvotmGh9E Line : kzbin.info/www/bejne/o5Kpgmqjn5JgoMk

[@bbchanel9113]

อาจารย์ เรามีวิธีลัน ไอดี จากมากไปหาน้อยได้ไมครับ

[@2cs139]

พี่คะหนูกดf5แล้วแต่ตาลางพะนักงานไม่หายอ่ะทำไง

[@13SToY]

นาทีที่ 12.24 พอดีทำเเล้วเปลี่ยนภาษาไทยไม่ได้เกิดจากอะไรหรอครับพิมพ์เเล้วขึ้นภาษาเเปลกๆ

[@ibbarhame-tam2179]

อาจารย์ คือผมใส่รหัสผ่านเสร็จเรียบร้อย และกดที่ปุ่ม เข้าใช้งาน แล้วมันฟ้องว่า ข้อผิดพลาดทางไวยากรณ์ (จุลภาค) ในนิพจน์คิวรี 'รหัสพนักงาน,พนักงาน' ผมต้องทำยังไงครับ😅

[@ibbarhame-tam2179]

ไปแก้ที่โคตก็ยังไม่ได้

[@o-influe]

ส่วนการ Hidden table ถ้าเราทำแบบ link table สามารถใช้วิธีตามในคลิป หรือเปล่าครับ ผมลองแล้ว error ครับอาจารย์ Function HideTable(acTable As String) Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb Set tdf = db.TableDefs(acTable) ====> tdf.Attributes = tdf.Attributes Or dbHiddenObject

[@AccessCreator]

ฟังก์ชั่นนี้เท่าที่ลอง ทำกับ link table ไม่ได้ครับ แต่จริงๆ แล้วหากเป็นการเก็บชื่อ user กับ password ไว้ที่อีกไฟล์ เราสามารถใช้ DAO ติดต่อกับไฟล์ภายนอกที่เก็บ เรียกดูชื่อ user และ Password ได้โดยไม่ต้องทำลิ้งค์นะครับ โดยใช้คำสั่งประมาณนี้ Dim db As DAO.Database Dim rs As DAO.Recordset Set db = DAO.OpenDatabase("พาธและชื่อไฟล์เป้าหมายภายนอก.accdb") Set rs = db.OpenRecordset("ชื่อตารางพนักงาน", dbOpenDynaset) rs.FindFirst "[ฟิลด์ชื่อพนักงาน] = '" & Me.cb_Name & "' AND [ฟิลด์รหัสพนักงาน] = '" & Me.txt_Password & "'" If rs.NoMatch Then MsgBox "การใส่ชื่อและรหัสผิด" Else MsgBox "การใส่ขื่อและรหัสถูก" End If rs.Close: Set rs = Nothing db.Close: Set db = Nothing ลองปรับใช้ดูครับ

[@tpsgaming1305]

พี่ครับพอจะมีตัวอย่างของระบบร้านวัสดุกาสร้างไหมครับ พี่ทำให้ดูหน่อยได้ไหมครับ

[@AccessCreator]

ไม่มีความรู้เรื่องระบบร้านวัสดุกอสร้างเลยครับ ต้องลองปรับใช้กับความต้องการดูนะครับ ที่ผมแนะนำเป็นระบบแบบกลางๆ ทั่วๆไป

[@actart2808]

จารครับ ผมทำแล้วเปลี่ยนรหัสแล้วมันเปลี่ยนแค่คนแรก ยังเด่วอะครับ มันไม่ไปเปลี่ยนคนอื่นๆอะครับแก้ไง ครับ

[@AccessCreator]

คือถ้าจะเปลี่ยนใคร ต้องเลือกชื่อผู้ใช้คนนั้นก่อน แล้วใส่รหัสผ่านเก่าของคนนั้นให้ถูกต้องก่อน แล้วจึงใส่รหัสผ่านใหม่เข้าไปครับ

[@actart2808]

@@AccessCreator ผมลองทำแล้วคำแต่มันไปเปลี่ยนรหัสผ่านของชื่อคนแรกยังเดียวอะครับ

[@nuntawutyaemchum555]

ผม copy ไฟล์ฐานข้อมูลไปลงเครื่องอื่น แล้วฟอร์มloginไม่สามารถใช้ได้อะครับ ต้องแก้ไขยังไงครับ

[@AccessCreator]

ที่ว่าใช้ไม่ได้มันเป็นยังไงครับ ขึ้น Error ข้อความอะไร

[@nuntawutyaemchum555]

Access-Creator ไม่ขึ้นข้อความอะไรเลยครับ พอกดที่ช่องชื่อพนักงานแล้วมันไม่มีชื่อให้เลือก แล้วก็มันไม่บังคับให้login ตามที่เรากำหนดไว้ แถมยังกดปิดฟอร์มlogin เพื่อเข้าใช้แบบไม่loginได้ด้วยครับ

[@AccessCreator]

"พอกดที่ช่องชื่อพนักงานแล้วมันไม่มีชื่อให้เลือก" แสดงว่ายังไม่ได้กำหนด Row Source ที่ combo box หรือไม่ก็ไม่มีตาราง ต้องกำหนดให้ช่องชื่อพนักงานขึ้นมาให้เลือกให้ได้ก่อนครับ จริงๆ แล้วต้องใช้ได้กับทุกเครื่องนะครับ เพราะไม่ได้กำหนดอะไรเป็นไฟล์ Local ในตัวไฟล์เองทั้ง แต่ต้องเช็คดูเรื่องนึงคือ เวลาใช้กับโปรแกรม Access เครื่องอื่น เค้าอาจไม่ได้เปิด Macro ไว้ เราต้องเข้าไปกำหนดที่ Options > Trust Center > Macor Settings = Enable all macros ด้วยนะครับ

[@mr.phanuwatrojana2510]

ตอนเริ่มต้น ที่ว่าป้อนรหัสผ่านอ่ะครับ Else msgbox รหัสผ่านผิด มันโชว์ครับ แต่ถ้าใส่รหัสถูก มันเด้งอ่ะครับ ขึ้นว่า VB Run-time error '6': Overflow แล้วมีปุ่มให้เลือก end debug help มันติดปัญหาอะไรหรอครับ พอจะแนะนำได้ไหมครับ ลองกับคอม 2 เครื่อง มันเป็นเหมือนกันเลยครับ

[@AccessCreator]

แสดงว่าเขียนโค้ดผิดครับ ให้กดปุ่ม Debug แล้วมันจะไฮไลท์สีเหลืองตรงที่เราเขียนผิด แล้วตรวจสอบดูครับ

[@add_bangfak6160]

ทำให้เข้าไปแก้ ได้เหมือนเดิมทำยังไงครับ หรือทำให้กด SHIFT ได้เหมือนเดิม

[@AccessCreator]

ก็ให้เรียกไฟล์ แล้ว Login ผู้ใช้ให้ใช้งานได้ก่อน เสร็จแล้วก็เข้าไปที่ VBA อีกครั้ง เรียกฟังก์ชั่น ap_EnableShift ก็จะกลับมาใช้ Shift ในการ Bypass Autoexec ได้เหมือนเดิมครับ

[@add_bangfak6160]

www.thai-access.com/index.php?topic=506.msg2259#new รบกวนอาจารย์ ตอบกระทู้นี้หน่อยครับ

[@AccessCreator]

ตอบให้แล้วนะครับ

[@add_bangfak6160]

ถ้าไม่ Error ละ ครับ อาจารย์ เข้าไปใส่โค้ดยังไงครับ

[@AccessCreator]

แสดงว่าไม่ดูคลิปผมเลยอะครับ โหลดแต่ไฟล์ตัวอย่างไปปรับใช่ป่าวครับ ถ้าอยากรู้จริงๆ สละเวลาดูคลิปหน่อยก็จะรู้ว่าเข้าทำยังไง ผมอธิบายไว้หมดแล้วนะจริงๆ

[@bythewaychannel8497]

มีให้ดาวน์โหลดตัว Login ไหมครับ ผมทำแล้วมานไม่ได้อ่าคับผม

[@bythewaychannel8497]

Access-Creator ขอบคุณมากครับอาจารย์

[@pathnapawaruwaru8908]

พี่ครับผมเปิดหน้า vb ไม่ได้อะครับ. แนะนำหน่อยครับ เวอร์2016

[@AccessCreator]

อาการเป็นไงครับ