Ezzat almassre

السلام عليكم ورحمة الله وبركاته هل يمكنني اضافة معيار آخر غير الموجود حالياً في الصورة بأن يعرض لي المعلومات من اكثر من نموذج يعني أريد ان اعرض تقرير حسب النموذج المفتوح حالياً ولكم جزيل الشكر ...

شكراً جزيلا اخي الكريم تم الموضوع بنجاح

السلام عليكم اخواني عند اختيار اسم حساب غير موجود في قائمة الحسابات " أي حساب جديد وغير معرف من قبل " عملت حدث عند عدم الوجود في القائمة الذهاب الى نموذج الحسابات لتعريف الحساب , هل هناك طريقة أو كود ينسخ النص الذي كتبته في عنصر التحكم ولصقه في نموذج تعريف الحسابات تلقائياً . الكود الحالي الموجود : عند عدم الوجود في القائمة Private Sub رقم_الحساب_NotInList(NewData As String, Response As Integer) Dim strmessage As String Dim bytchoice As Byte Dim stDocName As String Dim stLinkCriteria As String strmessage = "هذا الحساب غير موجود في الثوابت ,هل تريد ادخاله ؟" bytchoice = MsgBox(strmessage, vbQuestion + vbOKCancel) If bytchoice = vbCancel Then Cancel = True Else stDocName = "ادخال وتعريف الحسابات" DoCmd.OpenForm stDocName, , , stLinkCriteria End If End Sub ولكم جزيل الشكر أخوكم عزت