Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Vòng lặp không dừng lại
#1
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,...
Chữ ký của thuphuong0808 Xin chào, mình là thuphuong0808, Tham gia http://thuthuataccess.com/forum từ ngày 12-01 -13.
Reply
Những người đã cảm ơn
#2
Điều này là đương nhiên rồi

Bạn xem phát biểu của mình xem
Mã:
Do Until rs.EOF
For a = 1 To i
rs.AddNew

Điều này có nghĩa là gì:
1/ lặp lại Cho tới khi nào duyệt hết record
2/ Thêm i record mới

Mà thêm i record mới thì làm sao con trỏ chỉ đến hết số record được. Giống như bạn ngồi trên xe hơi rồi chạy kiểu gì cho mình vượt qua được cái bánh trước vậy!
Kết quả là nó chạy hoài. Mình nghĩ vấn đề bạn dùng Do Until là không hợp lý. Thật ra chỉ dùng if để kiểm tra việc có phải là đang ở trạng thái hết EOF thôi là đủ!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thuphuong0808


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lỗi không tìm thấy MsysDB Minh Tiên 5 236 20-08-17, 10:24 PM
Bài mới nhất: maidinhdan
  [Hỏi] Cấm không cho dowload video trên Web - Phần này sai diễn đàn mong ad đừng xóa nhé cannguyen 2 205 23-07-17, 11:42 PM
Bài mới nhất: tt1212
  Lỗi không truy cập được csdl thanhtruong 6 305 17-06-17, 08:36 AM
Bài mới nhất: thanhtruong
  [Hỏi] Cách sử dụng ACCDB trong mạng LAN nhiều phiên bản Access. toancvp 9 484 10-05-17, 06:29 PM
Bài mới nhất: toancvp
  [Help] link data access 32bit từ máy sử dụng access 64bit thucgia 1 199 25-03-17, 12:25 PM
Bài mới nhất: cpucloi

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ