การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

09 ต.ค. 63 , 15:21:06
อ่าน 141 ครั้ง

ชวลิต เสนะสุทธิ

  • สมาชิกไท.Access
  • กระทู้: 17

    • ดูรายละเอียด

สอบถามว่าการใช้โค้ด การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตารางแล้วจะได้ 100 ตาราง ตามจำนวนที่กรอกเข้าไป และการสั่งเพิ่มครั้งต่อไปจะใส่ค่าเดิมไม่ได้ เพื่อนำไปประยุกต์ในการปริ้น Label ครับเช่น
« แก้ไขครั้งสุดท้าย: 09 ต.ค. 63 , 15:26:13 โดย ชวลิต เสนะสุทธิ »

 

09 ต.ค. 63 , 15:43:44
ตอบกลับ #1

PNR

: การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« ตอบกลับ #1 เมื่อ: 09 ต.ค. 63 , 15:43:44 »
อ้างถึง
การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตารางแล้วจะได้ 100 ตาราง

100 ตารางหรือ 100 Record ครับ ???

ถ้า 100 Record ก็ตามนี้เลย
โค้ด

Private Sub Command8_Click()
Dim strNum As String
Dim I As Long
Dim db As Database
Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("table1", DB_OPEN_DYNASET) 'Table1 คืื่อตาราง
   
    For I = Me.txtBeginNumber To Me.txtEndNumber
    strNum = Nz(Me.txtModel) & Nz(Me.txtYear) & Right("00000" & I, 4)

     rs.AddNew
        rs![Runnum] = strNum 'runnum คือ Field ในตาราง
     rs.Update
     Next   
End Sub

เวลาใส่ตัวเลข ในช่องเริ่มและสิ้นสุด ใส่ตัวเลข ธรรมดาได้เลยเช่น  1   กับ 100

« แก้ไขครั้งสุดท้าย: 09 ต.ค. 63 , 15:53:13 โดย PNR »
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 

09 ต.ค. 63 , 16:15:13
ตอบกลับ #2

ชวลิต เสนะสุทธิ

  • สมาชิกไท.Access
  • กระทู้: 17

    • ดูรายละเอียด

: การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« ตอบกลับ #2 เมื่อ: 09 ต.ค. 63 , 16:15:13 »
ขอบคุณมากครับ ทำได้แล้วครับ

 

12 ต.ค. 63 , 09:17:39
ตอบกลับ #3

PNR

: การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« ตอบกลับ #3 เมื่อ: 12 ต.ค. 63 , 09:17:39 »
ขอปรับเพิ่มโค้ดนิดหน่อยครับ เปิด record มาใช้แล้วลืมปิด

โค๊ด: [Select]
Dim strNum As String
Dim I As Long
Dim db As Database
Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("table1", DB_OPEN_DYNASET)
   
    For I = Me.txtBeginNumber To Me.txtEndNumber
    strNum = Nz(Me.txtModel) & Nz(Me.txtYear) & Right("00000" & I, 4)

     rs.AddNew
        rs![Runnum] = strNum
     rs.Update
     Next
rs.Close
db.Close
Set rs = Nothing: Set db = Nothing   
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 

12 ต.ค. 63 , 09:21:32
ตอบกลับ #4

ชวลิต เสนะสุทธิ

  • สมาชิกไท.Access
  • กระทู้: 17

    • ดูรายละเอียด

: การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« ตอบกลับ #4 เมื่อ: 12 ต.ค. 63 , 09:21:32 »
ถ้าเราต้องการให้แยก Field ในตาราง ครับ เราต้องเพิ่มทุกช่องใช่ไหมครับ
เช่น ถ้าเราใส่ตรง Number 1 - 10
ก่จะได้
Runnum   : AAA 10ตัว
Runnum1 : 2010 10ตัว
Runnum2 : 0001-0010
« แก้ไขครั้งสุดท้าย: 12 ต.ค. 63 , 09:29:44 โดย ชวลิต เสนะสุทธิ »

 

12 ต.ค. 63 , 10:36:51
ตอบกลับ #5

PNR

: การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« ตอบกลับ #5 เมื่อ: 12 ต.ค. 63 , 10:36:51 »
ถ้าเราต้องการให้แยก Field ในตาราง ครับ เราต้องเพิ่มทุกช่องใช่ไหมครับ
เช่น ถ้าเราใส่ตรง Number 1 - 10
ก่จะได้
Runnum   : AAA 10ตัว
Runnum1 : 2010 10ตัว
Runnum2 : 0001-0010

แก้โค้ดเป็นแบบนี้
โค๊ด: [Select]
Dim strNum As String
Dim I As Long
Dim db As Database
Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("table1", DB_OPEN_DYNASET)
   
    For I = Me.txtBeginNumber To Me.txtEndNumber
    strNum = Right("00000" & I, 4)

     rs.AddNew
        rs![Runnum] = Me.txtModel
        rs![Runnum1] = Me.txtYear
        rs![Runnum2] = strNum
       
     rs.Update
     Next
rs.Close
db.Close
Set rs = Nothing: Set db = Nothing
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: nonc31

12 ต.ค. 63 , 14:35:02
ตอบกลับ #6

ชวลิต เสนะสุทธิ

  • สมาชิกไท.Access
  • กระทู้: 17

    • ดูรายละเอียด

: การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« ตอบกลับ #6 เมื่อ: 12 ต.ค. 63 , 14:35:02 »
ขอบคุณมากครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย