เป็นปุ่มก็ทำได้แล้วค่ะ หนูไม่รู้จะขอบคุณพี่ยังไงเลยค่ะ ตอนนี้โปรเจคหนูเสร็จเรียบร้อยแล้วค่ะ รอปัญหาตามมา 55555 ขอบคุณมากๆเลยนะคะ 

Private Sub Form_Load()
Call ShowAllRecord
End Sub
Sub ShowAllRecord()
Dim myCustomer As String
myCustomer = "SELECT Asset_all.* FROM Asset_all;"
Forms![U_customer search by combobox]![tbl_Customer_Subform1].[Form].RecordSource = myCustomer
End Sub

เป้งงอันนี้ค่ะ มันเป็นอันเดียวกันไหมคะ พอไปใส่แล้วมันแยกกัน

Private Sub cboCustomertype_AfterUpdate()
Dim myCustomer As String
myCustomer = "SELECT * FROM Asset_all WHERE (((Asset_all.Status)=[forms]![U_customer search by combobox].[Form]![cboCustomerType]));"
Forms![U_customer search by combobox]![tbl_customer_subform1].[Form].RecordSource = myCustomer
Me.CboDepname = Null
End Sub

Private Sub CboDepname_AfterUpdate()
Dim myDepname As String
myDepname = "SELECT * FROM Asset_all WHERE (((Asset_all.Depname)=[forms]![U_customer search by combobox].[Form]![cbodepname]));"
Forms![U_customer search by combobox]![tbl_customer_subform1].[Form].RecordSource = myDepname
Me.cboCustomerType = Null
End Sub

เรียบร้อยค่ะ 5555

เดี๋ยวจะมาแปะให้นะคะ

ขออนุญาตแนบคลิปต้นแบบค่ะ https://www.youtube.com/watch?v=choPri7y_o4&ab_channel=NanaSara
ตอนนี้เป้ทำชิ้นงานเหมือนกับวิดีโอเลยค่ะ ตอนนี้ติดขั้นตอนการทำรายงานให้ได้แบบในวิดีโอ เขาจะดึงข้อมูลจาก combo box ไปอยู่ในรายงานด้วย แต่เนื่องด้วยเป้ทำ report ไม่ค่อยเป็นค่ะ จึงอยากวอนอาจารย์ช่วยชี้แนะเป้ด้วยนะคะ ขอบคุณมากๆเลยค่ะ 

ขอบคุณมากๆเลยค่ะ 

ขอสอบถามเพิ่มเติมอีกนิดนะคะ ว่า Dirty คืออะไรหรอคะ

Private Sub Command477_Click()
me.dirty = false
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
End sub

ลืมใส่ =
ลองดูคับว่าได้ไหม

ทำได้แล้วค่ะ กราบขอบพระคุณงามๆเลยค่าา 

หนูเขียนโค้ดลงตัวปุ่มสีเขียวดังนี้ค่ะ
Private Sub Command477_Click()
DoCmd.RunCommand (acCmdRecordsGoToNew)
End Sub
จากนั้นเมื่อกดปุ่มเขียวขณะที่ไม่มีข้อมูลก็เกิด error ดังภาพค่ะ เลยอยากทราบว่าต้องเขียนโค้ดอย่างไรจึงดัก error ดังภาพได้บ้างคะ