สร้าง Module ขึ้นมาแล้วเอาฟังก์ชั่นนี้ไปใส่
Public Function FormatLocation(stLocation As String, zone_or_id As Byte) As String
Dim splitText() As String, nPart As Integer, stResult As String

splitText = Split(stLocation, "-")
nPart = UBound(splitText)
stResult = ""
If zone_or_id = 1 Then
    stResult = splitText(0)
Else
    If nPart > 0 Then
        For i = 1 To nPart
            stResult = stResult & Format(splitText(i), "000")
        Next i
    Else
        stResult = "00000000"
    End If
End If
FormatLocation = stResult

End Function
เสร็จแล้วก็สามารถใช้ Query แบบนี้ได้
SELECT Location, FormatLocation([Location],1) AS Zone, FormatLocation([Location],2) AS ID FROM tblName;

SELECT ชื่อตาราง.* FROM ชื่อตาราง WHERE ที่อยู่ Is Not Null AND ที่อยู่ <> ""

Docmd.RunSQL "DELETE POD.* FROM POD WHERE POD.PONumber = '" & Me.PONumber & "'"

DoCmd.RunSQL "DELETE tblName.* FROM tblName WHERE [MemberCode]=" & MySearch!MemberCode & " AND tblName.[Date]=" & CDbl(MySearch!MaxOfDate)

แก้ชือตารางให้ตรงด้วยนะครับ

Private Sub Delete_Last()
Dim MySearch As Recordset

Set MySearch = CurrentDb.OpenRecordset("SELECT tblName.MemberCode, Count(*) AS CountRec, Max(tblName.Date) AS MaxOfDate FROM tblName GROUP BY tblName.MemberCode HAVING (Count(*))>1;")
If MySearch.RecordCount > 0 Then
    MySearch.MoveFirst
    Do While Not MySearch.EOF
        DoCmd.RunSQL "DELETE tblName.* FROM tblName WHERE [MemberCode]='" & MySearch!MemberCode & "' AND [Date]=" & CDbl(MySearch!MaxOfDate)
        MySearch.MoveNext
    Loop
End If

MySearch.Close
Set MySearch = Nothing
   
End Sub

textbox  ได้ค่าผลรวมมาตอนไหน ก็กำหนดให้ Me.[ฟิลด์รวมเงินสุทธิ] = ค่านั้น แค่นี้แหละครับ ถ้าจะเซฟลงตารางเลย ก็ใส่คำสั่ง Me.Dirty = False เพิ่มต่อไปแค่นั้น

Import Excel เข้ามาก่อน เอาไปไว้ที่ตารางชั่วคราวที่เรากำหนด แล้วก็ Query ข้อมูลให้เป็นอย่างที่เราต้องการครับ

ใช้ Option Group Control แทน check box ครับแล้ว bound ไปที่ Tx1 มันสามารถตั้งค่าได้ว่าให้ Option แต่ละตัวมีค่าเป็น 1 หรือ 2 แล้วตรง AfterUpdate Event ก็กำหนดให้

Private Sub Tx1_AfterUpdate()
 If Me.Tx1 = 1 then
   Me.Ch1 = True
   Me.Ch2 = False
 Else
   Me.Ch1 = False
   Me.Ch2 = True
 End If
End Sub

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

If MsgBox("คุณต้องการบันทึกยอดขาย ใช่ หรือ ไม่", vbInformation + vbYesNo, "แจ้งเตือน") = vbYes Then
  If IsNull(DLookup("R_DATE", "Report_Sale", "[R_DATE] = " & CDbl(Me.Date_Re)) Then
   Docmd.RunSQL "INSERT INTO Report_Sale(R_DATE, R_PRICE, R_SALE,R_CARD,R_CREDIT,R_IN_CREDIT,R_GP) " & _
    "VALUES " & CDbl(Me.Date_Re) & ", " & Me.t01 & ", " & Me.t02 & ", " & Me.t03 & ", " & Me.t04 & ", " & Me.t05 & ", " & Me.t06
  Else
   Docmd.RunSQL "UPDATE Report_Sale SET R_Price = " & Me.t01 & ",R_SALE = " & Me.t02 & ", R_CARD = " & Me.t03 & ", R_CREDIT= " & Me.t04 & ", R_IN_CREDIT = " & Me.t05 & ", R_GP = " & Me.t06 & " WHERE R_DATE = " & CDbl(Me.Date_Re)
  End If
End If

ไม่ต้องแก้ format วันที่อะไรทั้งนั้น ย้ายเครื่องทำงานได้ทุกเครื่อง MS Access เก็บข้อมูลวันที่เป็นตัวเลขมาตราฐานเดียวทุกเครื่อง ให้มองวันนี้ในฐานข้อมูลเป็นตัวเลขแล้วอะไรจะง่ายขึ้น