ต้องการสร้างปุ่มโดยการเขียนโค๊ด ให้เขียนตัวเลขเป็นชุดๆละ 40 คน

[pirin]

สมมติว่า มีฟิลด์ อยู่ 2 ฟิลด์ ชื่อ  number_sob  (เลขประจำตัวสอบ)  และ  room_sob  (ห้องสอบ)
เลขประจำตัวสอบ จะเรียงจากน้อยไปหามากเช่น   21001  21002  ไปเรื่อยๆ เช่นถึง  21900     
- ต้องการสร้างปุ่ม โดยการเขียนโค๊ด  ให้ใส่หมายเลขห้องสอบ  40 คนแรก (เลขประจำตัวสอบจากน้อยไปหามาก 40 หมายเลขแรก) เป็นห้องสอบที่ 1 (ใส่เลข 1 ในฟิลด์ room_sob)  ต่อไป คนที่ 41-80  ให้ เขียนเลข 2 ในฟิลด์  room_sob   คนที่ 81-120  ให้ เขียนเลข 3 ในฟิลด์  room_sob  ทำเช่นนี้ไปเรื่อยๆ ครับ
-  สรุปคือ 40 คนแรก ให้เขียนเลข  1 ในฟิลด์  room_sob  , 40  คนต่อไป  ให้เขียนเลข  2 ในฟิลด์  room_sob ,  40  คนต่อไป  ให้เขียนเลข  3 ในฟิลด์  room_sob , ทำแบบนี้ไปเรื่อยๆ

[สันติสุข]

สมมุติเทเบิลชื่อ T และ data type ของฟิลด์ห้องสอบเป็น Numeric

Dim SQL as String

SQL = "update T as T0 set room_sob = int(dcount(""*"", ""T"", ""number_sob < "" & T0.number_sob)/40)+1"
CurrentDB.Execute SQL, dbFailOnError

[pirin]

อาจารย์ครับ มันฟ้องแบบนี้ครับ

[สันติสุข]

ถ้า data type ของฟิลด์ห้องสอบเป็น Text ให้เปลี่ยนเป็น

SQL = "update T as T0 set room_sob = cstr(int(dcount(""*"", ""T"", ""number_sob < "" & T0.number_sob)/40)+1)"

[pirin]

รบกวน อ.สันติสุข อีกครั้งครับ  ยังขึ้นเหมือนเดิม  (data type ของฟิลด์ห้องสอบเป็น Text)
data type ของฟิลด์ number_sob ก็เป็น Text และเป็น คีย์หลักด้วยครับ

[สันติสุข]

ลองใหม่ครับ อันนี้สำหรับทั้ง room_sob และ number_sob มี data type เป็น Text ทั้งคู่ครับ

โค๊ด: [Select]

SQL = "update M4_sobgen_sci T0 set room_sob = cstr(int(dcount('*', 'M4_sobgen_sci', 'number_sob < ''' & T0.number_sob & '''')/40)+1)"

ให้ก็อปปี้ไปเลยนะครับ ไม่งั้นเดี๋ยวจะสับสน เพราะ '' ภายในไม่ใช่ double quote เหมือนที่ให้ไปก่อนหน้า แต่เป็น single quote ครับ  ส่วน " ครอบหน้าและหลัง ยังเป็น double quote

[pirin]

ได้แล้วครับ   ขอบคุณ อ.สันติสุขมาก ครับ

[SakDa]

โพสต์นี้เกือบจะเป็นเลขที่สำหรับห้องได้แล้วครับ อ.สันติสุข แวะมาอีกครั้งครับ
ใช้ตารางและชนิดของฟิลด์ตามโพสต์นี้ แต่ขอเป็น ขึ้นห้องใหม่รันเลข 1 จนถึง x ของคนสุดท้ายห้องนั้น...
ทำเลขที่ได้สบายเลยครับ ตอนนี้ใช้วิธี คัดลอกจาก Excel มาวางในตาราง

[สันติสุข]

สมมุติฟิลด์เลขลำดับที่ชื่อ R และมี data type เป็น Integer หรือ Long นะครับ

SQL = "update M4_sobgen_sci T0 set R = dcount('*', 'M4_sobgen_sci', 'room_sob = ''' & T0.room_sob & ''' and number_sob < ''' & T0.number_sob & '''')"

[FaisonSiu]

คงต้องประยุกต์ใช้หน่อยละ เพื่อไม่ให้เป็นการลำบาก อ.