กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
404 6
URL.หัวข้อ /
URL
เปิด Report โดยใช้เงื่อนไข
ผมต้องการเปิด Report ขึ้นมาโดยตั้งเงื่อนไขให้มีชื่อขึ้นต้นด้วย น เท่านั้นขึ้นมาแสดง โดยพิมพ์ น ลงไปใน Text0 เช่น
โดยต้องการให้มีชื่อเหล่านี้
แนน
นัด
นวย
ใน
ไนย
*** ขึ้นมาแสดง****
เมื่อเขียน Code ดังนี้
DoCmd.OpenReport "RptName", acViewPreview, , "MName Like '" & Text0.Value & "*'"
กลับมีแต่
นัด และ นวย ขึ้นมาแสดงแค่นั้น
อยากทราบว่าต้องทำอย่างไรครับจึงจะแสดงชื่อทั้งหมดดังในตัวอย่างได้
(โดยแค่พิมพ์อักษรขึ้นต้นเท่านั้น และไม่ต้องพิมพ์สระนำหน้าด้วย)
โดยต้องการให้มีชื่อเหล่านี้
แนน
นัด
นวย
ใน
ไนย
*** ขึ้นมาแสดง****
เมื่อเขียน Code ดังนี้
DoCmd.OpenReport "RptName", acViewPreview, , "MName Like '" & Text0.Value & "*'"
กลับมีแต่
นัด และ นวย ขึ้นมาแสดงแค่นั้น
อยากทราบว่าต้องทำอย่างไรครับจึงจะแสดงชื่อทั้งหมดดังในตัวอย่างได้
(โดยแค่พิมพ์อักษรขึ้นต้นเท่านั้น และไม่ต้องพิมพ์สระนำหน้าด้วย)
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R05407
ไม่ได้ครับถ้าทำอย่างนั้นจะมีชื่อที่ไม่ต้องการออกมาด้วย เช่น สัน ทัน ชัน สิน บิน
3 @R05888
ลองดูวิธีนี้ครับ ใส่ตัวอักษาเดียวแล้วค้นเลยครับ ลองดัดแปลงดูนะครับ
4 @R05896
ขอบคุณครับ{คุณอุดมโชค}
โชคดีวันคริสต์มาสและปีใหม่ครับ
โชคดีวันคริสต์มาสและปีใหม่ครับ
5 @R05902
แน่ะ...นึกว่าหาทางอื่นออกได้แล้ว ไม่คิดว่าคำตอบของผมจะมีประโยชน์กับเพื่อนสมาชิกเหมือนกัน :)
6 @R05917
ผมคิดออกได้นานแล้วครับแต่ยังไม่ได้นำมาลง ของผมทำอย่างนี้ครับ
Dim Strwhere As String
Strwhere = "MName Like '[" & Text0 & "-" & Chr(Asc(Text0) + 1) & "]*' And MName Like '[!" & Chr(Asc(Text0) + 1) & "]*'"
DoCmd.OpenReport "RptName", acViewPreview, , Strwhere
คิดว่าได้ผลดีกว่าครับและตรงตามวัตถุประสงค์ของผม
*********************************************************************
ส่วน File ที่คุณอุดมโชคแนบมาทดสอบแล้วครับ
ได้ผลคล้ายกับของผมข้างต้น(บนหัวข้อกระทู้นี้) คือ ตัวอักษรที่มีสระนำหน้าจะไม่ขึ้นมาแสดงด้วย( ! จริงๆ แล้วผมต้องการให้มันแสดงทั้งมีสระขึ้นต้นและไม่มีสระขึ้นต้นด้วย)
Dim Strwhere As String
Strwhere = "MName Like '[" & Text0 & "-" & Chr(Asc(Text0) + 1) & "]*' And MName Like '[!" & Chr(Asc(Text0) + 1) & "]*'"
DoCmd.OpenReport "RptName", acViewPreview, , Strwhere
คิดว่าได้ผลดีกว่าครับและตรงตามวัตถุประสงค์ของผม
*********************************************************************
ส่วน File ที่คุณอุดมโชคแนบมาทดสอบแล้วครับ
ได้ผลคล้ายกับของผมข้างต้น(บนหัวข้อกระทู้นี้) คือ ตัวอักษรที่มีสระนำหน้าจะไม่ขึ้นมาแสดงด้วย( ! จริงๆ แล้วผมต้องการให้มันแสดงทั้งมีสระขึ้นต้นและไม่มีสระขึ้นต้นด้วย)
Time: 0.1492s
ถ้าอยากให้แสดงทั้งหมด ใส่ * หน้าหลังเลยครับ ลองดูละกันครับ
MName Like '*" & Text0.Value & "*'"