قفل شدن پایگاه داده اکسس(منظور پسورد نیست)

[AbbasVB]

با سلام دوستان
من از کد زیر برای خواندن رکود ها در پایگاه داده اکسس استفاده می کنم ولی وقتی یک بار از آن با کد زیر گزارش می گیرم Adodc1 قفل می کند و هر چی دکمه هاشو می زنم به فیلد های قبلی یا بعدی نمی رود و روی همان مقداری که جستجو کردم باقی می ماند

Adodc1.Refresh
Adodc1.Recordset.Find "UserName='" & UserName & "'"

[ho3ein.3ven]

خب شما باید قبل از جستجو از adodc1.recordset.movefirst استفاده کنید.

[ho3ein.3ven]

در ضمن نیازی هم به refresh نیست

[AbbasVB]

دوست عزیز ممنون
من همه اینا رو امتحان کردم
اما برای بار اول درست کار می کند ولی برای دفعه های بعد نه

[m.4.r.m]

adodc1.refresh رو حذف کن در ضمن واسه جست و جو از یه Adodc دیگه استفاده کن بهتره از این نمونه کد که میزارم استفاده کن


If Trim(Text1) <> "" Then
Adodc2.RecordSource = "SELECT * FROM Moshtarak WHERE Name='" & Trim(Text1) & "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount = 0 Then
Adodc2.RecordSource = "SELECT * FROM Moshtarak"
Adodc2.Refresh
MsgBox " äíä ãÔÎÕÇÊí ÏÑ áíÓÊ íÇÝÊ äÔÏ ", vbInformation, ""
Else
FindID = Adodc2.Recordset.Fields("Moshtarak_ID")
Adodc1.Refresh
Adodc1.Recordset.Find ("Moshtarak_ID=" & FindID)
End If
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus
End If

[AbbasVB]

ممنون دوست عزیر مشکل از این چیرا نبود مشکل رو پیدا کردم
در واقع مشکل از آن جایی شروع م شود که می خواهیم مقدار جدیدی را جایگزین مقدار قبلی کنیم مشکل اصلی از این کد است وقتی آن را غیر فعال می کنم برنامه درست کار می کند
B_ID = Adodc1.Recordset.Fields("ID")
B_LastDate = Adodc1.Recordset.Fields("LastDate")
Adodc1.RecordSource = "SELECT * FROM MyField WHERE ID=" & B_ID
Adodc1.Recordset.Fields("LastDate") = Trim(Date & "-" & Time)
Adodc1.Recordset.Update
Adodc1.Refresh