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

[ingfahm59]

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 แบบข้างต้นต้องแก้ไขอย่างไรคะ

[OddyWriter]

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 ได้

[ingfahm59]

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 ได้

ขอบคุณค่ะ ทำได้แล้วค่ะ

[ingfahm59]

ขอสอบถามอีกนิดค่ะ

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 ซ้ำ ต้องแก้ไขอย่างไรคะ

[OddyWriter]

แสดงว่าเงื่อนไขผิดครับ ต้องหาเองว่าผิดตรงไหน

[OddyWriter]

จากตรงนี้

If Me.txt0 <> "" Then

มีเหตุการณ์เดียวที่จะทำ Else คือต้อง = "" หรือ ZWS นะครับ (เท่าที่นึกออก)

[ingfahm59]

ทำได้แล้วค่ะ ขอบคุณค่ะ
แต่แก้ไขโดยการ เพิ่มคำสั่ง Dcount ค่ะ
If DCount("tb_slidenum", "tbl_slide", "tb_slidenum='" & Me.txt0 & "'") = 0