สวัสดีค่ะ
สอบถามเรื่องการดึงข้อมูลเดิมที่มีอยู่แล้ว มาเพื่อแก้ไขแล้วบันทึกไปยังtable ใหม่ โดยข้อมูลเดิมไม่เปลี่ยนแปลง เช่น การทำใบสั่งซื้อ ซึ่งจะดึงมาจากใบขอซื้อ โดยไม่เปลี่ยนแปลงข้อมูลในใบขอซื้อ ประมาณนี้ค่ะ
ขอบคุณค่ะ
ใช้ Dlookup ดึงข้อมูลแต่ละฟิลล์มาแสดงบน control แต่ละตัว วิธีนี้น่าจะดีอยู่ครับเช่น การกำหนดให้ค้นหา รหัสใบขอซื้อ ถ้าเจอก็ให้นำข้อมูลที่มีรหัสใบขอซื้อ มาแสดง บนฟอร์มทำใบสั่งซื้อ
สมมุติ textbox ค้นหารหัสใบขอซื้อชื่อ txtSearch
และมีปุ่มที่กดเพื่อค้นหาชื่อ btnSearch
มีtextbox บนฟอร์ม แบบ Unbound คือไม่ต้องเชื่อมฟิลล์ใช้ Dlookup มาแสดงแทน
Private Sub BtnSearch_Click()
Me.
textboxA = dlookup("
FieldA","
Tableใบขอซื้อ","
รหัสใบขอซื้อ ='" & Me.
txtSearch & "'"
Me.
textboxB = dlookup("
FieldB","
Tableใบขอซื้อ","
รหัสใบขอซื้อ ='" & Me.
txtSearch & "'"
Me.
textboxC = dlookup("
FieldC","
Tableใบขอซื้อ","
รหัสใบขอซื้อ ='" & Me.
txtSearch & "'"
Me.
textboxD = dlookup("
FieldD","
Tableใบขอซื้อ","
รหัสใบขอซื้อ ='" & Me.
txtSearch & "'"
End sub
วิธีการนี้จะทำให้เราสามารถดึงฟิลล์ A,B,C,D มาแสดงบน textboxชื่อ A,B,C,D ได้แล้วครับ
ส่วนขั้นตอนการจัดเก็บไปยัง ตารางใบสั่งซื้อ สามารถทำได้ทั้งใช้ sql แบบAppend หรือใช้แบบตัวอย่างด้านล่างก็ได้ครับ Private Sub BtnSave_Click()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("
ตารางใบสั่งซื้อ", dbOpenDynaset)
RS.AddNew
RS![Fieldก] = textboxA
RS![Fieldข] = textboxB
RS![Fieldค] = textboxC
RS![Fieldง] = textboxD
RS.Update
RS.Close
Set RS = Nothing
จากตัวอย่างนี้คุณจะสามารถบันทึกข้อมูลที่กรอกไว้ใน textbox A,b,C,D ไปยังฟิลล์ ก ข ค ง ของตารางใบสั่งซื้อแล้วครับ
เนื่องด้วยการนำข้อมูลมาแสดงบนฟอร์มสามารถทำได้หลายแบบมาก
ถ้ามีตัวอย่างฟอร์มที่สร้างไว้อยู่คงแนะนำได้ง่ายขึ้นครับ
