مشکل در حذف رکورد از دیتابیس

[ali_1234]

سلام دوستان من یه مشکل دارم اونم اینکه من یک فیلد رو از بانک اطلاعاتی اکسس پاک می کنم ولی وقتی می خوام دوباره دیتابیس رو refresh کنم عمل انجام نمی شه.:گریه: کدها رو هم پاییم واستون می ذارم. میشه ببینید مشکلش کجاست. ممنون میشم.:خجالت:

Private Sub XPButton2_Click()
If Trim(Text1.Text) = "" Then
x = msg1("Pleas enter word.", 2, "", Me)
Text1.SetFocus
Exit Sub
End If
Adodc.Refresh
If Adodc.Recordset.RecordCount = 0 Then
x = msg1("No Entery for search.", 2, "", Me)
Exit Sub
End If
Adodc.Recordset.MoveFirst
Do While Adodc.Recordset.EOF = False
If (Adodc.Recordset.Fields!word Like Text1.Text + "*") Then
fam = Adodc.Recordset.Fields!word
nam = Adodc.Recordset.Fields!mine
x = msg("Are you sure want delete word?", 2, "", Me)
If Text4.Text = "yes" Then
xp = sndSound("c:\tel\aa.wav", 1)
Adodc.Recordset.Delete
Adodc.Recordset.MoveNext
If Adodc.Recordset.EOF Then
Adodc.Recordset.MovePrevious

Adodc.Refresh
List1.Clear
Do While Adodc.Recordset.EOF = False
If (Adodc.Recordset.Fields!word Like TextBoxX1.Text + "*") Then
pi = Adodc.Recordset.Fields!word
nam = Adodc.Recordset.Fields!mine
List1.AddItem pi
End If
Adodc.Recordset.MoveNext
Loop
Adodc.Refresh
RichTextBox1.Text = ""
Do While Adodc.Recordset.EOF = False
If (Adodc.Recordset.Fields!word Like TextBoxX1.Text + "*") Then
pi = Adodc.Recordset.Fields!word
nam = Adodc.Recordset.Fields!mine
RichTextBox1.Text = nam
Exit Do
End If
Adodc.Recordset.MoveNext
Loop

End If
Text1.Text = ""
Exit Sub
Else
Text1.Text = ""
Exit Sub
End If
End If
Adodc.Recordset.MoveNext
Loop
x = msg1("No entery.", 2, "", Me)
Text1.Text = ""

End Sub

[amin_unique]

سلام برنامه رو با f8 اجرا کن ببین خط دستور delete انجام میشه یا نه ، اخه شرط خیلی گذاشتی .
بعد از دستور delete اگه
adodc1.recordset.movenext
adodc1.recordset.movepreview (املایی شاید قلط باشه )
رو انجام بده بهتره . 90% باید delete صحیح انجام بشه .

[namaz17]

دوست عزیز فکر کنم باید بعد از دستور پاک کردن جدولتون رو آپدیت کنید، بعد برید سراغ خط بعدی.