كيف يتم تحويل الكود الي Function

لعل فهمي يكون صحيحاً لطلبك .. فأنا فهمت أنك تريد أن تغير مصدر سجل النموذج من خلال زر أمر

عملت لك مثالاً عن طريق ADO

في المثال المرفق :

مصدر سجلات النموذج frm1 الافتراضي هو الجدول : tbl1 من غير تصفية .. أي يعرض جميع السجلات في جدول tbl1

سيقوم الكود بتغييره إلى السجل الذي يحمل رقم 2 في الحقل Outo1 ليعرض النموذج السجل رقم2 فقط

وهذه الدالة :

Function convertRecordSource()

Dim ADODBRec As New ADODB.Recordset
Dim strSQL As String
strSQL = "select outo1,id from tbl1 where outo1=2"
ADODBRec.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
Set Me.Recordset = ADODBRec
Me.Outo1.ControlSource = "outo1"
Me.id.ControlSource = "id"
ADODBRec.Close
Set ADODBRec = Nothing

End Function

codeOfRecordSourceForForm.rar