ไม่ค่อยเข้าใจตรง นำคิวรี่ไปสร้างเป็นฟอร์นี่แหละคับ มันต้องทำยังไงบ้าง มองภาพไม่ออกเลยคับ

เอ..ทั้งสองท่านพูดซะผมงง คือผมต้องการแสดงใน textbox น่ะคับ
โดยที่แถวแรกแสดงในระเบียนแรกคับ แถวที่สองก้อแสดงระเบียนที่ 2 น่ะคับ
พอจะมีวิธีไหมคับ

- กำหนด Default View property ของฟอร์มให้เป็น Continuous Forms

- ใน form header section ให้สร้าง textbox ชื่อ txtSearchName เพื่อรับค่า name ที่ต้องการค้นหา   และสร้าง command button ชื่อ btnSearch เพื่อให้กดแล้วเริ่มต้นการค้นหา

- ใน form detail section ให้สร้าง textbox ชื่อ txtMachine มี Control Source property เป็นคำว่า machine (คือชื่อของฟิลด์ machine นั่นเอง) เพื่อแสดง machine และสร้าง textbox ชื่ิอ txtPrice มี Control Source property เป็นคำ่ว่า price เพื่อแสดง Price เช่นกัน

- ใน On Load event ของ Form ให้สร้าง Event Procedure แล้วใส่โค้ดดังนี้

Private Sub Form_Load()
     Me.RecordSource = ""
End Sub

- ใน On Click event ของ btnSearch command button ให้สร้าง Event Procedure แล้วใส่โค้ดในลักษณะนี้ลงไป

Private Sub btnSearch_Click()
    Dim txtSQL As String
    
    txtSQL = "select * from ชื่อเทเบิล where name = '" & Me.TxtSearchName & "' "
    Me.RecordSource = txtSQL
End Sub

ตย.และโค้ดที่ให้นี้ยังไม่ได้มีการตรวจสอบความถูกต้องใดๆ เพียงแต่ให้เป็นแนวทางเท่านั้น

ขอบคุณมากคับ คุณสันติสุข แต่จากที่ดูมันน่าจะออกแถวเดียวป่าวคับ หรือว่าออกทุกแถวเลยคับ

ลองทำตามที่ผมบอกแล้วหรือยัง

ผมลองทำดูแล้วคับ คือมันออกได้ทั้งสองแถวเลยคับ ดีใจมาก โอวววว แต่...
มันจะเพิ่มระเบียนใหม่มาให้ตลอดเลยคับ มันไม่ได้หยุดที 2 แถวน่ะคับ คือ มันจะแสดง แถวแรก
textbox2 = m textbox3 = 10

(new)textbox4 =p (new)textbox5=15

*(new)textbox4 = ค่าว่าง (new)textbox5= ค่าว่าง //แถวนี้จะเพิ่มมาตลอดเลยคับ


จะกำหนดยังไงดีคับ คือ อยากใ้ห้มันออกแค่แถวที่มี โค๊ด b น่ะคับ โดยไม่มีแถวใหม่ที่มีค่าว่างน่ะคับ ชี้แนะด้วยคับ ขอบคุณมากเลยคับ ช่วยได้เยอะเลยคับ

ไปกำหนด Allow Addition property ของฟอร์มให้เป็น False ครับ

โอวววว ได้แล้วคับ ขอยคุณมากคับ แต่เราจะกำหนดค่าใน textbox ทุกตัวให้เปนค่าว่างก่อนทำไงคับ เปิดฟอร์มขึ้นมาก้อเปนค่าว่างก่อน ป้อนโค๊ดแล้วค่อยแสดงน่ะคับ
เพราะจากที่ทำมามันจะขึ้นค่าอะไรก้อไม่รู้น่ะคับ
รบกวน อาจารย์อีกทีคับ..

ปัญหาเกิดจากเพราะว่าตอนเริ่มต้นเรายังไม่มี RecordSource แต่ใน textbox ต่างๆเราอ้าง ControlSource property ไปยังฟิลด์ที่คาดว่าจะมีเมื่อมี RecordSource เกิดขึ้นแล้ว มันจึงเกิด error #Name? นั่นคือฟอร์มเราเป็นประเภท bound form คือ textbox นั้นผูกติดกับฟิลด์ในฐานข้อมูลโดยตรง

ดังนั้นจึงแก้โดยการ ซ่อน ส่วนที่เป็น detail เอาไ้ว้ก่อน โดยไปกำหนด Visible property ของ Detail section ของฟอร์ม ให้เป็น False แล้วแก้ไขโค้ดเป็นดังนี้

Private Sub btnSearch_Click()
    Dim txtSQL As String
    
    txtSQL = "select * from ชื่อเทเบิล where name = '" & Me.TxtSearchName & "' "
    Me.RecordSource = txtSQL
    Me.Section("detail").Visible = True
End Sub

จริงๆแล้วเรายังมีอีกวิธีคือ เราค่อยไป ผูก textbox เข้ากับฟิลด์ตอน runtime แทน โดยการกำหนด .ControlSource property ของ textbox เหล่านั้นให้เป็นชื่อฟิลด์ เช่น Me.txtMachine = "machine" ก็ได้

ปล. ผมว่าคุณควรหาหนังสือมาอ่านประกอบด้วย หรืออ่านจาก Help File ที่ติดมากับ Microsoft Office ด้วย เวลา install ให้เลือก VBA Help File ด้วย (หรืออะไรประมาณนี้แหล่ะ ผมจำคำไม่ได้)

แก้เขียนผิด จาก Me.txtMachine = "machine" ต้องเป็น Me.txtMachine.ControlSource = "machine"

วิธีที่สองน่าจดีกว่าคับ แต่ผมไม่เข้าใจว่า ให้กำหนดตรงไหน
Me.txtMachine.ControlSource = "machine" น่ะคับ ใส่ตรง textbox หรือ btnSearch งงคับ
หน้ามืดอีกแล้วคับ เอิ๊กๆ รบกวนด้วยคับ T_T

อย่าต้องให้ถึงกับบอกหมดเลย ลองใช้ตรรกะคิดดูนะครับว่าควรใส่ที่ไหน

T-T อาจารช่งดุยิ่งนัก โอเคแล้วคับ ได้แล้ว ผมว่าวิธีที่สองสุดยอดเลยคับ
ขอบคุณมากคับอาจารย์ ยอดเยี่ยมกระเทียมดองไปเลย....เฮ่อกว่าจะได้
ไว้วันหลังรบกวนอีกทีนะคับ ขอบคุณมากมายคับ