ตารางเก็บชื่อ : tblBirthDate
ฟิลด์เก็บ ID : ID
ฟิลด์เก็บชื่อ : Name

สร้างฟอร์ม

ใส่ Text Box 2 ชิ้นชื่อ txtID กับ txtName

ที่ txtName ให้กำหนด Control Source:
=DLookUp("[Name]","tblBirthDate","[txtID] = [ID]")

ที่ txtID ให้กำหนด After Update เป็น SendKeys {F9}

ยังทำไม่ได้เลยครับอาจารย์

มันขึ้นError ตลอด



ตามรุปน่ะครับ เดียวพรุ่งนี้มาทำใหม่ คืนนี้ง่วงแล้ว ขอบคุณนะครับที่มาตอบ อย่าลืมมาแก้ปัญหาให้หน่อยนะะครับ อวยพรให้อาจารย์ก่อนเลย ขอให้อาจารย์หมดหนี้สิน มีกินทั้งชีวิต

ถามว่า เราพิมพ์ =DLookUp("[Name]","tblBirthDate","[txtID] = [ID]") ใน Control Source: หรือภายใน Text boxครับ

ส่วนคำว่า SendKeys นั้นให้เราคลิกที่ after update แล้วไปเลือกที่ตัว ฉนกำ ิีรสกำพ แล้วพิมพ์ว่า   

Private Sub ID_AfterUpdate()
SendKeys
End Sub


แล้วกดเซฟตรงเครื่องมือเซฟ แล้วก็ปิด แล้วก็ไปเซฟอีกทีที่หน้า desige View ใช่มั้ยครับ

1. พิมพ์คำสั่งใน Control Source ครับ
2.
Private Sub ID_AfterUpdate()
SendKeys {F9}
End Sub

ไม่ไ้ดนะอาจารย์ครับ ทำจนเวียนหัวแล้ว ัมนฟ้องว่าแบบนี้

ใช้ความสัมพันธ์ของตารางง่ายกว่าครับ

ขออภัย

SendKeys "{F9}"

ใส่ " " ครอบด้วย

สิ่งที่ต้องระวังคือปุ่ม Numlock มันจะ Off นะครับ

ถ้าให้ดีก็ใช้ SendKeys "{F9}" 2 บรรทัดก็ได้ครับ

ไม่ได้้ครับอาจารย์ธัชชัยมันก็ยังขึ้นerror เมี้ยนเดิมมมม


ไม่รู้ว่ามันผิดตรงหน    ปุ่มNumlock ก็ปกติ(ไฟขึ้นเขียว)แนะนำใหม่นะครับ รบกวนทีนะครับ    ขอบคุณครับ

oong2521        ใช้ความสัมพันธ์ของตารางง่ายกว่าครับ ทำยังไงครับ อย่าบอกว่าไปที่ realationship อันนี้ ยิ่งทำให้งงใหญ่ ทำดีไรมันก็ไม่เห็นจะเปลี่ยนแปลงนะครับ แต่ขอความกรุณาแนะนำผมหน่อย ผมทำเกือบจะสำเร็จแล้ว ติดอยู่แค่2 3 4 5 6 7 8 อย่างนีี้แหละครับ ที่ยังหาทางออกไม่เจอ งมมาเกือบ1เดือนแล้ว : P

ส่งไฟล์มาให้ดูดีกว่าครับ บอกชื่อฟอร์มมา แก้นิดเดียวน่าจะเสร็จ

ได้ครับครับ เดียวผาเวปฝากไฟล์ก่อนนะครับ แปปปปป กำลังโหลดไฟล์ลงเวปที่ฝากไหล์ก่อน

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

ก็ขึ้นอยู่กับการออกแบบครับ

เราสามารถออกแบบให้เลือกป้อนข้อมูลพนักงานใหม่ได้เลย หรือแค่เลือกแสดงชื่อขึ้นมาเท่านั้นก็ได้

ถ้ายังไงก็ส่งไฟล์มาที่ mrtouch999@gmail.com ก็ได้นะครับ

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

ผมนอนดึกครับ ประมาณตี 1

ส่งมาเลยจะได้รีบๆ ดูให้เสร็จ ไม่อยากค้างคืนครับ

https://mega.co.nz/#!pAVCEZzI!aSpAJVEP4WLoFLxbTA6bhn1aeogPu9b3AmwG1tgtY_w   นี้เลยครับตามลิงค์นี้เลย ขอบคุณนะครับอาจารย์

OK แก้ไขเสร็จแล้วนะครับ ปัญหาเกิดจาก
1. ฟอร์มไม่ได้กำหนด Record Source (ซึ่งไม่กำหนดก็ถูกแล้ว)
2. แต่ Text Box ที่อยู่ในฟอร์มคุณดันใส่ Control Source ซึ่งฟอร์มมันก็ไม่รู้จะไปหา Control Source จากที่ไหน ในเมื่อไม่ได้ใส่ Record Source ให้มัน ก็เลยเกิด Error (อันนี้เด้งที่ 1)
3. Text Box เจ้าปัญหาจากข้อ 2 ที่ไปกำหนด Control Source ให้เค้า คุณก็ไม่ได้ไปกำหนด Name ให้เค้าครับ คำสั่ง Dlookup ก็เลยทำงานไม่ได้ คุณต้องไปกำหนด Name ให้เค้าเป็น txtID
4. แต่ถ้าคุณไปแก้ Name ให้ Text Box เจ้าปัญหานี่ คุณก็ต้องไปแก้ไข Event Procedure ของเขาใหม่ด้วยนะครับ เพราะเปลี่ยนชื่อ แต่คำสั่ง SendKeys จะไม่ตามมาครับ

เอาล่ะแก้ไขตามนี้รับรองใช้ได้

ครับขอบคุณครับ อาจารย์ เดียวลองทำดู ได้หรือไม่ได้ จะมาบอกครับ

เพิ่งเจออีกอัน ให้กำหนด Compact on close ด้วยนะครับ ไฟล์จะได้ไม่ใหญ่มากนัก