แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - sinetn

หน้า: [1]
1
สวัสดีค่ะ
สอบถามเรื่องการดึงข้อมูลเดิมที่มีอยู่แล้ว มาเพื่อแก้ไขแล้วบันทึกไปยัง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 ไปยังฟิลล์ ก ข ค ง ของตารางใบสั่งซื้อแล้วครับ

เนื่องด้วยการนำข้อมูลมาแสดงบนฟอร์มสามารถทำได้หลายแบบมาก
ถ้ามีตัวอย่างฟอร์มที่สร้างไว้อยู่คงแนะนำได้ง่ายขึ้นครับ
โพสต์นี้ได้รับคำขอบคุณจาก: sinetn

หน้า: [1]