إخواني في الفريق العربي
كنت قد إحتجت لطريقة معين في الفلترة في برنامج كنت أقوم بتصميمه و قام بعمله و مساعدتي فيه الاستاذ عماد حمدي أحمد بارك الله له كجهوده معي هو و الاخوة و الاخوات جميعا هنا ..
المشكلة :-
الكود البرمجي الذي قام بعمله أخي عماد يعمل و ينفذ العمليات جيد جدا و لكن عندما أردت أن أستخدمه في برنامج أخر واجهتني مشكلة أنه يحضر بيانات حقلين معا في أول خطوة و أنا أريد أن تكون كل الحقول علي حدا في الفلترة .. أو أن يساعدني أحدكم يا إخواني علي فهم الكود و شرحه و كيفية التعامل معه حتي تعم الفائدة ان شاء الله ..
Private Sub Print_Click() On Error GoTo Err_Print_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Open Issues" If IsNull([Assigned]) = True Then stLinkCriteria = "[Assigned To] = [Assigned To]" Else stLinkCriteria = "([Assigned To] = Forms![Print Criteria]![Assigned] Or [Opened By] = Forms![Print Criteria]![Assigned])" هنا المشكلة التي أو د فكها End If If IsNull([Status]) = False Then stLinkCriteria = stLinkCriteria & " And [Status] = Forms![Print Criteria]![Status]" End If If IsNull([Period]) = False Then stLinkCriteria = stLinkCriteria & " And [Period] = Forms![Print Criteria]![Period]" End If If IsNull([Category]) = False Then stLinkCriteria = stLinkCriteria & " And [Category] = Forms![Print Criteria]![Category] " End If If IsNull([Priority]) = False Then stLinkCriteria = stLinkCriteria & " And [Priority] = Forms![Print Criteria]![Priority]" End If DoCmd.OpenReport stDocName, acPreview, " ", stLinkCriteria Exit_Print_Click: Exit Sub Err_Print_Click: MsgBox Err.Description Resume Exit_Print_Click End Sub