ลองไปดูในไฟล์ front-end ที่แยกมาครับว่า ลิ้งไปที่ไหน

โดยคลิกที่ External data > Linked table manager



จากนั้นจะแสดงหน้าต่างด้านล่าง



ให้ดูว่าที่อยู่ของไฟล์  back-end ตารางฐานข้อมูลอยู่ที่ไหน ก็ให้เอาไฟล์ไปวางไว้ตรงนั้น ในเครื่องใหม่
เช่น D:\database\back-end.accdb ที่เครื่องใหม่ ก็ต้องเอามาไว้ตรงนี้เหมือนกัน

--------
หรืออีกวิธีก็คือ สร้างลิ้งใหม่เลย โดยการลบตารางเก่าออก (*ต้องเป็นตารางที่ link table มานะ โดยมันจะมีลูกศรชี้ไปทางขวาเล็ก ๆ ที่รูปตารางแบบนี้ ) ถ้าลบตารางปกติ ข้อมูลหาย !!!


เมื่อลบแล้วให้ไปที่ External Data > New Data Source > From File > Access (กณีที่เราใช้จากไฟล์ access)



เลือกที่อยู่ของไฟล์ฐานข้อมูล back-end แล้วเลือกตัวเลือกด้านล่าง (Link to the database ...)



จะแสดงหน้าต่างให้เลือกตารางที่ต้องการ คลิกเลือก หรือเลือกทั้งหมดก็แล้วแต่ จากนั้นกด ok เป็นอันเรียบร้อย

สาเหตุ ไม่ทราบจริง ๆ

ผมลองโหลดไฟล์มาดู และลองพิมพ์ดูมันก็ไม่ขึ้นเหมือนที่ จขกท เป็นครับ
ผมเลยสร้างฟอร์มใหม่ และสร้างคอมโบบ๊อกใหม่ โดยใช้ row source เดิม ปรากฎว่าดูได้ครับ และส่งผลให้ฟอร์มหลัก manCustomer ดูได้ไปด้วยทั้งหมด

งงสิครับ 555

รอท่านอื่นครับ ผมอยากรู้เหมือนกัน



หลังจากสร้างฟอร์มแล้วก็มาดูที่ฟอร์มหลัก ใช้ได้เฉย แต่พอผมบักทึกแล้วปิด เปิดมาใหม่ ก็จะใช้ไม่ได้ครับ

จริงด้วยครับ
ลองไปใช้ดู เพิ่มข้อมูลได้ถูกต้อง เรียบร้อยครับ
ปกติไม่ค่อยใช้ความสามารถนี้เลย เขียนแต่ query ตลอด 555
ขอบคุณมากครับ

ขอบคุณทุกท่านครับ

ตอนนี้ผมแก้จนได้ผลตามที่ต้องการแล้วครับ

บางทีก็อธิบายคำถามหรือสิ่งที่ต้องการยากครับ ฮ่าๆ

คือฟังก์ชั่นในการบันทึกเลข Serial ลงในรายการของบิลครับ โดยข้อมูลใน OrderDetail เมื่อเปิดบิลก็จะเพิ่มข้อมูลใน BillDetail จากนั้นจะมีการใส่เลข Serial ลงไปในรายการของบิลด้วยครับ


Private Sub InsertSerialtoBillDetail(CurrentOrderID As Long, NewBill_ID As String)

Set rsOrder_Details = CurrentDb.OpenRecordset("SELECT * FROM Order_Details WHERE Order_ID = " & CurrentOrderID, dbOpenSnapshot)
Set rsBill_Details = CurrentDb.OpenRecordset("Bill_Details", dbOpenDynaset, dbAppendOnly)
   
 
    Do While rsOrder_Details.EOF = False
        With rsBill_Details
                .AddNew
                For Each fld In rsOrder_Details.Fields
                        Select Case fld.Name
                                Case "Order_ID"
                                    rsBill_Details("Bill_ID").Value = NewBill_ID
               
                                Case "Product_ID"
                                    rsBill_Details("Product_ID").Value = fld.Value
                                    ProID = fld.Value
                                    getPSerial = Nz(DLookup("P_RunSerial", "Products", "Product_ID=" & ProID), "")

                                Case "OD_Quantity"
                                    rsBill_Details("BD_Quantity").Value = fld.Value
                                    PQuantity = fld.Value
           
                                Case "OD_Unit_Price"
                                    rsBill_Details("BD_Unit_Price").Value = fld.Value

                                'BD_Serials
                                Case Else
                                   
                                 'เรียกฟังก์ชั่นในการรันซีเรียล
                                 txtLastSerial = RunSerialTube(getPSerial, PQuantity)
                                 CurrentDb.Execute "UPDATE Products SET P_RunSerial ='" & txtLastSerial & "' WHERE [Product_ID]= " & ProID, dbSeeChanges

                        End Select
                        Next
                    .Update
            End With
            rsOrder_Details.MoveNext
    Loop

   rsOrder_Details.Close
   rsBill_Details.Close
  Set rsBill_Details = Nothing
  Set rsOrder_Details = Nothing



มีผิดแปลกตรงไหนแนะนำได้ครับ
ขอบคุณครับ

ทำได้แล้วครับ : D

ใช้งานได้ครับอย่างดีครับ ขอบคุณมากครับ

ตอนแรก error ติดอยู่นาน ที่ไหนได้ ประเภทข้อมูลไม่ตรงกัน อีกอัน short text อีกกัน memo

ผมมี 2 ตาราง
1. ตารางรายชื่อลูกค้าและ email
2. ตาราง email ที่ถูกตีกลับ

ผมอยากจะลบ email ของลูกค้าที่ตีกลับ ลบเฉพาะข้อมูล email ไม่ลบระเบียนครับ
ผมควรจะเขียนคิวรี่อย่างไรดีครับ
ขอบคุณครับ

ไม่ได้เหมือนเดิมครับ

error 3146
ODBC--call failed


แต่ใช้เป็นแบบเต็ม ๆ แทนใช้ได้ครับ ขอบคุณครับ

INSERT INTO table1 (column1, column2, column3, ...)
SELECT column1, column2, column3, ...
FROM table1
WHERE condition;

split database เอา front-end ไว้ที่เครื่องครู เอา back-end ไว้ที่เครื่องหลักซักที่
เชื่อมต่อกันด้วย wifi ก็ใช้งานได้ครับ แต่อาจจะมีหน่วง ๆ นะครับ
ผมไม่รู้ว่าถ้าใช้งานจริง ๆ ห่างกันระดับอาคาร จะให้งานได้ดีแค่ไหน หน่วง หรือค้างหรือป่าว
เพราะที่ผมเคยใช้งาน คือห่างกันแค่ในบริเวรห้องเท่านั้น

อีกวิธีก็คือใช้ back-end เป็น mysql ส่วน front-end ก็ใช้ access ตามปกติ แล้วเข้าถึงฐานข้อมูลผ่าน internet ซึ่งผมใช้วิธีนี้อยู่ ใช้งานได้ดี เร็วมาก ไม่มีปัญหาอะไรครับ ถ้าเน็ตไม่มีปัญหา