วิธีAddข้อมูลเข้าตาราง ตามจำนวนที่กรอกในtextbox
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย

 864   5 วิธีAddข้อมูลเข้าตาราง ตามจำนวนที่กรอกในtextbox

อยากทราบวิธีเพิ่มข้อมูลลงตารางจำนวนหลายแถว แบบนี้ค่ะ
1. หนูสร้างหน้าค้นหารายการไว้ เมื่อเลือกรายการใดรายการหนึ่งแล้ว ก็ใส่จำนวนในtextbox อีกช่อง

2. พอใส่จำนวนเช่น 10 แล้วกดปุ่มAddที่สร้างไว้แล้ว อยากให้ไปAddเข้าในอีกตารางนึงจำนวน10แถว(เป็นรายการที่ซ้ำกัน)
ปล.ตอนนี้ทำเพิ่มได้ทีละแถวปกติ
แต่ที่ต้องการเพิ่มตามจำนวนที่กรอกในtextbox เพราะต้องการนำไปทำลาเบลปริ้น ตามจำนวนที่ต้องการค่ะ

ไม่ทราบมีวิธีไหนบ้างคะ

ขอบคุณล่วงหน้าค่ะ

5 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R24467
TT ยังไม่ได้เลยค่ะ
2 @R24470
ลักษณะคล้ายกระทู้ประมาณนี้หรือเปล่าครับ
http://www.thai-access.com/yeadram_view.php?topic_id=5736
หรือ
http://www.thai-access.com/yeadram_view.php?topic_id=3374
3 @R24496
ช่วยดูโค้ดให้หน่อยค่ะ มาประยุกต์แล้วerrorค่ะ
ปล. qtyLabel คือtextbox ที่ใส่จำนวนที่ต้องการออกลาเบลค่ะ

Sub AddMultiRecord2()
    Dim rs As DAO.Recordset
    Dim i As Integer
    Set rs = CurrentDb.OpenRecordset("AddReceiving", dbOpenDynaset)
    For i = 1 To 100
        rs.AddNew
        rs!PartID = PartID.Text
        rs!Received_no = potxt.Text
        rs!PartName = PartName.Text
        rs!Qty = Qtytxt.Text
        rs!Customer = custxt.Text
        rs!i = qtyLabel.Text
        rs.Update
    Next i
    '-----------------------------------------
    rs.Close: Set rs = Nothing
End Sub
4 @R24497
พอกดปุ่มแอด
ขึ้นเออเร่อว่า Object required

กดดูมาเออเร่อตรงนี้ค่ะ >> rs!PartID = PartID.Text

รบกวนช่วยหน่อยนะคะ
5 @R24499
ล่าสุดเปลี่ยนโค้ดใหม่ ยังไม่ได้ค่ะ

Sub AddMultiRecord2()
    Dim rs As DAO.Recordset
    Dim QtyLabel As Integer
    Set rs = CurrentDb.OpenRecordset("AddReceiving", dbOpenDynaset)
    For QtyLabel = 1 To 100
        rs.AddNew
        rs!PartID = PartID.Text
        rs!Received_no = potxt.Text
        rs!PartName = PartName.Text
        rs!Qty = Qtytxt.Text
        rs!Customer = custxt.Text
        rs!QtyLabel = qtyLabeltxt.Text
        rs.Update
    Next QtyLabel
    '-----------------------------------------
    rs.Close: Set rs = Nothing
End Sub
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 17.1760s