กระทู้เก่าบอร์ด อ.Yeadram
2,879 4
URL.หัวข้อ /
URL
Copyรายละเอียดข้อมูลจากอีกตารางลงในฟอร์ม
ตัวอย่าง คือมีตารางอยู่ 2 ตาราง
1. TableData ประกอบด้วย Field ID และ Field Name
2. TableAdd ประกอบด้วย Field ID และ Field Name
และผมได้สร้างฟอร์มสำหรับบันทึกข้อมูลเพื่อบันทึกข้อมูลลงใน TableAdd ครับ สิ่งที่ต้องการคือเมื่อผมคีย์ ID ในฟอร์มสำหรับบันทึกข้อมูลแล้วมีปุ่มกด(หรือไม่มีก็ได้) เพื่อให้ Copyรายละเีอียดใน Field Name ของ TableData ซึ่งเลข ID ตรงกัน มาใส่ใน FieldName ของฟอร์มสำหรับบันทึกข้อมูล ครับ
ขอบคุณครับ
1. TableData ประกอบด้วย Field ID และ Field Name
2. TableAdd ประกอบด้วย Field ID และ Field Name
และผมได้สร้างฟอร์มสำหรับบันทึกข้อมูลเพื่อบันทึกข้อมูลลงใน TableAdd ครับ สิ่งที่ต้องการคือเมื่อผมคีย์ ID ในฟอร์มสำหรับบันทึกข้อมูลแล้วมีปุ่มกด(หรือไม่มีก็ได้) เพื่อให้ Copyรายละเีอียดใน Field Name ของ TableData ซึ่งเลข ID ตรงกัน มาใส่ใน FieldName ของฟอร์มสำหรับบันทึกข้อมูล ครับ
ขอบคุณครับ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R02323
คุณ yeadram ครับ ขึ้น error ที่
if Not Null(dlookup("[Name]","TableData","[ID] = '" & txID & "'")) then ครับ
หากต้องการให้มีปุ่มกดเพื่อให้ copy ละครับทำอย่างไรครับ
if Not Null(dlookup("[Name]","TableData","[ID] = '" & txID & "'")) then ครับ
หากต้องการให้มีปุ่มกดเพื่อให้ copy ละครับทำอย่างไรครับ
3 @R02324
หากต้องการให้มีการทำงานในเหตุการณ์อื่น ก็ยกไปทั้งชุดเลยครับ
Private sub cmdCopy_Click()
if txID<>"" then ...
...
...
end sub
คำสั่งที่ว่า error นั้นดูๆ อีกทีน่าจะเป็นเพราะผมเขียนตกไป
if Not IsNull(......
ฟังก์ชั่น ชื่อว่า IsNull() ครับ พอดีเขียนสดๆ หน้าเว็บเลยไม่มีตัวช่วยบอกว่า เขียนตกเขียนหล่นอะไรหรือเปล่า ขออภัยด้วยครับ
Private sub cmdCopy_Click()
if txID<>"" then ...
...
...
end sub
คำสั่งที่ว่า error นั้นดูๆ อีกทีน่าจะเป็นเพราะผมเขียนตกไป
if Not IsNull(......
ฟังก์ชั่น ชื่อว่า IsNull() ครับ พอดีเขียนสดๆ หน้าเว็บเลยไม่มีตัวช่วยบอกว่า เขียนตกเขียนหล่นอะไรหรือเปล่า ขออภัยด้วยครับ
4 @R02330
ขอบคุณครับ
Time: 0.3378s
-ไปหาข้อมูลในฟิลด์ Name ของเรคคอร์ดใดๆ จากตาราง TableData ที่มีฟิลด์ ID เดียวกับที่เพิ่งกรอกไป
- ถ้าเจอข้อมูลให้นำข้อมูลเติมลงไปใน ช่อง Name
Private Sub txID_Afterupdate()
if txID<>"" then
if Not Null(dlookup("[Name]","TableData","[ID] = '" & txID & "'")) then
txName =dlookup("[Name]","TableData","[ID] = '" & txID & "'")
End if
End if
End sub