ที่ไม่บอกเงื่อนไขให้หมด เพราะจริงๆ มีเงื่อนไขมากกว่านี้
คิดว่า เดี๋ยวจะมาดัดแปลงเองอีกที ไม่น่ายาก
แต่ดัดแปลงยังัย เลขมันเริ่มต้นที่ 0 ทุกที
ทั้งๆ ที่ดูในโคต มันก็กำหนดให้เป็น 1 เลยมาสังเกตุจาก
ที่โหลดมามีปุ่มลบข้อมูลด้วย จึงลบข้อมูลก่อน สรุปว่าได้เฉยยย
เลยเพิ่มคำสั่ง ให้ลบข้อมูลเก่าออกก่อน ค่อยเรียงลำดับ
สรุปว่าได้แล้วครับ แต่ก็ได้แบบ งงงง นิดนึง
ของพระคุณอาจารย์มากครับ น่ารักเสมอ /|\

เมื่อเราบันทึกข้อมูลลำดับต่างๆ ลงใบฐานข้อมูลของเราแล้ว
มีการแก้ไข เช่น เพิ่มเรคคอด ลบเรคคอด หรือแก้ไขวันที่บันทึก
ทำให้ข้อมูลลำดับที่บันทึกไว้นั้นเรียงผิด
ผมจึงอยากทำปุ่มไว้เรียงลำดับ โดยเมียเงื่อนไขดังนี้
-เรียงลำดับตามวันที่ ฟิล DateR
-เรคคอดแรก เท่ากับ 1
-วันที่เดียวกันเลขเดียวกัน เช่นวันที่ 2 ถ้าเป็นลำดับที่ 7 ก็เป็น 7 ทุกเรคคอด
-วันที่ถัดไป +1 ลำดับ
ฟิลดืี่บันทึกชื่อ SEQrec
ต้องเขียนโคตปุ่มยังงัยครับ
ขอบพระคุณอาจารย์ที่ช่วยครับ

1. ข้อมูลแบบนี้ต้องมี MovementID ร่วมด้วย
2. "วันแรกที่รับเข้า เรคคอดแรกของโปรแกรม มันจะคิดรวมยังงัย" ขึ้นอยู่กับเงื่อนไขการรับเข้าครับ ถ้าจะไม่ให้มารวม ก็ใส่เป็น 0 แทนที่จะเป็น 1 หรือ -1
3. การเขียน Code ก็ดีนะครับ แต่ปัญหาคือมันทำงานช้ากว่า Query ครับ ผมเคยเขียน Code Loop 10,000 รอบ สำหรับข้อมูล 10,000 เรคอร์ด กว่าจะทำงานเสร็จ สุดท้ายใช้ Query ซ้อน Query เร็วกว่ากันเยอะ (กดปุ๊บ ได้ปั๊บ)

ผมก็ไม่รู้ว่าอะไรดีกว่าอะไร ใช้ Running sum มานานคิดว่ามันช้า พอ อ.PRN บอกว่าจะเขียนโคตให้
เข้าใจว่ามันจะดีกว่า แล้วยังได้เรียนรู้วิธีใหม่ๆ ก็เลยอยากได้อยู่ครับ ช่วงที่รอ ก็ลองทำไปทำมาดู
สรุปว่าได้แล้ว ขอบคุณ อ.จารย์มากครับ

ลองแบบที่อาจารย์ OddyWriter บอกดีกว่าครับ ผมก็คิดอยากจะทำกับคิวรี่แต่คิดวิธีไม่ออกครับ
เมื่อมีแนวทางแล้ว เอาแบบที่ อาจารย์ OddyWriter แนะนำดีกว่าครับ เร็วกว่าจริงๆ

ผมเข้าใจว่าใช้โคตมันจะดีกว่า แต่ก็ยังอยากได้โคตอยู่นะครับ มันเอามาดัดแปลงทำอะไรได้เยอะ
ถ้า อาจารย์พอทำให้ได้ ยังอยากได้อยู่นะครับ ขอบคุณครับ

ถ้าใช้คิวรี่ยังคิดไม่ออก
แต่ถ้าเป็นการ Loop check แล้วนำมาเพิ่มหรือหักลบกับค่าด้านบนเหมือนการรับยอดตัดยอดผมพอทำได้ครับ
วิธีการที่คิดได้ต้องสร้างตารางเพื่อแสดงผลครับ
เอาไหม ?

เอาสิครับอาจารย์ ได้เพิ่มความรู้ใหม่ด้วย

เผื่อไม่เข้าใจที่ อ.PNR บอกนะครับ
ทำ Query ให้ใหม่ ชื่อ Query1
ทำ Report ให้ใหม่ ชื่อ Report

ไม่รู้ว่าต้องการทำอะไร แต่ถ้าจะใช้เป็นตัวกรองค้นหา มันก็มีหลายวิธี
แต่ในฐานข้อมูลที่แนบมา เค้าก็ไม่ค่อยทำแบบนั้นกันนะครับ

ช่วงระหว่างรออาจารย์ตอบ
ผมลองทำแบบที่อาจารย์บอกเลยครับ(เขียนโคตไม่เป็น)
โดยใช้ Dloookup Dcount Dmax ในคิวรีที่ทำขึ้น
ขั้นตอนที่ทำคือ สร้างคิวรีกำหนดค่าต่างๆ
เปิดฟอรมขึ้นมา เมื่อเลือก คอนโทลตามเงื่อนไข
มันจะไปอ่านค่าในคิวรี มาใส่ค่าให้ในตารางครับ

ตอนแรกคิดว่าไม่มีคนตอบ เลยค่อยๆ ทำไป สังเกตุเห็น
อาจารย์ ไม่มาตอบใครด้วย จึงคิดว่าอาจารย์ไม่ว่าง
เลยลองทำดูในแบบที่พอทำได้ แต่ก็อยากทำแบบเป็นโคต
ว่ามันจะเขียนยังงัยครับ เลยรออาจารย์มาตอบ

ขอบคุณมากๆ เลยครับ ใช่ตัวนี้เลยครับ

ฟังชันก์ IF มันไม่ยาก แต่มันจะดู งงงง
เนื่องจากมันมี 3 ตัวเลือก ยิ่ง งง ไปอีก
เวลาทำเราต้องทำเป็นชุดๆ
ชุดแรก มันจะมีตัวเลือกที่เมื่อเราเลือก NO
ก็เอาชุดที่ 2 ไปใส่ที่ NO ชุดต่อไปก็เหมือนกัน
แต่ที่คุณทำมันปนกันไปหมด อาจเพราะยังไม่เข้าใจ
ตัวรายงานที่ให้พิมพ์ ผมอาจจะเลือกผิดนะครับไปสลับกลับเอง

Dim RetValue As Variant, rst As String, rst2 As String
        RetValue = MsgBox("ต้องการพิมพ์ใบแสดงตนเพื่อลงบัญชีทหารทหารกองเกิน (แบบ สด.44) ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "Un")
        Select Case RetValue
                    Case 6 'yes
                            DoCmd.OpenReport "SD44", acViewprint, , "[ID]=[Forms]![history].[ID]"
                    Case 7 'No
                    rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน (แบบ สด.1) ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "Un")
                            If rst = vbYes Then
                                    DoCmd.OpenReport "SD1", acViewprint, , "[ID]=[Forms]![history].[ID]"
                            ElseIf rst = vbNo Then
                                    rst2 = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน ด้านหลัง ( แบบ สด.1)ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "Un")
                                            If rst2 = vbYes Then
                                                    DoCmd.OpenReport "SD1", acViewprint, , "[ID]=[Forms]![history].[ID]"
                                            ElseIf rst2 = vbNo Then
                                                    DoCmd.OpenForm "certificate"
                                            Else
                                                    Exit Sub
                                            End If
                            Else
                                    Exit Sub
                            End If
                    Case 2 'Cancle
                            ''''
        End Select