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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

05 มี.ค. 61 , 21:42:32
อ่าน 545 ครั้ง

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

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

 

06 มี.ค. 61 , 08:28:11
ตอบกลับ #1

ปิ่นณรงค์

ขอดูหน้าฟอร์มที่จะแสดงหน่อยครับ
หรือส่งตัวอย่างมาดู
« แก้ไขครั้งสุดท้าย: 06 มี.ค. 61 , 08:40:33 โดย Newbies »
:love: :grin:
 

06 มี.ค. 61 , 22:14:10
ตอบกลับ #2

Eik Q Sang

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

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

 

07 มี.ค. 61 , 08:35:52
ตอบกลับ #3

ปิ่นณรงค์

ใน 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

หรือส่งไฟล์มาดูผมแก้ให้ทาง pinnarong1115@hotmail.com ก็ได้คับ
« แก้ไขครั้งสุดท้าย: 07 มี.ค. 61 , 12:01:01 โดย Newbies »
:love: :grin:
 

07 มี.ค. 61 , 12:49:13
ตอบกลับ #4

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

หรือส่งไฟล์มาดูผมแก้ให้ทาง pinnarong1115@hotmail.com ก็ได้คับ

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

 


บอร์ดเรียนรู้ Access สำหรับคนไทย