เวลาบันทึกข้อมูล เมื่อเริ่มต้นใส่ เลขที่บิล ข้อมูลทุกฟิลด์จะไม่มีเพราะเลขที่บิลเปลี่ยน  เมื่อใส่เลขที่ใหม่ การบันทึกข้อมูลแต่ละฟิลด์  มีหลายๆๆฟิลด์เป็นข้อมูลซ้ำจาก record เก่าที่พึ่ง save ผมจะเขียนอย่างไร เมื่อคลิกเม้าส์ ไปแต่ละฟิลด์ที่ใช้ข้อความเดิมจาก record ที่แล้วได้ ช่วยลดเวลาป้อนข้อมูล  ต้อนนี้ผมใช้ software ประเภท macro maker มาใช้งานร่วม ตอนนี้กลัวไวรัสที่ติดมากับ software อยากจะเลิกใช้ software macro maker ครับ

มีตาราง voucher_sale สร้างฟอร์มรับข้อมูล เมื่อกดบันทึกและ และexit จะใช้คำสั่ง Insert INTO เพื่อส่งข้อมูลฟิลด์ที่เกี่ยวข้องไปไว้ในตารางต่างๆๆ แต่ปัญหาคือเมื่อมีการแก้ไขข้อมูลเน่องจากป้อนผิด เราควรใช้คำสั่งอะไรดีครับ ถ้าไม่ใช่คำสั่ง INSERT INTO (อยากจะให้ไปทับของเก่า ไม่ว่าข้อมูลเก่าจะูกแล้ว หรือผิดแต่แก้ไขแล้ว)

สร้างปุ่ม command ไว้ที่ toolbar กด click แสดง report_bill ทั้ง ต้นฉบับ กับสำเนา(เพราะไม่ได้ printer หัวเข็มจึงต้องพิมพ์ที่2บิล)

ปกติเมื่อป้อนข้อมูลแต่ละวัน เลขที่บิลจะ auto running เป็น IV62-04-21-01 บิลต่อไปเป็น 02  03 ...ถ้าป้อนในวันเดียวกัน ครับ  แต่ถ้าวันนี้ต้องการกลับไปป้อนเอกสารย้อนหลังเป็นวันที่ 5 เมษายน ประมาณ 10 บิล ต้องการให้เลขที่บิล กลับไป running  IV62-04-05-01  ...02...03 ผมจะต้องแก้ตรงไหนครับ

Private Sub Text185_DblClick(Cancel As Integer)
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String


strDate = "IV" & "" & (Format(DATE, "yy-mm-dd"))

If Me.voucher_s_id = "" Or IsNull(Me.voucher_s_id) Then
        If IsNull(DMax("Val(Mid([voucher_s_id],10))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")) Then
            Me.voucher_s_id = strDate & "-" & "01"
            Debug.Print "1"
        Else
            intMax = DMax("Val(Mid([voucher_s_Id],12))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")
            intMax = intMax + 1
            Me.voucher_s_id = strDate & "-" & Format(intMax, "00")
            Debug.Print "1"
        End If

End If

End Sub

Private Sub Text185_Enter()
'Private Sub bill_no_Enter()
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String


strDate = "IV" & "" & (Format(DATE, "yy-mm-dd"))

If Me.voucher_s_id = "" Or IsNull(Me.voucher_s_id) Then
        If IsNull(DMax("Val(Mid([voucher_s_id],10))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")) Then
            Me.voucher_s_id = strDate & "-" & "01"
            Debug.Print "1"
        Else
            intMax = DMax("Val(Mid([voucher_s_Id],10))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")
            intMax = intMax + 1
            Me.voucher_s_id = strDate & "-" & Format(intMax, "00")
            Debug.Print "1"
        End If

End If

End Sub