กระทู้เก่าบอร์ด อ.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 อย่างนี้ต้องเขียนโคดที่ปุ่มอย่างไรครับช่วยหน่อยคร๊า
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
2 @R10816
ขอบคุณ อ. PichaiTC มากครับ ได้ตามที่ต้องการแล้วครับ ผมคงไปปรับใช้ได้แล้วครับ แต้คงต้องหาวิธีตรวจสอบหากผู้ใช้กดปุ่มเพิ่มข้อมูลซ้ำ ในเรคคอร์ดเดิม จะต้องมีข้อความเตือน ต่อไปครับ ขอบคุณมากครับ
3 @R10834
กำหนด Key หรือ Index แบบห้ามซ้า ใน Table เลยครับ จะได้ไม่ต้องเขียนโค้ด
Time: 0.3285s
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