ขอสอบถามเรื่องการอัพเดทข้อมูลครับ

[nainumgame]

ขอโทษที่ตอบช้าครับ
Short Date และ Long Date

[สันติสุข]

แก้อีกทีครับ

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

ปล. เชื่อผมเถอะ เปลี่ยนระบบจาก พ.ศ. เป็น ค.ศ.

[pizza_p]

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 เก็บข้อมูลวันที่เป็นตัวเลขมาตราฐานเดียวทุกเครื่อง ให้มองวันนี้ในฐานข้อมูลเป็นตัวเลขแล้วอะไรจะง่ายขึ้น

[nainumgame]

ขอบคุณครับคุณ pizza_p
ผมลองก๊อปปี้โค้ด ไปทำแล้วมันเกิด error ครับ



ไม่ทราบว่าเกิดจากอะไร ช่วยดูให้หน่อยน่ะครับ
ขอบคุณครับ

[nainumgame]

ได้แล้วครับ ใช้โค้ดตามนี้ครับ
ขอบคุณอาจารย์สันติสุข และอาจารย์pizza_p ด้วยน่ะครับ

โค๊ด: [Select]

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 & ")", dbFailOnError
  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