Private Sub Command202_Click()
   Dim Filename As String
Dim Filename1 As String
Dim FilePath As String
  DoCmd.SetWarnings False
    Me.Refresh
    Dim sql As String
    sql = "SELECT [Forms]![ACC_ขายสินค้า]![text185] AS voucher_s_id INTO printbill;"
   DoCmd.RunSQL sql
   Filename = DLookup("voucher_s_id", "printbill") & " m"
    FilePath = "d:\bills-suzu\RE\" & Filename & ".pdf"
    DoCmd.OpenReport "ต้นฉบับใบเสร็จรับเงิน", acViewPreview, Filename
    DoCmd.OutputTo acOutputReport, "ต้นฉบับใบเสร็จรับเงิน", acFormatPDF, FilePath
    DoCmd.PrintOut , , , , 1
    sql = "SELECT [Forms]![ACC_ขายสินค้า]![text185] AS voucher_s_id INTO printbill;"
   DoCmd.RunSQL sql
   Filename1 = DLookup("voucher_s_id", "printbill") & " c"
    FilePath = "d:\bills-suzu\RE\" & Filename1 & ".pdf"
     DoCmd.OutputTo acOutputReport, "สำเนาใบเสร็จรับเงิน", acFormatPDF, FilePath
    DoCmd.PrintOut , , , , 2
Command202_DblClick_Exit:
    Exit Sub
Command202_DblClick_Err:
    MsgBox Error$
    Resume Command202_DblClick_Exit
End Sub

ที่เครื่อง client ไม่ต้องลงโปรแกรม MS access ลงเฉพาะ access runtime เท่าน้ันหรือครับ  ตัว UI? ได้มาจากไหนครับ อยากทำการแชร์ database แต่ไม่เคยทำ

Private Sub Text185_GotFocus()
If Me.shop_id = "" Then
    MsgBox "ป้อนข้อมูล สาขา ก่อนนะ"
    Me.shop_id.SetFocus
    End If
End Sub
*********ขึ้น  error "Compile error: Method or data member not  found" ครับ**************
shop_id  (name=txt_shop_id  control source=shop_id   และ ฟิลด์ฉัดไป  name=text185   control source=voucher_s_id)

ทำใหม่อีกไฟล์ ก็ไม่ได้ ขอคำแนะนำหลักการ งง?ตรง caption หรือ control source หรือ ชื่อ mainฟอร์ม หรือ sub ฟอร์ม

ขอส่งไฟล์ใหม่

เอา code นี้ไปวางที่field voucher_s_id ในฟอร์มค้างชำระ Frm01 ใช่หรือไม่ครับ อจ.

ฟิลด์ที่ 1 คือ table ที่ได้จาก query ของ table ชื่อฟิลด์ว่า voucher_s_id
และฟิลด์ที่ 2  คือฟิลด์ voucher_s_id   ที่รองรับการเลือกชำระ

ต้องการให้ printout ทางเครืองพิมพ์ ต้นฉบับ=1 แผ่น   สำเนา=2 ฉบับ แต่ code นี้ กลายเป็น ต้นฉบับ=2  สำเนา=1 ฉบับ  ผิดตรงไหนไม่ทราบ
    sql = "SELECT [Forms]![ACC_????????????]![text185] AS voucher_s_id INTO printbill;"
   DoCmd.RunSQL sql
   Filename = DLookup("voucher_s_id", "printbill") & " m"
    FilePath = "d:\bills-stmitsu\INV\" & Filename & ".pdf"
    DoCmd.OpenReport "ใบกำกับขาย-ต้นฉบับ", acViewPreview, Filename
    DoCmd.OutputTo acOutputReport, "ใบกำกับขาย-ต้นฉบับ", acFormatPDF, FilePath
    DoCmd.PrintOut , , , , 1
    sql = "SELECT [Forms]![ACC_บันทึกการขาย]![text185] AS voucher_s_id INTO printbill;"
   DoCmd.RunSQL sql
   Filename1 = DLookup("voucher_s_id", "printbill") & " c"
    FilePath = "d:\bills-stmitsu\INV\" & Filename1 & ".pdf"
     DoCmd.OutputTo acOutputReport, "ใบกำกับขาย-สำเนา", acFormatPDF, FilePath
    DoCmd.PrintOut , , , , 2
Command285_DblClick_Exit:
    Exit Sub