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


Dim strSQL As String
Dim strSQL2 As String
Dim LResponse As Integer
Dim Rec As String
Dim AA As String
AA = DCount("*", "Qr_PD2")
Rec = "แผนกฉีดทำการส่งตรวจ " & AA & " รายการ"
LResponse = MsgBox("คุณกำลังจะส่งงานเพื่อตรวจใช่หรือไม่?", vbYesNo, "Continue")
If LResponse = vbYes Then
   DoCmd.SetWarnings False
    strSQL = "Update [Qr_PD2] Set [A_Wait] = True"
    strSQL2 = "Update [Qr_PD2] Set [B_TimeSent] = Now()"
    DoCmd.RunSQL strSQL
    DoCmd.RunSQL strSQL2
    DoCmd.SetWarnings True
    Forms![Fm_a1PD2]![Fm_a0PD2].Requery
    NetSend "192.168.1.180", Rec
    Me.Refresh
Else
   MsgBox ("คุณได้ยกเลิกการส่งตรวจงาน")
End If


ขอบคุณมากครับ

ลืมอธิบายครับ
คือพอเพิ่มตรงเงื่อนไข Netsend ครับถึงมีปัญหากับโปรแกรม
ขอบคุณครับ