新手遇到的问题.
意思很简单，和数据库相比，没有记录提示不存在，若有则删除记录。
我下面的代码是个死循环，请高手们帮忙看看，非常感谢。
Private Sub Command2_Click()
If Trim(Text1.Text) = "" Then
MsgBox "不能为空 ", vbOK0nly + vbExclamation, ""
Text1.SetFocus
Exit Sub
Else
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = false
If Trim(Data1.Recordset.Fields(0)) = Trim(Text1.Text) Then
Data1.Recordset.Delete
Text1.SetFocus
Data1.Recordset.MoveNext
Else
MsgBox "不存在"
End If
Loop
End If
End Sub

不存在，也来个MoveNext

不是太理解，请高手再指明一下，非常感谢。

你上面的比较呢..是当存在的时候..才删除...并移到下一条...
不过..当不存在的时候呢..就一直指向该记录..没有移到下一条...

'这样试试
Private Sub Command2_Click()
If Trim(Text1.Text) = "" Then
MsgBox "不能为空 ", vbOK0nly + vbExclamation, ""
Text1.SetFocus
Exit Sub
Else
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = false
If Trim(Data1.Recordset.Fields(0)) = Trim(Text1.Text) Then
Data1.Recordset.Delete
Text1.SetFocus
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveNext
End If
Loop
Msgbox "搜索完毕"
End If
End Sub

If Trim(Data1.Recordset.Fields(0)) = Trim(Text1.Text) Then
Data1.Recordset.Delete
Text1.SetFocus
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveNext
End If

为什么不这样啊？

if (Data1.Recordset.Fields(0)) = Trim(Text1.Text) then
Data1.Recordset.Delete
Text1.SetFocus
End if
Data1.Recordset.MoveNext

应该更简洁些吧？

[此贴子已经被作者于2006-12-1 13:12:37编辑过]

还是有问题的，当我删除一个记录的时候，是删除了，但同时会报error:"操作被关联对象取消"
呵呵，再帮忙看看。