กระทู้เก่าบอร์ด อ.Yeadram
1,364 5
URL.หัวข้อ /
URL
วิธีAddข้อมูลเข้าตาราง ตามจำนวนที่กรอกในtextbox
อยากทราบวิธีเพิ่มข้อมูลลงตารางจำนวนหลายแถว แบบนี้ค่ะ
1. หนูสร้างหน้าค้นหารายการไว้ เมื่อเลือกรายการใดรายการหนึ่งแล้ว ก็ใส่จำนวนในtextbox อีกช่อง
2. พอใส่จำนวนเช่น 10 แล้วกดปุ่มAddที่สร้างไว้แล้ว อยากให้ไปAddเข้าในอีกตารางนึงจำนวน10แถว(เป็นรายการที่ซ้ำกัน)
ปล.ตอนนี้ทำเพิ่มได้ทีละแถวปกติ
แต่ที่ต้องการเพิ่มตามจำนวนที่กรอกใน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
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
ปล. 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
รบกวนช่วยหน่อยนะคะ
ขึ้นเออเร่อว่า 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
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
Time: 0.4448s
