Vòng lặp không dừng lại
thuphuong0808 > 24-01-13, 04:36 PM
Private Sub CmdGhi_Click()
On Error GoTo Err_CmdGhi_Click
Dim db As Database
Dim rs As Recordset
Dim n As Double
Dim a, i As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("ChitietnhapDH")
n = Soseri1
i = Soluong
a = 1
DoCmd.GoToRecord , , acNewRec
Me.[ListSeri].Requery
Do Until rs.EOF
For a = 1 To i
rs.AddNew
rs![Soseri] = n
rs![Loso] = [Forms]![ChitietnhapDH]![Loso]
rs![MaDH] = [Forms]![ChitietnhapDH]![MaDH]
rs.Update
[ListSeri].Requery
Me.Requery
n = n + a
Next a
rs.Bookmark = rs.LastModified
Loop
rs.Close
'Dua ra 1 thong bao
MsgBox "Da ghi xong So Serial cho lo dong ho"
msg2.Caption = "Da ghi xong So Serial cho lo dong ho ! "
Exit_CmdGhi_Click:
Exit Sub
Err_CmdGhi_Click:
MsgBox Err.Description
Resume Exit_CmdGhi_Click
End Sub
Em thực hiện trương trình này nhưng vòng lặp chạy không dừng lại.table ChitietnhapDH gồm Ngayke,Loso,MaDH,Hopso,Soluong,Soseri.Em muốn khi em nhập vào số lượng 10 soseri là 123456 thì sẽ tự động ghi 10 bản ghi có số seri là 123457,123458,...