ทำให้บันทึกการอบรมโดยใช้ฟอร์มย่อย

[MyDDT]

จากรูป ข้อ 1 คือสั่งให้เปิดฟอร์มย่อยเมื่อจะบันทึกพนักงานที่จะเข้าอบรม แล้วเลือกรายชื่อพนักงานที่สร้างจาก query พอเลือกเสร็จ เมื่อบันทึกแล้ว อยากให้มันลงไปอยู่ในฟอร์มย่อม ข้อ 2 พร้อมกับผลคะแนนเมื่ออบรมเสร็จ (ผลอบรมจะบันทึกเพิ่มเติมทีหลังหรืออาจจะบันทึกการอบรมพร้อมผลเมื่ออบรมเรียบร้อย)

ช่วยแนะนำทีค่ะ ว่าต้องทำอย่างไรบ้าง

[ปิ่นณรงค์]

ถ้า attach ฟอร์มและตารางนั้นมา ผมทำตัวอย่างให้ได้ครับ

[MyDDT]

เดี๋ยวแยกไฟล์ก่อนแล้วจะแนบให้ตอนเย็นนะคะ

[MyDDT]

ถ้า attach ฟอร์มและตารางนั้นมา ผมทำตัวอย่างให้ได้ครับ

แนบไฟล์ให้แล้วนะคะอาจารย์ ขออภัยที่ช้าค่ะ

[ปิ่นณรงค์]

ลองดูตัวอย่างนี้นะครับ

[MyDDT]

ขอบคุณค่ะอาจารย์ เดี๋ยวจะลองปรับใช้ดูค่ะ

พอดีมีอีกคำถามค่ะอาจารย์ ถ้าเกิดว่าต้องการให้ช่องเวลาเข้างาน เมื่อพนักงานมาเกิน 8.00 น. ให้ขึ้นเป็นสีแดงในช่องซัพฟอร์ม ต้องลงโค้ดแบบไหนคะ

ตัวอย่างที่แนบมาให้คือ เมื่อวานหนูลองประกาศตัวแปรดูแล้วฝังโค้ด แต่โค้ดมันมีฝังอยู่แล้วที่อาจารย์เคยทำให้อ่ะค่ะ (ตามที่ลูกศรชี้) ก็เลยไม่ทราบว่ามันจะต้องแทรกอย่างไรอีกค่ะ แล้วก็ไม่รู้ว่าทำถูกหรือป่าวด้วย

[ปิ่นณรงค์]

เปลี่ยน ฟอร์มย่อยเป็นแบบ Continuous Forms
นะครับ จากข้อมูลเก่า textbox ชื่อ txtin
ใช่ไหมครับ
งั้นให้เปิดฟอร์มย่อยขึ้นมา ใส่โค้ดใน Event OnPaint ไปดังนี้

โค๊ด: [Select]

Private Sub Detail_Paint()
Dim lngRed As Long
lngRed = RGB(255, 0, 0)
If Me.txtin > #8:00:00 AM# Then
Me.txtin.ForeColor = lngRed
Else
Me.txtin.ForeColor = Me.txtOut.ForeColor
End If
End Sub

ผลที่ได้

อย่าลืมเปลี่ยน Subform เป็น Continuous Forms ก่อนนะครับ เพราะแบบ DATA SHEET  ไม่สามารถกำหนดได้

[MyDDT]

ได้แล้วค่ะอาจารย์ สำหรับตัวแดง ขออีกนิสนึงนะคะ (จะต้องไปพรีเซ็นต์แล้วค่ะ) จากภาพที่แนบให้อ่ะค่ะ ต่อจากฟอร์มอบรม ที่เปิดขึ้นมาแอดรายชื่อพนักงานอ่ะค่ะ ถ้าเราต้องการดึงชื่อที่มีอยู่ในตารางอยู๋แล้วโดยใช้ Combobox เลือกรหัสพนักงาน แล้วช่องที่เหลือ พวก ชื่อ-นามสกุล-แผนก ก็จะโชว์มาตามที่เลือกรหัสพนักงานไว้ จากนั้นก็เซฟลงไปในฟอร์มย่อยนี่ ต้องทำไงบ้างคะ (ฟอร์มย่อยของหนูเซฟลง Table ไม่ได้เซฟลง Query เหมือนตัวอย่างที่แนบให้ตอนแรกนะคะ พอดีลืมอ่าค่ะ) ตอนนี้มันโชว์รหัสขึ้นมาแล้ว แต่ไม่สามารถคลิกได้อ่ะค่ะ (ในตารางรายชื่อพนักงาน หนูเพิ่มฟิลด์รหัสการอบรมเอาไว้บันทึกการอบรมแล้วค่ะ)

[ปิ่นณรงค์]

ตัวอย่างครับ

[MyDDT]

ขอบคุณมากเลยนะคะอาจารย์  ไว้ถ้าติดปัญหาจะมาสอบถามอีกทีนะคะ 

[MyDDT]

ตัวอย่างครับ

อาจารย์ช่วยอธิบาย Sub Code ตัวนี้หน่อยได้มั้ยคะ พอดีทำแล้วมันติดบัคอ่ะค่ะ ต้องแก้อย่างไรคะ

[ปิ่นณรงค์]

 Error1 ดูโพสนี้ผมแนะนำไว้แล้วhttps://www.thai-access.com/index.php?topic=440.msg1944#new

error2
ตรง Form! แก้เป็น Forms! ข้างหลังเหมือนเดิม