• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Nhờ chữa lỗi lặp của hàm For trong VBA

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Nhờ chữa lỗi lặp của hàm For trong VBA
• Nhờ chữa lỗi lặp của hàm For trong VBA

• Nhờ chữa lỗi lặp của hàm For trong VBA

  dieuchinhlu > 01-12-10, 01:12 PM

  Hỏi: Nhập vào một mảng và một biến x, sau đó kiểm tra x có tồn tại trong mảng không? Nếu có thì xoá đi.
  bài em đang làm:
  http://www.mediafire.com/?4s6y7c1mqe6y9wq
  Code:
  

  Mã:

  Option Compare Database
Dim a() As Integer
Dim n As Integer, x As Integer, i As Integer, j As Integer

Dim luu, luu1 As Variant
Private Sub cmb_kiemtra_Click()

On Error GoTo Loi
x = CInt(Me.txt_x.Value)
For i = 1 To n
  
    If a(i) = x Then
    MsgBox "Xuat hien x tai vi tri:" & i & " trong Mang."
    Else
        txt_xoax.Value = Null
       luu1 = luu1 & "," & a(i)
    End If
  
Next
On Error GoTo Loi
txt_xoax.Value = Right(luu1, Len(luu1) - 1)
Loi:
If Err.Number = 5 Then
DoCmd.CancelEvent
Else
If Err.Number = 94 Then
MsgBox "Vui Long Nhap x de Kiem Tra"
End If
End If
End Sub


Private Sub cmb_thuchien_Click()
txt_mang.Value = Null
txt_x = Null
txt_xoax = Null

While n <= 0
n = CInt(InputBox("Nhap Kich thuoc cua mang:"))
Wend
ReDim a(n)
For i = 1 To n
On Error Resume Next
a(i) = CInt(InputBox("Nhap Phan Tu thu " & i & " cua mang :", "Nhap Phan Tu"))
luu = luu & "," & a(i)
Next
txt_mang.Value = Right(luu, Len(luu) - 1)

End Sub

Private Sub cmb_try_Click()
txt_mang = ""
n = -1
txt_x = ""
txt_xoax = ""
End Sub

  Các lỗi mắc phải:
  khi viết xong code chạy lần đầu thì ổn lắm
  ấn nút Nhập Mảng
  
  sau đó thì nhập các phần tử của mảng.
  
  rùi ấn nút Kiểm Tra và KQ
  
  KQ:
  
  đến đây vẫn ổn, rùi hàng loạt sảy ra:
  em tiếp tục nhập x, nó toàn ra thế này:
  
  
  
  
  rùi ấn Làm Lại, vẫn nhập mảng binh thường nhưng vãn bị lặp tương tự ở trên:
  
  
  và khi nhập x để kiểm tra vẫn bị tình trạng lặp tương tự.
  
  nhờ NoName và các bạn trên room giúp đỡ em nhé, mới học VBA chân tay còn non nớt lắm. em cảm ơn.
  
  
  

• RE: Nhờ chữa lỗi lặp của hàm For trong VBA

  Noname > 01-12-10, 02:02 PM

  Bạn xem lại đoạn này trong sự kiện click nút Kiểm tra
  
  

  Mã:

  If a(i) = x Then
    MsgBox "Xuat hien x tai vi tri:" & i & " trong Mang."
    Else
        txt_xoax.Value = Null
       luu1 = luu1 & "," & a(i)
   End If

  Theo đó, khi bạn xóa lần đầu thì đúng, nhưng từ lần thứ 2 trở đi thì mảng a(i) không có câu lệnh nào cập nhật lại danh sách mới cho nó cả!
  Đúng ra nó phải là thế này:
  

  Mã:

  ' tạo mảng B tạm
' tạo biến m tạm
' các giá trị mảng B() = mảngA()
' gán m=n
For i = 1 To n
If a(i) = x Then
    MsgBox "Xuat hien x tai vi tri:" & i & " trong Mang."
    ' Đoạn code Cập Nhật lại mảng b() có xóa giá trị tìm thấy
     'gán lại m=m-1
    Else
        txt_xoax.Value = Null
       luu1 = luu1 & "," & a(i)
    End If
next
'Gán mảng B = mảng a
'gán n=m

  
  Đó là logic, bạn theo đó thực hiện nhé!

• RE: Nhờ chữa lỗi lặp của hàm For trong VBA

  dieuchinhlu > 01-12-10, 04:07 PM

  
  Cám ơn anh Noname nhiều nha, em đang vọc tiếp,

• RE: Nhờ chữa lỗi lặp của hàm For trong VBA

  dieuchinhlu > 01-12-10, 09:22 PM

  hix, vọc từ chiều tới h vẫn thế , chỉ đỡ đc cái nhập là hết bị lặp thui, NoName có thể viết rõ hơn cho em không ? em cảm ơn!
  

• RE: Nhờ chữa lỗi lặp của hàm For trong VBA

  Noname > 01-12-10, 11:34 PM

  File của bạn mình chỉ một chút các câu lệnh ở Form 3.
  bạn xem thử hén
  download
• Bài trước Bài tiếp