Function ChangeMain(myCode As String)
Forms("FrmReport").Filter = "[Document.DocNum] like '" & Replace(Me.DocNum, "#", "[#]") & "'"
Forms("FrmReport").FilterOn = True
End Function

มีมีปัญหาว่าตอนเลือก

WS-D17-RT50-01/4(00)
WS-D17-RT50-01/5(00
ถ้าเป็น 01 และตัวอื่นๆมันโยนค่าจากพอร์มย่อยมาโชว์พอร์มหลัก
แต่เฉพาะ 02 มันไม่โชว์ครับ 03,04 อื่นๆได้หมดยกแว้นตัว02 ครับ

WS-D17-RT50-02(00) ----->ที่ไม่เห็นหรับ

ขอบคุณครับ