ใส่จำนวนข้อมูลในตาราง1"เพิ่มข้อมูลอัตโนมัติในอีกตา
กระทู้เก่าบอร์ด อ.Yeadram

 1,474   3
URL.หัวข้อ / URL
ใส่จำนวนข้อมูลในตาราง1"เพิ่มข้อมูลอัตโนมัติในอีกตา

Table แรก ชื่อ Table1 มีฟิลด์ รหัส ฟิลด์ ชื่อ ฟิลด์จำนวน
Table สอง ชื่อ Table2 มีฟิลด์เหมือนกันกับ Table1 แต่เพิ่มอีกฟิลด์คือ "รหัส2"
พอ Table1 ป้อนข้อมูลจำนวน แล้วกดปุ่มตกลงแล้ว ข้อมุลตามรหัสที่ป้อนไปแล้วนั้นจะคัดลอกไปบันทึกใน Table2 ตามจำนวนที่ใส่ไป แล้วจะสร้างรหัส2 เองอัตโนมัตเช่น รหัส 001 จำนวน 10 ข้อมูล พอกดปุ่ม ก็จะมี 10 ข้อมุล แต่ใส่รหัสอัตโนมัติตามลำดับ ได้แก่ 001-1,001-2,001-3 ไล่ไปจนครับ 10 อย่างนี้ต้องเขียนโคดที่ปุ่มอย่างไรครับช่วยหน่อยคร๊า

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

1 @R10807
ประมาณนี้ครับ

Sub CreateData()
Dim lngLoop As Long
Dim strSQL As String
    DoCmd.SetWarnings False
    For lngLoop = 1 To txtQuantity 'txtQuantity = text box ที่แสดงค่า จำนวน
        strSQL = "INSERT INTO ItemNew ( ItemCode, ItemCode2, ItemName, Quantity)" _
               & " SELECT ItemCode, ItemCode & '-' & " & lngLoop & ", ItemName, Quantity" _
               & " FROM ItemOld" _
               & " Where ItemCode = '" & txtItemCode & "'"   'txtItemCode = text box ที่แสดงค่า ItemCode
        DoCmd.RunSQL strSQL
    Next lngLoop
    DoCmd.SetWarnings True
End Sub
2 @R10816
ขอบคุณ อ. PichaiTC มากครับ ได้ตามที่ต้องการแล้วครับ ผมคงไปปรับใช้ได้แล้วครับ แต้คงต้องหาวิธีตรวจสอบหากผู้ใช้กดปุ่มเพิ่มข้อมูลซ้ำ ในเรคคอร์ดเดิม จะต้องมีข้อความเตือน ต่อไปครับ ขอบคุณมากครับ
3 @R10834
กำหนด Key หรือ Index แบบห้ามซ้า ใน Table เลยครับ จะได้ไม่ต้องเขียนโค้ด
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3285s