กระทู้เก่าบอร์ด อ.Yeadram
1,046 2
URL.หัวข้อ /
URL
ช่วยแนะนำหน่อยครับ ฟอร์มค้นหา
Private Sub cmdFind_Click()
If Me.txtsearch1 = "" Then txtsearch1 = "*"
If Me.txtsearch2 = "" Then txtsearch2 = "*"
ComboYear = ""
comboHGT = ""
Me.RecordSource = "select * from HGT_Query where yea like '*" & txtsearch2 & "*' and HardGoodType like '*" & txtsearch1 & "*'"
Me.Requery
End Sub
จากโค้ดข้างบนครับ
If Me.txtsearch1 = "" Then txtsearch1 = "*"
ถ้าหากว่าไม่ใช่ text box แต่เป็น Combo ผมจะใช้แบบนี้ใช้มั้ยครับ..>
If Me.cbosearch1 = "" Then cbosearch1 = "*"
If Me.txtsearch1 = "" Then txtsearch1 = "*"
If Me.txtsearch2 = "" Then txtsearch2 = "*"
ComboYear = ""
comboHGT = ""
Me.RecordSource = "select * from HGT_Query where yea like '*" & txtsearch2 & "*' and HardGoodType like '*" & txtsearch1 & "*'"
Me.Requery
End Sub
จากโค้ดข้างบนครับ
If Me.txtsearch1 = "" Then txtsearch1 = "*"
ถ้าหากว่าไม่ใช่ text box แต่เป็น Combo ผมจะใช้แบบนี้ใช้มั้ยครับ..>
If Me.cbosearch1 = "" Then cbosearch1 = "*"
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R13305
ลองดูเลยครับ
2 @R13314
textbox มันอิสระ ผู้ใช้จะกรอกอะไรก็ได้ หรือเราสามารถกำหนดโดยโค้ดให้มันมีค่าเป็นอักขระใดๆ ก็ได้
แต่ combo box มันจำกัด (ยกเว้นไปตั้งค่าคุณสมบัติ) ว่าต้องเป็นค่าที่มีอยู่ในลิสต์ของมันเท่านั้น ดังนั้น ต้องดูอีกว่า * มีอยู่ในลิสต์ของคอมโบแล้วหรือไม่ ถ้ามันไม่ใช่สมาชิกของลิสต์ดังกล่าว อาจก่อให้เกิดปัญหาตามมาได้อีก
ดังนั้น กำหนดตัวแปรอิสระ ขึ้นมารอรับค่า แล้วเอาตัวแปรไปทำงานต่อดีกว่าครับ
dim Search1 as string
If Me.cbosearch1 = "" Then search1 = "*"
คำสั่งถัดๆ ไป ให้อ้างค่าจากตัวแปร ไม่ต้องอ้างค่าจากคอนโทรล cbosearch1 อีก
แต่ combo box มันจำกัด (ยกเว้นไปตั้งค่าคุณสมบัติ) ว่าต้องเป็นค่าที่มีอยู่ในลิสต์ของมันเท่านั้น ดังนั้น ต้องดูอีกว่า * มีอยู่ในลิสต์ของคอมโบแล้วหรือไม่ ถ้ามันไม่ใช่สมาชิกของลิสต์ดังกล่าว อาจก่อให้เกิดปัญหาตามมาได้อีก
ดังนั้น กำหนดตัวแปรอิสระ ขึ้นมารอรับค่า แล้วเอาตัวแปรไปทำงานต่อดีกว่าครับ
dim Search1 as string
If Me.cbosearch1 = "" Then search1 = "*"
คำสั่งถัดๆ ไป ให้อ้างค่าจากตัวแปร ไม่ต้องอ้างค่าจากคอนโทรล cbosearch1 อีก
Time: 0.2915s
