سلام
استاد عزیز آقای اذیش با عرض معذرت من چند تا مشکل با زیربرنامه های شما داشتم که اگر حمل بر جسارت نباشد عرض می کنم
1 در خط 8 برنامه شما چنین نوشتید
If rsResult Is Nothing Then rsResult = New ADODB.Recordset
که چنین خطایی می دهد
invalid use of the property
که فکر می کنم علتش نداشتن کلمه set باشد
If rsResult Is Nothing Then Set rsResult = New ADODB.Recordset
2 زمانی که من می خواهم رکوردست بازشده توسط این زیربرنامه را بخوانم چنین پیغامی می دهد
operation is not allowed when the object is closed
که من علتش را نفهمیدم ولی با برداشتن این دوخط برنامه درست می شود
cn.Close
Set cn = Nothing
که فکر می کنم منطقی نباشد
3 زیر برنامه دوم شما را اصلا متوجه نشدم چه کار می کند اگر ممکن است مختصر توضیحی بدهید
4 علت استفاده از این خط را هم نفهمیدم
If Not (rsResult.EOF Or rsResult.BOF) Then
GetRecordSet = rsResult.RecordCount
End If
و نهایتا چرا شما از function استفاده کرده و مقدار long را برمیگردانید مگر از تابع sub نمی شود استفاده کرد
در ضمن واقعا من را ببخشید چون خیلی کند ذهنم و اصلا نمی فهمم که چه جوری می شود و گرنه مزاحم شما نمی شدم :(
مرسی و متشکرم :oops: