บันทึกข้อมูลหลาย Record พร้อมกันใน MS Access

[sasilakmon]

รบกวนขอสอบถามวิธีการบันทึกข้อมูลหลาย Record พร้อมกันใน MS Access ค่ะ จากไฟล์ที่แนบมาที่ทำได้คือบันทึกได้แค่ 1 Record แต่สิ่งที่ต้องการคือบันทึกหลาย Record โดยให้สามารถบันทึกได้ตามที่ Checkbox เลือกค่ะ พร้อมกันนี้ได้แนบไฟล์งานที่ได้ทำมาด้วยค่ะ รบกวนด้วยนะคะ ขอบคุณค่ะ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Private Sub Command37_Click()
    Dim db As DAO.Database
    Dim rsTemp As DAO.Recordset
    
    DoCmd.SetWarnings False
    Set db = CurrentDb
    Set rsTemp = Me.RecordsetClone
    rsTemp.MoveFirst
    For i = 1 To rsTemp.RecordCount
       If Me.CurrentRecord Then
          sSQL = "INSERT INTO Training(EmployeeCode,Result,EndDate) " & _
            " VALUES('" & rsTemp.Fields(0).Value & "', '" & Me.chkResult & _
            "', '" & Me.txtResultDate & "')"
          db.Execute sSQL
       End If
       rsTemp.MoveNext
    Next i
    rsTemp.Close
    Set rsTemp = Nothing
    Set db = Nothing
    DoCmd.SetWarnings True
End Sub

[sasilakmon]

ขอบคุณมากๆนะคะ

[sasilakmon]

ลองแล้ว แต่ติดปัญหารหัสพนักงาน ยังคงบันทึกเป็นคนเดียวค่ะ ตามไฟล์และตัวอย่างโปรแกรมที่แนบมา รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

[snasui]

ไม่สามารถเปิดไฟล์ได้ครับ

[sasilakmon]

ไฟล์นี้ค่ะ เปิดได้ไหมคะ

[snasui]

ขออภัยที่ตอบช้าครับ

ตัวอย่าง Code ครับ

Code: Select all

'Other code
For i = 1 To rsTemp.RecordCount
   If Me.CurrentRecord Then
      ssql = "INSERT INTO Training(IDNo,EmployeeCode,Result,EndDate) " & _
        " VALUES('" & rsTemp.Fields(0).Value & "', '" & rsTemp.Fields(1).Value & "', '" & Me.chkResult & _
        "', '" & Me.txtResultDate & "')"
      db.Execute ssql
   End If
   rsTemp.MoveNext
Next i
'Other code

[sasilakmon]

ขอบคุณมากๆนะคะ ทำได้แล้วค่ะ