อยู่ดีๆ ปุ่มค้นหาก็ใช้งานไม่ได้คับ

[bukbaikon]

ขอความช่วยเหลือหน่อยคับ พอกดปุ่มค้นหาแล้วไม่มีข้อมูลโชว์เลย ทั้งที่ข้อมูลก็มีนะคับ
ก่อนหน้านี้ก็ยังใช้งานได้ปกติ

[สันติสุข]

1. เข้า VBA Editor ไปคอมไพล์โปรแกรมก่อน ถ้าไม่ผ่านก็แก้ให้ถูกครับ
2. ดูชื่อปุ่มบนฟอร์มว่ายังชื่อ cmdFind หรือเปล่า ถ้าไม่ใช่ก็แก้ให้ถูกต้อง
3. ที่บรรทัด On Click ใน Property Sheet ของปุ่ม cmdFind แสดงเป็นคำว่า [Event Procedure] หรือไม่ ถ้าไม่ใช่ก็คลิกปุ่ม ... หลังบรรทัด  Access จะเปิด VBE Editor ให้ใส่โค้ดอีกทีและทดสอบการทำงานครับ

นอกเหนือจากนี้ และถ้า Access ไม่ได้แสดงข้อความอะไรบอกเราเพิ่มเติม ก็น่าจะเกิดจาก ข้อมูลไม่ได้อยู่ในช่วงวันที่แล้วครับ

[bukbaikon]

ได้แล้วครับ ผมไปเปลี่ยน data entry = no ก็สามารถค้นหาได้ แต่ถ้าเปลี่ยนเป็น yes จะไม่สามารถค้นหาได้ รบกวนสอบถามเพิ่มเติม ตรงนี้มีวิธีแก้อย่างอื่นอีกไหมครับ ถ้าเกิดผมไม่ต้องการแสดงข้อมูลทั้งหมดตอนเปิดฟอร์มอะครับ

[PNR]

มีวิธีแก้อย่างอื่นอีกไหมครับ ถ้าเกิดผมไม่ต้องการแสดงข้อมูลทั้งหมดตอนเปิดฟอร์มอะครับ

วิธีง่ายที่จะไม่แสดงข้อมูลก็คือ การให้มันค้นหาค่าที่ Null ครับ เช่นหาค่าว่างของ ID เลย ข้อมูลต้องมี ID อยู่แล้วจริงไหม
พอเราค้นหา ID = Null ข้อมูลก็จะไม่แสดงแล้วครับ แล้วเอาไปไว้ที่ อีเว้น Form_Load เพื่อให้มันทำงานตอนเปิดฟอร์มขึ้นมา
แนวทางเช่น

Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT * FROM [ชื่อตาราง] WHERE ID=null;"
Me.RecordSource = strSQL
End Sub

[bukbaikon]

มีวิธีแก้อย่างอื่นอีกไหมครับ ถ้าเกิดผมไม่ต้องการแสดงข้อมูลทั้งหมดตอนเปิดฟอร์มอะครับ

วิธีง่ายที่จะไม่แสดงข้อมูลก็คือ การให้มันค้นหาค่าที่ Null ครับ เช่นหาค่าว่างของ ID เลย ข้อมูลต้องมี ID อยู่แล้วจริงไหม
พอเราค้นหา ID = Null ข้อมูลก็จะไม่แสดงแล้วครับ แล้วเอาไปไว้ที่ อีเว้น Form_Load เพื่อให้มันทำงานตอนเปิดฟอร์มขึ้นมา
แนวทางเช่น

Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT * FROM [ชื่อตาราง] WHERE ID=null;"
Me.RecordSource = strSQL
End Sub

ได้แล้วครับ ขอบคุณครับ