insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ


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

18 เม.ย. 66 , 12:04:11
อ่าน 358 ครั้ง

ingfahm59

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

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



Private Sub txt0_AfterUpdate()
Dim sql As Variant
If Me.txt0 <> "" Then
DoCmd.RunSQL ("Insert into tbl_slide (tb_slidenum) values ('" & Me.txt0 & "')")
Else
DoCmd.RunSQL ("update tbl_slide set tbl_slide.tb_timeout = Now(),tbl_slide.tb_status='Done' where tbl_slide.tb_slidenum  like'" & Me.txt0 & "'")
Me.tbl_slide_subform.Requery
End If
End Sub

อยากให้เมื่อใส่ข้อมูลลงในช่อง txt0 แล้ว ให้ไปเพิ่มข้อมูลใน ตาราง tbl slide แต่ขึ้น Error แบบข้างต้นต้องแก้ไขอย่างไรคะ
« แก้ไขครั้งสุดท้าย: 19 เม.ย. 66 , 08:58:02 โดย ingfahm59 »

 

18 เม.ย. 66 , 13:10:48
ตอบกลับ #1

OddyWriter

: insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« ตอบกลับ #1 เมื่อ: 18 เม.ย. 66 , 13:10:48 »
Private Sub txt0_AfterUpdate()
Dim sql As Variant
If Me.txt0 <> "" Then
DoCmd.RunSQL "Insert into tbl_slide (tb_slidenum) values ('test');"
Else
DoCmd.RunSQL "update tbl_slide set tbl_slide.tb_timeout = Now(),tbl_slide.tb_status='Done' where tbl_slide.tb_slidenum  like'" & Me.txt0 & "';"
Me.tbl_slide_subform.Requery
End If
End Sub


และ
ถ้ากำหนด Require เป็น Yes แต่ไม่ใส่ข้อมูล ก็ไม่สามารถ Append ได้

รับจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 
โพสต์นี้ได้รับคำขอบคุณจาก: ingfahm59

18 เม.ย. 66 , 14:02:44
ตอบกลับ #2

ingfahm59

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

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

: insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« ตอบกลับ #2 เมื่อ: 18 เม.ย. 66 , 14:02:44 »
Private Sub txt0_AfterUpdate()
Dim sql As Variant
If Me.txt0 <> "" Then
DoCmd.RunSQL "Insert into tbl_slide (tb_slidenum) values ('test');"
Else
DoCmd.RunSQL "update tbl_slide set tbl_slide.tb_timeout = Now(),tbl_slide.tb_status='Done' where tbl_slide.tb_slidenum  like'" & Me.txt0 & "';"
Me.tbl_slide_subform.Requery
End If
End Sub


และ
ถ้ากำหนด Require เป็น Yes แต่ไม่ใส่ข้อมูล ก็ไม่สามารถ Append ได้





ขอบคุณค่ะ ทำได้แล้วค่ะ
« แก้ไขครั้งสุดท้าย: 18 เม.ย. 66 , 14:59:19 โดย ingfahm59 »

 

18 เม.ย. 66 , 15:01:22
ตอบกลับ #3

ingfahm59

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

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

: insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« ตอบกลับ #3 เมื่อ: 18 เม.ย. 66 , 15:01:22 »
ขอสอบถามอีกนิดค่ะ

Private Sub txt0_AfterUpdate()
If Me.txt0 <> "" Then
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into tbl_slide(tb_labno,tb_slidenum,tb_qry,tb_timein,tb_status,tb_casetyp) values ('" & Me.txtlabno & "','" & Me.txt0 & "','1',Now(),'In process','HE')"
DoCmd.SetWarnings True
Me.tbl_slide_subform.Requery
Me.txt0.SetFocus
Me.txt0 = ""

Else

DoCmd.SetWarnings False
DoCmd.RunSQL "update tbl_slide set tbl_slide.tb_timeout = Now(),tbl_slide.tb_status='Done' where tbl_slide.tb_slidenum  like'" & Me.txt0 & "';"
DoCmd.SetWarnings True
Me.tbl_slide_subform.Requery
Me.txt0.SetFocus
Me.txt0 = ""

End If
End Sub

ตามโค้ด เมื่อลองรันดูแล้วปรากฎว่า โค้ดหลัง else ไม่ทำงานค่ะ แต่ไปเพิ่มข้อมูลรัน คำสั่ง insert to ซ้ำ ต้องแก้ไขอย่างไรคะ

 

18 เม.ย. 66 , 16:33:05
ตอบกลับ #4

OddyWriter

: insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« ตอบกลับ #4 เมื่อ: 18 เม.ย. 66 , 16:33:05 »
แสดงว่าเงื่อนไขผิดครับ ต้องหาเองว่าผิดตรงไหน
รับจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 
โพสต์นี้ได้รับคำขอบคุณจาก: ingfahm59

19 เม.ย. 66 , 11:12:22
ตอบกลับ #5

OddyWriter

: insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« ตอบกลับ #5 เมื่อ: 19 เม.ย. 66 , 11:12:22 »
จากตรงนี้

If Me.txt0 <> "" Then

มีเหตุการณ์เดียวที่จะทำ Else คือต้อง = "" หรือ ZWS นะครับ (เท่าที่นึกออก)
รับจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 
โพสต์นี้ได้รับคำขอบคุณจาก: ingfahm59

19 เม.ย. 66 , 15:06:14
ตอบกลับ #6

ingfahm59

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

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

: insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« ตอบกลับ #6 เมื่อ: 19 เม.ย. 66 , 15:06:14 »
ทำได้แล้วค่ะ ขอบคุณค่ะ
แต่แก้ไขโดยการ เพิ่มคำสั่ง Dcount ค่ะ
If DCount("tb_slidenum", "tbl_slide", "tb_slidenum='" & Me.txt0 & "'") = 0



 


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


 

Sitemap 1 2 3 4 5