ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
ตัวอย่าง 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
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