[ تمت الإجابة ]سؤال في Ado

اين المرفقات ؟؟؟

عذرا هذا هو الكود

Dim rst As Recordset

Dim rstCriteria As String

Set rst = Me.RecordsetClone

rstCriteria = Me.TEMPSITEID

rst.FindFirst "[sITEID]='" & rstCriteria & "'"

If rst.NoMatch Then

Me.SITEID = Me.TEMPSITEID

Else

Me.Bookmark = rst.Bookmark

End If

اخي whassan

ستجد ما تبحث عنه واكثر بالرابط ادناه

تفضل من هنا

بالتوفيق

السلام عليكم ورحمة الله

بدل FindFirst نضع Find

وبدل NoMatch نضع Eof

شكرًا لكل الذين ساعدوني

وهذا هو المطلوب

وشكراً