จากตรงนี้

If Me.txt0 <> "" Then

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

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

1. เปิด Properties ของ Query
2. กำหนด Unique Values = yes 

อาจต้องส่งตัวอย่างไฟล์มาให้หน่อยน่ะครับ สมาชิกที่นี่จะได้ดูให้ได้น่ะครับ

บางใช้ IsNull หรือแทนที่จะใช้ "1" ก็ใช้เป็น 1 แทน อะไรงี้ ก็หายครับ เลยต้องดูข้อมูลประกอบ

ตัวอย่าง Code ครับ

Private Sub Form_Resize()
   Me.Command0.Left = (Me.InsideWidth - Me.Command0.Width) / 2
End Sub

อย่างที่บอกไงครับ ไม่ใช่ Before Update จะทำได้หมด

คราวนี้ก็ต้องมาดูว่าคุณจะ Update ตอนไหน ก็ไปดักหน้าเก็บข้อมูลเข้าตารางก่อน ซึ่งผมก็บอกไม่ได้ว่าต้องทำอย่างไร เพราะต้องดู Process Flow แล้วหาจุดดักเก็บข้อมูล เช่น

เปิดฟอร์มมาก็เก็บข้อมูลเข้าตัวแปรเอาไว้ก่อน
พอจะทำการแก้ไขข้อมูล ก็อาจสร้างปุ่มเพื่อเก็บข้อมูลก่อนการแก้ไข โดยบังคับว่าถ้าไม่คลิกปุ่มนี้ก็จะแก้ไขข้อมูลไม่ได้ อะไรงี้

สรุปคือคุณต้อง Tricker Point ให้เจอก่อนครับ ถ้าหาไม่เจอก็สร้างมันขึ้นมา

มันมีหลายเงื่อนไขนะครับ
1. ถ้ารูปเล็กไป (Pixel น้อย หรือ Resolution ต่ำ) ก็ไม่ชัด
2. Printer ถ้าเป็น Ink Jet ก็ชัดสู้ Laser ไม่ได้
3. Epson ก็จะให้สีจางกว่า HP

เท่าที่เจอมากับตัวเอง

งั้นก็ใช้คิวรีครับ