อยากให้่ข้อมูลอัพเดตตามเงือนไขโดยอ้างอิง ข้อมูลใน Textbox


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

24 มี.ค. 65 , 23:28:12
อ่าน 418 ครั้ง

nawahovvp

อยากให้่ข้อมูลอัพเดตตามเงือนไขโดยอ้างอิง ข้อมูลใน Textbox
เมื่อข้อมูลกรองเงือนไขตาม Combo box แล้ว ใส่ข้อมุลใน textbox Code update แล้วให้ฟิล timecount ที่มีข้อมูลตรงกับ Code update เปลี่ยนเป็น วันทีเวลาล่าสุด now() และ Status ติ๊กถูกหรือมีค่า -1
แล้วมาเมื่ออัพเดตแล้วก็กลับมา Setfocus ที่ textbox Code update พร้อมลบข้อมุลเก่า รบกวนอาจารย์ด้วยครับ


 

25 มี.ค. 65 , 09:12:25
ตอบกลับ #1

PNR

ใช้การสร้างคิวรี่ Update และสร้างปุ่ม หรือจะใช้ Event อื่นๆ ในการเรียกใช้การอัพเดทก็ได้ครับ
Time to stop for me  :dizzy:
 

25 มี.ค. 65 , 14:29:51
ตอบกลับ #2

nawahovvp

อาจารย์ครับ กรณี textbox code update มีค่าไม่ตรงกับข้อมูลสามารถ Msgbox แจ้งเตือนได้ไหมครับ

Private Sub Command11_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "UpdateQuery"
DoCmd.SetWarnings True
Forms!form1![Datasubform].Requery
Me.txtcodeupdate.SetFocus
Me.txtcodeupdate = Null
End Sub

 

25 มี.ค. 65 , 15:07:01
ตอบกลับ #3

PNR

Private Sub Command11_Click()
if DCount("*", "DATAs", "Code = " & [Forms]![Form1]![txtcodeupdate] & " and employee = '" & [Forms]![Form1]![txtEmployee] & "' and Location = '" & [Forms]![Form1]![txtLocation] & "'") = 0 Then
Me.txtcodeupdate.SetFocus
Me.txtcodeupdate = Null
MsgBox "ใส่ข้อความแจ้งเตือน!!", vbInformation, "แจ้งเตือน"
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "UpdateQuery"
DoCmd.SetWarnings True
Forms!Form1![Datasubform].Requery
Me.txtcodeupdate.SetFocus
Me.txtcodeupdate = Null
End If
End Sub
« แก้ไขครั้งสุดท้าย: 25 มี.ค. 65 , 15:12:11 โดย PNR »
Time to stop for me  :dizzy:
 

25 มี.ค. 65 , 17:32:42
ตอบกลับ #4

nawahovvp

ได้แล้วครับขอบคุณมากครับ

 


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