ถามสั้น ก็ตอบสั้นนะครับ

หา PatternCode = ส่วนหน้า
หา PatternNoStart = ส่วนหลัง ของ Start No
หา PatternNoEnd = ส่วนหลัง ของ End No
กำหนด PatternRunningNo โดย
- For PatternRunningNo = PatternNoStart to PatternNoEnd
Result = "JXLM-" & PatternRunningNo

555 อาจารย์ตอบสั้น ผมเลยงงเลย
ขอยาวสักนิดครับอาาจารย์

เนื่องจากคุณให้คำอธิบายมาน้อยครับ ผมเลยให้ แนวคิดให้ไปต่อยอดเอาเอง
เพราะผมไม่รู้จะอธิบายอย่างไร เดี๋ยวเขียนวิธีให้เสร็จ แต่ปรากฏว่า ไม่ตรงกับงานจริง คุณก็จะนึกไม่ออก ไม่เข้าใจอยู่ดี ใช้งานจริงก็ไม่ได้ เพราะเกิดจากจินตนาการของผม ไม่ใช่งานจริงของคุณ ...

รบกวนให้รายละเอียดมากกว่านี้นะครับ มีคนอยากตอบเยอะ แต่เจอคำถามแล้ว แค่จะคิดก็ไม่อยากแล้วครับ

ขอถามก่อนครับ
- Start No. และ End No. กำหนดจากไหนครับ - มี text box ?
- No. ต้องนำด้วย "JXLM-" เสมอหรือไม่?
   - ถ้าไม่ใช่ แล้ว ถ้าสมมติ Start No. ระบุ JXLM-01111, End No. ระบุ ZZZZ-00000 จะเป็นอย่างไร?
- No. ที่ตามหลัง ต้อง 5 หลักเสมอหรือไม่?

ขอโทษอาจารย์ด้วยครับ


Table Number 1
NO        START NO                             END NO                      UNIT
   1        JXLM-00001                            JXLM-00100                     100
   2        JXKM-00101                            JXKM-00400                     300

Table Number 2
RUNNUMBER
JXLM-00001
JXLM-00002
จนถึง
JXLM-00100
JXKM-00101
JXKM-00102
จนถึง
JXKM-00300


อยากจะใช้คำสั่งผ่านปุ่มที่ฟอร์มครับ
โดยอ่านข้อมูลจากตาราง Table Number 1
แล้วสร้างข้อมูลลงในตารางใหม่ครับ

ขอถามก่อนครับ
- Start No. และ End No. กำหนดจากไหนครับ - มี text box ?
   (ข้อมูลจากตารางครับ)
- No. ต้องนำด้วย "JXLM-" เสมอหรือไม่?
   (ไม่เสมอไปครับ)
   - ถ้าไม่ใช่ แล้ว ถ้าสมมติ Start No. ระบุ JXLM-01111, End No. ระบุ ZZZZ-00000 จะเป็นอย่างไร?
     (Number จะต้องรันจากน้อยไปหามากครับ)
- No. ที่ตามหลัง ต้อง 5 หลักเสมอหรือไม่?
(ใช่ครับผม)

ประมาณนี้พอได้หรือเปล่าครับผม

ตอนนี้กำลังจะทำเหมือนกันเลยค่ะ สรุปว่า ได้โค๊ดแล้วหรือยังค่ะเนี่ย

ยังไม่ได้เลยครับผม
รอๆก่อนนะครับ
ผมก็พยามหาๆอยู่ครับ

สวัสดีครับ
กระผมรบกวนอาจารย์ด้วยครับ

Table Number1 ออกแบบผิดครับ
เพราะมีจุดที่ทำให้เกิดปัญหาได้
1) รหัสตัวอักษร ที่ start และ end ถ้าใส่มาไม่เหมือนกันจะจะทำอย่างไร
2) รหัสตัวเลข ของ end - start ถ้าไม่ตรงกับ unit จะทำอย่างไร

ที่ถูกควรเป็น
Table Number 1
No.      Code    Start No. UNIT
   1      JXLM        1        100
   2      JXKM     101        300

แต่เพื่อความสบายใจของผู้ใช้อาจแสดงตามทึ่คุณ แสดงไว้ข้างบนก็ได้ แต่ต้องตรวจสอบให้ถูกต้องตามที่ผมแนะให้

ถ้า Table Number 1 เป็นตามที่ผมออกแบบให้แล้ว
ให้ code ประมาณนี้ครับ

Unit = Number1.Unit
Code = Number1.Code
Start = Number1.Start
For Running = Start to Start + Unit
    RunNumber = Code & "-" & Format(Running, "00000")
    DoCmd.RunSQL "Insert Into Number2(RunNumber)" _
        & " Values('" & RunNumber & "')"
Next Running

เรียนอาจารย์ Pichai TC
ยังไม่ได้ครับ หรือว่าผมทำผิดอะไรสักอย่าง
ผมเอาโค๊ดที่อาจารย์เขียนให้ไปวางเลย
โดยที่ผมก็สร้าง Table=Number1,Number2
ตามที่แนะนำครับ พอรันก็จะฟ้องมี Bug ครับผม

Unit = Number1.Unit
Code = Number1.Code
Start = Number1.Start

รบกวนอาจารย์อีกครั้งครับ

Unit = Number1.Unit
Code = Number1.Code
Start = Number1.Start
ตรงนี้ผมสมมติเฉยๆ ครับ คุณต้องไปปรับตามจริงเองครับ

เช่น ถ้าคุณใช้ form bound กับ table โดยตรงอาจเขียนแบบนี้ครับ
Unit = Me!Unit

ขอบคุณมากครับอาจารย์
ผมขอทดสอบก่อนนะครับ
แล้วจะแจ้งให้ทราบนะครับ

ผมทำไว้ใกล้เคียงเอาไป ประยุกต์น่าจะได้ครับ

http://access.crtrading.net/webboard/view2009.aspx?id=1223