เพราะโจทย์มันไม่ละเอียดเลยตอบยาก
1.ไม่รู้ว่าตรง รวมวันลา ใช้การพิมพ์เอง หรือ เกิดจากการเลือกวันที่
2. วันที่ลา ที่ระบุถ้าหลายวัน จะติ๊กครึ่งวันได้รึป่าว
 แต่จากที่ดูรูป ครึ่งวันส่วนใหญ่ เป็นวันที่ ถึง วันเดียวกัน
 ผมจะใช้ AfterUpdate ถ้าคลิกที่ครึ่งวัน จะให้รวมวันลา = 0.5

จะให้ง่ายกว่านี้ส่งโปรแกรมมาเลย

สืบเนื่องจากกระทู้ https://www.thai-access.com/index.php?topic=2233.0

เลยเอามาถามแทน เผื่อคนเอาไปใช้ได้เยอะเลย


ในการทำทะเบียนครุภัณฑ์ ส่วนใหญ่เราก็ใช้วิธีคำนวนกันเป็นรายปี เมื่อสิ้นปีงบประมาณ (30 ก.ย.)
เราก็จะคำนวนโดยใช้ Query Append ข้อมูลค่าเสื่อมตามที่คำนวนไปเก็บในตารางในแต่ละปี
แต่ในกระทู้นั้นเหมือนเก็บข้อมูลทุกปี ไม่ใช้ใช้เฉพาะปีปัจจุบัน ผมเลยออกแบบวิธีการคิดค่าเสื่อมดังนี้


-คิดค่าเสื่อมเป็นรายวัน โดยเริ่มคิดตั้งแต่ปี 2560 และราคาต้องเกิน 10,000 บาท
-เมื่อหมดอายุการใช่งาน ให้เหลือไว้ 1 บาท โดยไม่ต้องนำมาคำนวนอีก
-DEPRECIA เป็นตารางที่บันทึกครุภัณฑ์
-DEPRECPROCESS ไว้รับข้อมูลจากการคำนวน เอาไปเขียน Report ในภายหลัง
-ISSU เก็บรายการครุภัณฑ์ที่จำหน่ายแล้ว
เมื่อเปิดฟอร์ fProcess ขึ้นมา กดปุ่มคำนวนค่าเสื่อม (อันนี้ที่ทำไมเป็น)
ให้คำนวนค่าเสื่อมตั้งแต่ปี 2560 แล้วเอาไปใส่ในตาราง DEPRECPROCESS
จนถึงปีที่ระบุในฟอร์ม (30 ก.ย.2566)

ทำได้ครับ โดย เก็บเป็น Path แทน แล้วสั่งเปิดโดย FollowHyperlink ชื่อไฟล์ Path

อ้างจาก: Un ที่ 27 มิ.ย. 66 , 12:11:13

อ้างจาก: marut.navy ที่ 27 มิ.ย. 66 , 11:26:51

ตามแนวกรมบัญชีกลาง ครับ คิดแบบเส้นตรง ครับผม

เค้าก็คิดเป็นเส้นตรงทั้งนั้นแหละ มหาดไทยคิดเป็นวันแล้ว
จากคำถาม อ่านแล้วไม่รู้จะตอบยังงัยนะ

ไม่ทราบพอมีโค้ดเขียนป่าวครับผม

คำถามที่ถาม ผมไม่รู้จะตอบตรงไหนครับ เขียนโคตตรงไหน
ส่งรูปหน้ารายงานมา ก็ไม่รู้จะตอบยังงัยครับ

         Dim RetValue As Variant
                RetValue = MsgBox("กด Yes เมื่อต้องการปิด", vbOKCancel + vbDefaultButton2, "Un")
                Select Case RetValue
                    Case 1
                        DoCmd.close acForm, "ชื่อฟอร์ม"
                    Case Else
                        '''
                 End Select

ประมาณนี้ครับ

ถ้าเราเก็บไฟล์รูป (.Jpg) ใน Drive C โฟลเดอร์ pic โดยใช้เลข 13 หลักเป็นชื่อไฟล์
C:\pic\xxxxxxxxxxxx1.jpg
C:\pic\xxxxxxxxxxxx2.jpg
C:\pic\xxxxxxxxxxxx3.jpg
C:\pic\xxxxxxxxxxxx4.jpg
เราสร้างฟอร์มแบบต่อเนื่อง โดยในฟอร์มมี
1.กล่องข้อความ ชื่อ id_card แสดงเลข 13 หลัก จากตารางที่เก็บ
2.Image Object ชื่อ Image1
อยากให้เปิดฟอร์มา แล้วรูปที่เราเก็บไว้ใน Drive C โฟลเดอร์ pic
Show ใน Image Object ตามเลข 13 หลัก โดยถ้ามีรูปก็ขึ้นรูป
ถ้าไม่มีก็ไม่ต้องขึ้นรูป

ถ้าหมายถึง ตรงลายเซน ให้โปร่งใส ทำไม่ได้ครับ

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

ที่ฟอร์มที่บันทึกข้อมูล ใส่ Event ที่ AfterUpdate ตั้งแต่ field ที่ 1-11
     Me.field11="บันทึกข้อมูลแล้ว"