ทำฟอร์มโชว์ทุกเรคคอร์ด แล้วไม่แสดงผลครับ

[Eik Q Sang]

ผมได้สร้างฟอร์มค้นหาโดยใส่โค้ดดังนี้ครับ

Private Sub Command18_Click()
Dim rs As Recordset
    Set rs = Me.RecordsetClone

    Me.Requery
   
    If rs.RecordCount < 1 Then
    MsgBox "???????????"
    txt_CIF = ""
    txt_CusName = ""
    Form_Load
    DoCmd.ShowAllRecords
         
    End If
    rs.Close
    Set rs = Nothing
    Me.Requery
End Sub

Private Sub Form_Load()
    DoCmd.Maximize
    Me.txt_CIF = ""
    Me.txt_CusName = ""
    Me.Requery
    Me.txt_CIF.SetFocus
End Sub

พอรันฟอร์มไม่แสดงทุกเรคคอร์ดไม่ทราบว่าต้องแก้ไขตรงไหนอย่างไรบ้างครับ ขอบคุณมากครับผม

[ปิ่นณรงค์]

ขอดูหน้าฟอร์มที่จะแสดงหน่อยครับ
หรือส่งตัวอย่างมาดู

[Eik Q Sang]

ขอดูหน้าฟอร์มที่จะแสดงหน่อยครับ
หรือส่งตัวอย่างมาดู

ตามนี้อ่าคับ ขอบคุณมากครับผม

[ปิ่นณรงค์]

ใน Form นั้น ข้อมูล Bound กับตัว Control ที่ดึงมาจาก Query หรือเปล่าครับ
ถ้าใช้ ผมว่าใช้คำสั่ง ApplyFilter ในการค้นหาก็ได้ครับ

ตัวอย่างคำสั่ง ใช้ใน Event on Click ที่ตัว CommandBotton
Private Sub Search_Click()
if Not IsNull (ตัว ControlTextBox ที่ใช้ค้นหา) then
DoCmd.ApplyFilter , " CIF like '*' & [Forms]![ชื่อฟอร์ม]![ชื่อ ControlTextBox ที่ใช้ค้นหา] &'*'"
Else
MsgBox "กรุณาระบุ รหัส CIF ก่อน", vbOKOnly, "แจ้ง"
ชื่อ ControlTextBox ที่ใช้ค้นหา.SetFocus
end if
End Sub

หรือส่งไฟล์มาดูผมแก้ให้ทาง [email protected] ก็ได้คับ

[Eik Q Sang]

ใน Form นั้น ข้อมูล Bound กับตัว Control ที่ดึงมาจาก Query หรือเปล่าครับ
ถ้าใช้ ผมว่าใช้คำสั่ง ApplyFilter ในการค้นหาก็ได้ครับ

ตัวอย่างคำสั่ง ใช้ใน Event on Click ที่ตัว CommandBotton
Private Sub Search_Click()
if Not IsNull (ตัว ControlTextBox ที่ใช้ค้นหา) then
DoCmd.ApplyFilter , " CIF like '*' & [Forms]![ชื่อฟอร์ม]![ชื่อ ControlTextBox ที่ใช้ค้นหา] &'*'"
Else
MsgBox "กรุณาระบุ รหัส CIF ก่อน", vbOKOnly, "แจ้ง"
ชื่อ ControlTextBox ที่ใช้ค้นหา.SetFocus
end if
End Sub

หรือส่งไฟล์มาดูผมแก้ให้ทาง [email protected] ก็ได้คับ

ส่งไฟล์ไปทางเมล์แล้วครับ ขอบคุณมากครับผม