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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

10 มี.ค. 61 , 19:56:34
ตอบกลับ #16

nainumgame

  • สมาชิกไท.Access
  • กระทู้: 13

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

> ขอสอบถามเรื่องการอัพเดทข้อมูลครับ
« ตอบกลับ #16 เมื่อ: 10 มี.ค. 61 , 19:56:34 »
ขอโทษที่ตอบช้าครับ
Short Date และ Long Date


 

10 มี.ค. 61 , 22:16:36
ตอบกลับ #17

สันติสุข

> ขอสอบถามเรื่องการอัพเดทข้อมูลครับ
« ตอบกลับ #17 เมื่อ: 10 มี.ค. 61 , 22:16:36 »
แก้อีกทีครับ

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

ปล. เชื่อผมเถอะ เปลี่ยนระบบจาก พ.ศ. เป็น ค.ศ.
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 

11 มี.ค. 61 , 12:19:36
ตอบกลับ #18

pizza_p

> ขอสอบถามเรื่องการอัพเดทข้อมูลครับ
« ตอบกลับ #18 เมื่อ: 11 มี.ค. 61 , 12:19:36 »
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 เก็บข้อมูลวันที่เป็นตัวเลขมาตราฐานเดียวทุกเครื่อง ให้มองวันนี้ในฐานข้อมูลเป็นตัวเลขแล้วอะไรจะง่ายขึ้น

 

12 มี.ค. 61 , 16:00:15
ตอบกลับ #19

nainumgame

  • สมาชิกไท.Access
  • กระทู้: 13

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

> ขอสอบถามเรื่องการอัพเดทข้อมูลครับ
« ตอบกลับ #19 เมื่อ: 12 มี.ค. 61 , 16:00:15 »
ขอบคุณครับคุณ pizza_p
ผมลองก๊อปปี้โค้ด ไปทำแล้วมันเกิด error ครับ



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

 

12 มี.ค. 61 , 16:22:25
ตอบกลับ #20

nainumgame

  • สมาชิกไท.Access
  • กระทู้: 13

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

> ขอสอบถามเรื่องการอัพเดทข้อมูลครับ
« ตอบกลับ #20 เมื่อ: 12 มี.ค. 61 , 16:22:25 »
ได้แล้วครับ ใช้โค้ดตามนี้ครับ
ขอบคุณอาจารย์สันติสุข และอาจารย์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


 


บอร์ดเรียนรู้ Access สำหรับคนไทย