วินโด xp เหมือนกันคับ

ออฟฟิส 2003 เหมือนกัน

แต่เวลาเปิดใช้งาน ตัวโปรแกรมที่ผมทำ มันก็ทำงานไปปกติ

แต่พอผม copy ไปวางที่เครื่องอื่นให้เขาใช้

เวลาเรา รัน จะมีข้อความแจ้งประมาณว่า คุณจะอัพเดท นะ จะบันทึกเพิ่มนะ

อะไรประมาณนี้ครับ

นี่เป็นตัวอย่าง code ที่ผมใส่ไว้คับ

ปล. code อาจ จะไม่สวยงาม ดูพื้นๆนะคับเพราะผมพึ่งเริ่มหัดทำ code ส่วนมากผมอาศัยอ่าน และcopy จากในเวบ นี้เอาคับ

Private Sub Command61_Click()
On Error GoTo Err_Command61_Click

    Dim stDocName As String

    stDocName = "qAddCard"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Me.Refresh
    stDocName = "qUpQtyBal"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Me.Refresh
Me.Text3.Value = 0
Me.Text4.Value = 0
Me.Text2.SetFocus
Me.Text1.Value = ""
Exit_Command61_Click:
    Exit Sub

Err_Command61_Click:
    MsgBox Err.Description
    Resume Exit_Command61_Click
    
End Sub