ตัวอย่าง Me.Recalc หรือ Me.???.Requery ผมจะสั่งให้มันทำงานเมื่อทำอะไรสักอย่างก่อน(ผมใช้ Me. นำหน้า)

Private Sub Cus_ID_Click()
        Cus_Tax_ID.Value = Cus_ID.Column(9)
        Cus_Name.Value = Cus_ID.Column(1)
        Cus_addess.Value = Cus_ID.Column(2) & "  " & Cus_ID.Column(3) & Cus_ID.Column(4) & "  " & Cus_ID.Column(5) & "  " & Cus_ID.Column(6) & Cus_ID.Column(7) & "  " & Cus_ID.Column(8) '& "."
        Cus_Note2.Value = Cus_ID.Column(10)
        Percent.Value = Cus_ID.Column(11)
        Me.F_Bill_v7_Item.Form.T902 = Me.Percent
    Me.Recalc
End Sub
Private Sub Cus_ID_AfterUpdate()
    Me.Cus_ID = Format(Me.Cus_ID.Value, "00000")
    Me.Recalc
End Sub
Private Sub Cus_ID_Enter()
    Me.Cus_ID = Format(Me.Cus_ID.Value, "00000")
    Me.Recalc
End Sub
Private Sub Ang1_GotFocus()
    Me.Ang1.Requery
End Sub
Private Sub Ang2_GotFocus()
    Me.Ang2.Requery
End Sub
Private Sub Ang3_GotFocus()
    Me.Ang3.Requery
End Sub
Private Sub Ang4_GotFocus()
    Me.Ang4.Requery
End Sub
Private Sub Ang5_GotFocus()
    Me.Ang5.Requery
End Sub
Private Sub Ang6_GotFocus()
    Me.Ang6.Requery
End Sub


Module  Write_TFB
Function PathFile() As String
PathFile = "C:\HP\"
End Function

Sub Write_TFB()
 '*************** dim TextHeader
Dim H_Prefix As String
Dim H_Contract_No As String
Set strm = CreateObject("ADODB.Stream")

'dbConnect.dbConnect     '<--- เครื่องผม Error เลยปิดใว้

H_Prefix = "H"
H_Contract_No = Format(Forms!Form1!Text0, "0000000000")

With strm
   .Open
   .Type = 2
   .Charset = "UTF-8"
   .WriteText H_Prefix & H_Contract_No
   .SaveToFile PathFile & "HP_" & ".txt", 2
   .Close
End With

MsgBox "Gen Text Complete :)"

End Sub

---

Code ในปุ่ม
Call Write_TFB
    MsgBox "finish"
'-------------------------

จัดไปตามนั้นครับ
เพราะการที่จะให้โปรแกรมหนึ่งไปสั่งปิดโปรแกรมอื่นนั้นโดยปรกติก็ไม่สามารถที่จะทำได้ครับ(ยกเว้นสั่งปิดเครื่อง )

เอาไปลองดูครับ
 
หมายเหตุ รายการปีและเดือนที่ให้คลิกเลือกอยู่ในตาราง / เครื่องผมใช้ปีเป็น ค.ศ. เครื่องที่ท่านนำไปใช้เป็นแบบไหน/มีปีอะไรให้เลือกบ้างก็แก้ให้ตรงกับของท่านครับ

---

https://support.microsoft.com/th-th/topic/ฟังก์ชันสำหรับการคำนวณและการแสดงค่า-วันที่-เวลา-ใน-access-3c1cdb15-aa0e-8575-ca91-1b2c0b6c7d94

ผม Setup windows ใหม่ และ ติดตั้ง microsoft office ตัวใหม่ครับ office 2021 แล้ว barcode มันอ่านออกมาแบบนี้ึครับ

แนวเหมือนล้างเครื่องล้างข้อมูลใหม่แล้วไม่ได้ลง font barcode ตัวนั้นหรือเปล่าครับนี่

ถ้าคิดจะทำเหมือนกับ Autonumber คือ 1,2,3,4,... ก็ใช้มันไปไม่ต้องคิดอะไร
แต่ถ้าจะแบบว่ามีตัวหนังสือหรือปีเดือนวันมาเกี่ยวข้องหาดูการทำ running number มีเยอะมากครับ

ตัวอย่าง
https://www.thai-access.com/index.php?topic=416.msg1892#msg1892
https://www.thai-access.com/index.php?topic=1006.msg4419#msg4419

แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

วิธีแก้ให้สีไม่สลับกันคือตั้งค่า Alternate Back Color = No Color ตามรูปตัวอย่างครับ

ของท่านกดที่"ส่วนรายละเอียด"จะตั้งค่าได้ครับว่าสี1/สี2จะเอาสีไหนหรือไม่เอาสีอะไรเลยก็ได้ครับ

แจกโปรแกรมเก็บข้อมูลการเบิกจ่ายสต็อก Version 9 (ทั้งรุ่นปกติและบาร์โค้ด)
สนใจส่งข้อความหา อ.OddyWriter ครับ