กระทู้เก่าบอร์ด อ.Yeadram
1,167 6
URL.หัวข้อ /
URL
รบกวนขอโค๊ด นับแถวคิวรี่
สวัสดีครับ คําถามแรก คือผมต้องให้ มันนับแถวที่มันคิวรี่ออกมาว่ามีกี่แถวครับ ?
คําถามที่สอง เมือคิวรี่ออกมาแล้วถ้าไม่พบข้อมูล มันจะแสดงตามภาพใช่มั้ยครับ ว่า "ไม่พบคําที่คุณต้องการค้นหา" ซึ่งในส่วนนี้ผมต้องการว่าหลังจากที่มันแสดงข้อความแล้ว ก็ไม่ต้องให้มันเปิดหน้าคิวรี่ขึ้นมา
คําถามที่สอง เมือคิวรี่ออกมาแล้วถ้าไม่พบข้อมูล มันจะแสดงตามภาพใช่มั้ยครับ ว่า "ไม่พบคําที่คุณต้องการค้นหา" ซึ่งในส่วนนี้ผมต้องการว่าหลังจากที่มันแสดงข้อความแล้ว ก็ไม่ต้องให้มันเปิดหน้าคิวรี่ขึ้นมา
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R17819
2 @R17822
อย่างที่คุณทำก็ใกล้เคียงแล้วครับ
if dcount(....) > 0 then
docmd.openquery "ชื่อคิวรี่"
else
msgbox "ไม่พบคําที่คุณต้องการค้นหา"
end if
if dcount(....) > 0 then
docmd.openquery "ชื่อคิวรี่"
else
msgbox "ไม่พบคําที่คุณต้องการค้นหา"
end if
3 @R17825
คุณ สันติสุข ครับ คือผมอยากให้มัน msgbox ด้วยว่ามีกี่แถว ต้องกําหนดหรืออ้างตัวแปรยังไงครับ
4 @R17826
dim r as long
r=dcount(....)
if r > 0 then
msgbox "มี " & cstr(r) & " แถว"
docmd.openquery "ชื่อคิวรี่"
else
msgbox "ไม่พบคําที่คุณต้องการค้นหา"
end if
แต่จริงๆเวลาดูในคิวรี่ ที่บรรทัดล่างสุดมันก็มีบอกอยู่แล้วว่ามีกี่บรรทัด ไม่จำเป็นต้องไปทำงานที่ซ้ำซ้อนนะครับ
r=dcount(....)
if r > 0 then
msgbox "มี " & cstr(r) & " แถว"
docmd.openquery "ชื่อคิวรี่"
else
msgbox "ไม่พบคําที่คุณต้องการค้นหา"
end if
แต่จริงๆเวลาดูในคิวรี่ ที่บรรทัดล่างสุดมันก็มีบอกอยู่แล้วว่ามีกี่บรรทัด ไม่จำเป็นต้องไปทำงานที่ซ้ำซ้อนนะครับ
5 @R17827
คุณ สันติสุข ครับ คือผมต้องการให้ผู้ใช้ทราบว่าข้อมูล ที่ค้นหา มีกี่แถว อ่าครับเลยต้องทําแบบนี้ครับ ขอถามอีกนิดน้ะครับ ในส่วนนี้ r=dcount(....) ในวงเล็บนี้ใส่อรัยหร่อครับ ?
6 @R17828
โอเคครับ ผมทําได้แล้วครับบบ ขอบคุณมากน้ะครับ (มือใหม่)
Time: 0.3524s
