แก้อีกทีครับ
If MsgBox("คุณต้องการบันทึกยอดขาย ใช่ หรือ ไม่", vbInformation + vbYesNo, "แจ้งเตือน") = vbYes Then
If CurrentDb.OpenRecordset("SELECT * FROM Report_Sale WHERE R_DATE = #" & Format(DateAdd("yyyy", -543, Me.Date_Re),"mm/dd/yyyy") & "#").EOF Then
CurrentDb.Execute "INSERT INTO Report_Sale(R_DATE, R_PRICE, R_SALE,R_CARD,R_CREDIT,R_IN_CREDIT,R_GP) " & _
"VALUES (#" & Format(DateAdd("yyyy", -543, Me.Date_Re),"mm/dd/yyyy") & "#, " & Me.t01 & ", " & Me.t02 & ", " & Me.t03 & ", " & Me.t04 & ", " & Me.t05 & ", " & Me.t06 & ")", dbFailOnError
Else
CurrentDb.Execute "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 = #" & Format(DateAdd("yyyy", -543, Me.Date_Re),"mm/dd/yyyy") & "#", dbFailOnError
End If
End If
ปล. เชื่อผมเถอะ เปลี่ยนระบบจาก พ.ศ. เป็น ค.ศ.