แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
1. ข้อมูลแบบนี้ต้องมี MovementID ร่วมด้วย
2. "วันแรกที่รับเข้า เรคคอดแรกของโปรแกรม มันจะคิดรวมยังงัย" ขึ้นอยู่กับเงื่อนไขการรับเข้าครับ ถ้าจะไม่ให้มารวม ก็ใส่เป็น 0 แทนที่จะเป็น 1 หรือ -1
3. การเขียน Code ก็ดีนะครับ แต่ปัญหาคือมันทำงานช้ากว่า Query ครับ ผมเคยเขียน Code Loop 10,000 รอบ สำหรับข้อมูล 10,000 เรคอร์ด กว่าจะทำงานเสร็จ สุดท้ายใช้ Query ซ้อน Query เร็วกว่ากันเยอะ (กดปุ๊บ ได้ปั๊บ)
ลองแบบที่อาจารย์ OddyWriter บอกดีกว่าครับ ผมก็คิดอยากจะทำกับคิวรี่แต่คิดวิธีไม่ออกครับผมเข้าใจว่าใช้โคตมันจะดีกว่า แต่ก็ยังอยากได้โคตอยู่นะครับ มันเอามาดัดแปลงทำอะไรได้เยอะ
เมื่อมีแนวทางแล้ว เอาแบบที่ อาจารย์ OddyWriter แนะนำดีกว่าครับ เร็วกว่าจริงๆ
ถ้าใช้ 1 กับ 2 แบบนี้ เวลาทำ Total Query เพื่อหาผลรวม มันก็ทำได้นะครับ แต่จะยุ่งยากหน่อยๆ
แนะนำให้เปลี่ยนจาก 1 กับ 2 เป็น 1 กับ -1 แล้วเพิ่มคอลัมน์ ที่นำจำนวนมาคูณกับ 1 กับ -1
จากนั้นทำ Total Query จากค่าผลลัพธ์ที่ได้
อีกอย่าง "ตัวแปร" คือ Variable ส่วน "ตัวแปล" ก็ประมาณ "วุ้นแปลภาษาของโดเรมอน" ครับ
ถ้าใช้คิวรี่ยังคิดไม่ออกเอาสิครับอาจารย์ ได้เพิ่มความรู้ใหม่ด้วย
แต่ถ้าเป็นการ Loop check แล้วนำมาเพิ่มหรือหักลบกับค่าด้านบนเหมือนการรับยอดตัดยอดผมพอทำได้ครับ
วิธีการที่คิดได้ต้องสร้างตารางเพื่อแสดงผลครับ
เอาไหม ?
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
Dim RetValue As Variant, rst As String
RetValue = MsgBox("...ใส่เนื้อหาที่แจ้ง", vbYesNoCancel + vbDefaultButton3, "Un")
Select Case RetValue
Case 6 'yes
MsgBox "คำสั่งพิมพ์ข้อมูล", vbOKOnly, "Un"
Case 7 'No
rst = MsgBox("...เนื้อหาที่แจ้งขั้นที่ 2", vbYesNoCancel + vbDefaultButton3, "Un")
If rst = vbYes Then
MsgBox "คำสั่งพิมพ์ข้อมูล", vbOKOnly, "Un"
ElseIf rst = vbNo Then
MsgBox "ทำขั้นตอนที่2", vbOKOnly, "Un"
Else
Exit Sub
End If
Case 2 'Cancle
''''
End Select
Dim RetValue As Variant
RetValue = MsgBox("...ใส่เนื้อหาที่แจ้ง", vbYesNoCancel + vbDefaultButton3, "Un")
Select Case RetValue
Case 6 'yes
MsgBox "คำสั่งพิมพ์ข้อมูล", vbOKOnly, "Un"
Case 7 'No
MsgBox "ขั้นตอนต่อไป", vbOKOnly, "Un"
Case 2 'Cancle
''''
End Select
