Tùy chọn
Lỗi vòng lặp
- Lỗi vòng lặp
-
Lỗi vòng lặp
thuphuong0808 > 25-01-13, 04:52 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 = Soseridau
i = Soluong
a = 1
Do While (Not rs.EOF) And (a <= i)
rs.AddNew
rs![Soseri] = n
rs![Loso] = [Forms]![ChitietnhapDH]![Loso]
rs![MaDH] = [Forms]![ChitietnhapDH]![MaDH]
rs![Ngayke] = [Forms]![ChitietnhapDH]![Ngayke]
rs![HopSo] = [Forms]![ChitietnhapDH]![HopSo]
rs![Soluong] = [Forms]![ChitietnhapDH]![Soluong]
rs.Update
[ListSeri].Requery
Me.Requery
n = n + a
a = a + 1
rs.Bookmark = rs.LastModified
Loop
rs.Close
'Dua ra 1 thong bao
MsgBox "Da ghi xong So Seryal cho lo dong ho"
msg2.Caption = "Da ghi xong So Seryal cho lo dong ho ! "
Exit_CmdGhi_Click:
Exit Sub
Err_CmdGhi_Click:
MsgBox Err.Description
Resume Exit_CmdGhi_Click
End Sub
![[Hình: view.php?filename=5731.bmp]](http://uphinh.ssc.vn/view.php?filename=5731.bmp)
khi em thực hiện lần đầu tiên thì không hiện đúng số lượng yêu cầu và không hiển thị trong list
![[Hình: view.php?filename=7192.bmp]](http://uphinh.ssc.vn/view.php?filename=7192.bmp)
lần thứ 2 thì số seri không tăng liên tiếp và có 1 dòng không có số seri.mọi người xem hộ em xem sai ở chỗ nào ak! -
RE: Lỗi vòng lặp
Xuân Thanh > 25-01-13, 05:19 PM
1/ Không nên post nhiều chủ đề như thế này sẽ bị loãng và khó theo dõi
2/ Chỉ có bạn mới biết bạn đang làm gì và thực hiên ý đồ đó ra sao
3/ Muốn có được sụ hỗ trợ nhiều nhất từ các bạn khác, cach tốt nhât là bạn đưa file lên
Bạn đưa lên mediafire hoặc một nơi nào đó rồi dẫn link về diễn đàn
Thân mến