สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม

[ชวลิต เสนะสุทธิ]

สอบถามการ Copy ข้อความ ในกล่องข้อความ แล้วให้วางลงที่เดิม

เช่น กล่องข้อความเราวางข้อมูลลงไปแล้ว หลังจากอัพเดทให้นำข้อความนั้นมาวางลงอีกครั้งอัตโนมัติ

[UnKnown]

ที่บอกว่า"หลังจากอัพเดท"นั้นคือการขึ้นข้อมูลใหม่ใช่หรือไม่ครับ ผมขอตอบเป็นแนวทางดังนี้
1.กล่องข้อความมีแค่อันเดียว เขียนคำสั่งให้ก่อนอัพเดท Copy to Clipboard แล้วหลังอัพเดทก็ Paste from Clipboard to Textbox
VBA Copy to Clipboard, Paste and Clear - wellsr.com
2.มีกล่องข้อความหลายกล่อง ทำตารางใว้เก็บข้อความจาก Textbox ต่างๆแล้วหลังอัพเดทก็สั่งให้ดึงข้อความจากในตารางที่มีมาใส่ในกล่องข้อความ(แนวทาง)

[ชวลิต เสนะสุทธิ]

มีวิธีอย่างไรครับ หรือ โค้ดในการรันครับ

[UnKnown]

[ชวลิต เสนะสุทธิ]

จากที่ดู VDO ต้องสร้างปุ่มครับ แต่ผมลองไปทำแล้วก่ไม่ได้ครับ อยากได้แบบไม่ต้องสร้างปุ่มครับ

[PNR]

สร้างตัวแปรขึ้นมา 1 ตัวไว้บนสุดของคำสั่งบันทึก
เช่น dim strTAG as string
strTAG = me.tagIMM
.....โค้ดต่างๆที่มี......เช่น
Docmd.save
Docmd.gotorecord,,acnewrec
และจบท้ายคำสั่งด้วย
Me.tagIMM = strTAG


วิธีนี้เป็นการสร้างตัวแปรมาเก็บข้อมูลจาก text box ที่เราต้องการไว้ชั่วคราวและก็หลังจากนั้นก็เรียกกลับมาแสดงอีกครั้งได้ครับ เราแค่ลำดับเหตุการณ์การทำงานของคำสั่งที่เราเขียนไว้แค่นั้นเอง

[ชวลิต เสนะสุทธิ]

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

[ชวลิต เสนะสุทธิ]

มาเจอปัญหาหลังจากใช้โค้ดครับ คือ โปรแกรมสามารถเปิดใช้งานได้เครื่องเดียวครับ ไม่สามารถเปิดมากกว่า 1 ได้ครับ

[PNR]

มาเจอปัญหาหลังจากใช้โค้ดครับ คือ โปรแกรมสามารถเปิดใช้งานได้เครื่องเดียวครับ ไม่สามารถเปิดมากกว่า 1 ได้ครับ

ไม่น่าจะเกี่ยวกันครับ

ขอดูโค้ดทั้งหมด ของชุดคำสั่งนั้นหน่อย

[ชวลิต เสนะสุทธิ]

Private Sub Barcode_PCB_AfterUpdate()
 Dim strTAG as string
 Dim wisroot As String
  Dim str1 As String
 
  strTAG = me.[TAG IMM]
  wisroot = Me.[Barcode PCB].Value
  str1 = "[Barcode PCB]=" & "'" & wisroot & "'"
 
  If Me.[Barcode PCB] = DLookup("[Barcode PCB]", "dbo_ZHJ01", str1) Then
  MsgBox "ข้อมูลซ้ำกัน"
  Me.Undo
  Else
    End If
Docmd.save
Docmd.gotorecord,,acnewrec
Me.[TAG IMM] = strTAG
End Sub