ดูที่ผมตอบในกระทู้ตามลิงค์นี้นะครับ พอเป็นแนวทางได้ครับ https://www.thai-access.com/index.php?topic=1322.0

ถ้าฟิลด์ Customer_ID มีประเภทข้อมูลเป็น Text  ต้องเขียนเป็น ... Customer_ID = '" & FromCustomerID & "'" ,dbFailOnError

หมายเหตุ : ถ้าคำสั่งเดิมถูกต้องแล้ว ยังไงก็ให้เติมส่วนสีแดงด้วย

เพิ่ม
Dim LastID As Long

1. (เหมือนเดิม)

เพิ่มบรรทัดคำสั่งข้างล่างนี้
LastID = CurrentDb.OpenRecordset("SELECT @@IDENTITY as ID")("ID")

2. และ 3. เปลี่ยน DMax("id","tbl_1") เป็น CStr(LastID)

มีสั่งรันแมโคร Autoexec หรือสั่งให้ฟอร์มทำงานทันทีเมื่อเข้า Access หรือไม่ ถ้ามี ก่อนเข้า Access ให้กดคีย์ SHIFT ค้างไว้จนกว่าหน้าต่างของ Access จะแสดงเรียบร้อยแล้ว แล้วลอง compile อีกครั้งครับ หรือถ้าโปรแกรมและข้อมูลไม่เป็นความลับ ลองโหลดขึ้นเวปบอร์ดนี้เพื่อให้ตรวจสอบครับ

ลอง compile แล้วดูว่ามีแจ้งที่ผิดที่ไหนในโค้ดหรือไม่ ถ้าไม่มี อาจเป็นไปได้ว่ามีการแก้ procedure ที่จุดไหนแล้วมีจำนวน/ประเภทของ argument ที่ส่งไป procedure นั้น แตกต่างจากเดิม

ผมคิดว่าจากสูตร ก็ตรงไปตรงมา ถ้า [limit_date]<[end_date] ค่าเสื่อมสะสมก็จะถูกหักออก 1   ทีนี้ก็อยู่ที่ว่าคุณป้อน limit_date กับ end_date เป็นอะไร  เห็นในโพสบอกว่า end_date เป็น 31/12/62 ซึ่งไม่น่าเป็นค่าวันที่ปัจจุบัน ดังนั้นก็น่าเป็นวันที่ป้อนเอาจากหน้าจอซึ่งมาจากคิวรี่อีกที ถ้าเป็นอย่างนั้น ใน Query Design View คุณจะเห็น Query Tools - Design - Parameters เมื่อคลิกแล้วจะเห็นหน้าต่าง Query Parameter ให้ใส่คอลัมน์ Parameter เป็นข้อความที่ปรากฏตอนถามบนหน้าจอ และคอลัมน์ Data Type เป็นประเภท Date/Time เพื่อให้ระบบรับรู้ว่าสิ่งที่เราใส่นั้นให้ตีความเป็นวันที่ ไม่อย่างงั้นมันจะตีความเป็น text เท่านั้น ซึ่งอาจทำให้นิพจน์ [limit_date]<[end_date] ตีความหมายผิดไปทุกครั้ง

ไม่ได้ไปดูรายละเอียดนะครับ แต่จะแนะนำว่าให้เลี่ยงการใช้ Round(N, D) เพราะเมื่อหลักต่อไปที่จะปัดเศษมีค่าเป็น 5 เขาจะไม่ปัดขึ้นเสมอไป เขาจะใช้วิธี Banker Rounding ซึ่งตามกฏจะปัดขึ้นหรือลงไปยังเลขคู่ที่ใกล้ที่สุด  เช่น Round(0.245, 2) ถ้าปัดขึ้นจะเป็น 0.25 แต่ปัดลงจะได้ 0.24 ดังนั้นเขาก็ปัดลงแทน จะได้เป็น 0.24  และ Round(0.235, 2) ก็จะได้ 0.24 เช่นกัน   แต่ Access ยิ่งมั่วไปกว่านั้นในค่าตัวเลขบางตัว เช่น Round(1.245, 2) ก็ควรจะเป็น 1.24 แต่กลับเป็น 1.25 ไปซะอย่างงั้น ซึ่งขัดกับ Banker Rounding ไปเสียอีก

ถ้าจะปัดเป็น 2 หลัก ให้ใช้เป็น CDec(Format(N, "0.00")) ดีกว่าครับ แต่ถ้าแสดงเฉยๆไม่ได้เอาไปคำนวน ก็ใช้แค่ Format(N, "0.00") ก็พอ

อีกอย่างที่ขอแนะนำคือ อย่าใช้ประเภทข้อมูล Number-Single หรือ Double เพราะจะเก็บค่าที่ไม่ตรงกับข้อมูล โดยจะมีผิดเพี้ยนในทศนิยมตำแหน่งหลังๆได้ ควรใช้ Number-Decimal แล้วกำหนด Scale property เป็นจำนวนทศนิยมที่ต้องการเก็บ จะทำให้การคำนวนตัวเลขที่มีทศนิยมได้ตรงตามความจริง

พึ่งคิดได้ว่าก็ใช้คำสั่งให้ทุกปุ่มที่มีซ่อนก่อนแล้วค่อยมาสั่งแสดงตามตัวเลขที่หลังอีกที 

โค๊ด: [Select]

Private Sub Text5_AfterUpdate()

Me.Command1.Visible = False
Me.Command2.Visible = False
Me.Command3.Visible = False
Me.Command4.Visible = False

GetNum = Me.Text5
    Select Case GetNum
        Case "1": Me.Command1.Visible = True
        Case "2": Me.Command2.Visible = True
        Case "3": Me.Command3.Visible = True
        Case "4": Me.Command4.Visible = True
    End Select
End Sub

โค้ดข้างบนสามารถลดรูปลงมาได้นะครับ พร้อมกับรองรับกรณี Text5 ไม่ได้เป็นตัวเลข

   Dim I   As Integer
   Dim J   As Integer

   If IsNumeric(Me.Text5) Then J = CInt(Me.Text5)
   For I = 1 to 12
      Me("command" & Cstr(I)).Enabled = (I = J)
   Next

แต่สงสัยว่าทำไมต้องทำ 12 ปุ่ม สร้างปุ่มเดียวแล้วพิจารณาการทำงานของโค้ดในปุ่มนั้นด้วยค่าจาก Text5 ไม่ง่ายกว่าหรือ ?

ผมไม่มีมอนิเตอร์ 2 จอ เลยทดสอบไม่ได้ว่าให้ผลจริงแค่ไหน แต่ถ้าจอเดียว ก็ให้กำหนด Popup property ของฟอร์มเป็น Yes ก่อน และใส่โค้ดนี้ไว้ใน OnLoad event procedure ของฟอร์ม

Private Sub Form_Load()
    DoCmd.MoveSize ซ้าย, บน
End Sub

โดยที่ซ้ายและบน คือความห่างจากขอบซ้ายและขอบบนของจอ มีหน่วยเป็น twips (เท่ากับ 567 * เซ็นติเมตร) ดังนั้นต้องหาเองว่าจอที่ 2 มีขอบซ้ายเป็นเท่าไหร่กันแน่