คีวรี!เปรียบเทียบการรันเลข
กระทู้เก่าบอร์ด อ.Yeadram

 1,232   1
URL.หัวข้อ / URL
คีวรี!เปรียบเทียบการรันเลข

สวัสดีครับ
คือว่าผมต้องการสร้างคีวรีที่ไว้ตรวจสอบ ผลการเปรียบเทียบคลัง
เช่น มีtableฃื่อ test มีฟิลด์ StoreID    และ อื่นๆๆ
      มีtable ชื่อ runtest มีฟิลด์ autonumber     (ในนี้พิมพ์เลขในข้อมูลไว้แล้ว1-100) มีข้อมูลเป็นNumber ทั้งหมด
ต้องการ เอาข้อมูลทั้ง 2 table มาเปรียบเทียบค่ากันเช่น
test /StoreID   อีกtable runtest / autonumber   คีวรี   autonuber      StoreID
              1                                        1                      1                 1
              2                                        2                      2                 2
              4                                        3                      3                 fale
              6                                        4                      4                 4
                                                                                5                  fale
                                                                                6                  6
ค่าที่ยังไม่มีในข้อมูลจะเกิดเป็นค่า fale แสดงขึ้นมาเลยรู้ว่าStoreID ยังไม่มีในข้อมูล

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R04121
คุณต้องการหา "เลขที่ที่หายไปใช่ไหมครับ"
ลองใช้โค้ดง่ายๆ ที่ใช้ฟังก์ชั่นในกลุ่ม "โดเมน อะกรีเกต" ดูนะครับ
(Dmin, Dmax, Dcount, Dlookup)
- กรณีฟิลด์เลขที่ของคุณเป็น Long Integer
- ฟิลด์ของคุณ เป็น index ไม่อนุญาตค่าซ้ำ
- ข้อมูลในฟิลด์นี้ของคุณ เริ่มนับจาก 1


dim fst as Long
dim lst as long
dim cur as long

fst=nz(dmin("ชื่อฟิลด์ที่ต้องการตรวจสอบ", "ชื่อตารางที่ต้องการตรวจสอบ"),0)
if fst=0 then exit function

lst=nz(dmax("ชื่อฟิลด์ที่ต้องการตรวจสอบ", "ชื่อตารางที่ต้องการตรวจสอบ"),0)
if lst=0 then exit function

if lst=dcount("ชื่อฟิลด์ที่ต้องการตรวจสอบ", "ชื่อตารางที่ต้องการตรวจสอบ") then
debug.print "No lost number..............."
exit function
end if

for cur = fst to lst
if nz(dlookup("ชื่อฟิลด์ที่ต้องการตรวจสอบ", "ชื่อตารางที่ต้องการตรวจสอบ","[ชื่อฟิลด์ที่ต้องการตรวจสอบ] = " & cur),"loose") ="loose" then _
debug.print "Lost................" & cur
next
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.4052s