حسن قديمي

هنا مطلوب اضافة الرصيد

اخي عبدالله المقصور عند الضغط على زر( بحث خاص ) وليس في صفحة ( قائمة المستأجرين ) يعني احتاج ان يكون الرصيد ضمن نموذج التقرير عند الضغط على زر البحث الخاص فاذا اخترت الايجارات المنتهية يظهر التقرير وهنا اريد وجود الرصيد وعند الضغط على ( تبقى على الايجار كذا .. ) ايضا اريد الرصيد يظهر في التقرير مع امكانية طباعة كامل التقرير لا الفورم

استاذ عبدالله والأساتذة الكرام ان كنتم قريبين هل ممكن في فورم التقرير اضافة بند آخر وهو الرصيد على المستأجر ليصبح على النحو التالي :- اسم مستأجر العقار الإسم التجاري للعقار موقع العقار رقم الجوال حالة العقد توضيح حالة الإيجار ( والذي يمثل تبقى - موعد الايجار اليوم ... الخ ) الخانة الجديدة ( رصيد المستأجر ) حسب الملف المرفق بعد التعديل مع العلم بأنني لم اضف الخانة المطلوب لعدم معرفتي كيفية اضافتها بالإضافة لزر امر الطباعة فهو يقوم بطباعة الفورم كما هو علية والمفترض ان تتم طباعة جميع البيانات داخل الفورم حسب كمية البيانات ولا يخفى عليكم انني قسمت نموذج التقرير لقسمين :- الأول : تقرير حركة الإيجارات الثاني : تقرير حركة العقود فتم الإنتهاء من تقريرحركة الإيجارات ولكن تقريرحركة العقود لم تنجح معي المحاولات ومازلت مستمر في المحاولات عسى أن أجد ضالتي في التكرار وأسأل الله أن أستفيد ويستفيد كل مشارك في المنتدى من النتيجة النهائية للملف سواءً بالفكرة أو المضمون الحركة للتعديل.rar

انا واثق جداً ولكن من باب اسوي زحمة

احد يساعدني في اكمال ما تبقى انا انجزت متغيرات حركة الإيجارات وبقي حركة العقود لم أستطع حلها لا أدري لماذا

سبحان الله ( علم الإنسان مالم يعلم ) أشكــــــــــــــــرك

السادة الأفاضل لدي اوفيس 2003 وفي الاكسل لاتعمل معي خاصية السجب والافلات هل هناك حل لهذة الاشكالية حيث ان عملي قائم عليها في العمليات

لا لا لا لم استوعب خلينا ياعمي على قدي والله ضعت حتى اول مافتحت النموذج جتني رسالة خطا تقولان opject معطل وكلام كثير حتى السحب والإفلات ماقدرت اسحب اي خلية واذا قلنا فرضاً اني اقتنعت وجازفت لما تطرقت الية هل التنسيق الشرطي راح يكون نفس الحكاية سحب وافلات فقط ( عن جد انا قلق جداً من هذة الدالة )

لا مانع لدي ولكن ليست لدي الخبرة الكافية في عمل ذلك can helpe me to do that مرفق لك اخي الكريم الملف النهائي بعد اجرائي التعديلات علية في فورم التقرير حركة المستأجرين.rar

السادة الأفاضل تحية طيبة وبعد إنتهيت من عمل ارتباطات تقارير حركة الإيجارات العامةوتبقى لي حركة العقود العامة لم أستطع حلها هل من مساعد بالإضافة لزر الطباعة ينبغي ان يتم طباعة محتوى الفورم كاملة حركة المستأجرين.rar

اخي عبدالله ماهي الطرقة لنشخ الأكواد بطريقةسريعةمرة واحدة ام انت تقوم بتعديلها واحد تلوالآخر ( تبقى على الإيجار ... )

طيب لية في المنتهية الاسم مكررمرتين في تعديلك اما في المرسل من قبلي مرة واحدة هل هناك سبب محدد وطبعا ابغى التقرير هذا يطلع بعد فورم التحميل وهل ممكن اضافة زر للصباعة في فورم التقرير

كلامك سليم 100 في المائة اعدك بفتح موضوع جديد لأي طلب آخر ولكن تعدني ان تكون موجود لسبب أنك معي منذ البداية من بداية التصميم المبدأي حتى التقرير الحالي لا تذهب بعيداً فلدي المزيد لأن الفكرة تجر أختها

اخي عبدالله نجحت والله باعجوبة وبعد مليون محاولة لحركة العقود العامة ( العقد مستمر - العقد منتهي ) الآن المتبقي كيف نضيف ( لم يسدد - تبقى على الإيجار ) الحركة العامة 1للمستأجرين للتعديل.rar

لقيتها لقيتها غير بدل 12 خليها 13 طلعت مزبوطة بس تحتاج دخولك وتزبط الباقي

استاذ عبدالله انا عدلت RAW بدل 3 خليتها 12 Private Sub TextBox1_Change() On Error Resume Next Dim W As Workbook Dim MyRange_Search As Range, Mycel As Range Dim R As Integer ListBox1.Clear Set sh = Sheets("ÞÇÆãÉ ÇáÓÊÃÌÑíä") Set MyRange_Search = Range("MY_DATA") For Each Mycel In MyRange_Search If LCase(Mycel) Like "*" & LCase(TextBox1) & "*" Then With ListBox1 .AddItem .List(R, 0) = MyRange_Search.Cells(Mycel.Row - 12, 1) .List(R, 1) = MyRange_Search.Cells(Mycel.Row - 12, 2) .List(R, 2) = MyRange_Search.Cells(Mycel.Row - 12, 3) .List(R, 3) = MyRange_Search.Cells(Mycel.Row - 12, 4) .List(R, 4) = MyRange_Search.Cells(Mycel.Row - 12, 5) .List(R, 5) = MyRange_Search.Cells(Mycel.Row - 12, 6) End With R = R + 1 End If Next On Error GoTo 0 1 End Sub وكاني احسن في أمل ما ادري ( تراني دخت )

ههههههههه محاولة طيبة واعتقد راح تجي معك لا تيأس وعلى فكرة انا كمان قاعد احاول ولكن لم اتوصل لنتيجتك ابداً

ياسلام يكفيني كلمة ( أبو ريان ) وهو اول مولود لي لأني حديث الزواج كم انت رائع بإختيارك مقدمة رسالتك وهذا دليل على نبل شخصيتك لا عدمناك

طيب اخي ابو عبدالله ممكن تنزل الملف حسب ماتوصلت الية وانا احاول كذا وكذا ممكن تزبط معي اذا ماعندك مانع وسوف اتابع معك لحين انجاز الفورم ( خليني اخربها )

شكراً للطف تعاملك واناواثق من عدم نسيانك ولكن من باب المداعبة فقط والمحبة لشخصكم الكريم

اجمل صباح للأخ عبدالله

شكرا حبيبي ياسر للطفك لا عدمناك

HELOOOOO ABDULLAH

حبيبي انت يا ياسر طيب ممكن خدمة المرفق حق في المشاركة السابقة ممكن تعمللي الفورم بعد فورم التحميل مثل الموجود في برنامج نظام الوثائق واكون شاكر لك وممنون لأن عبدالله اجازة

آآآآآآآآآآآه وينك يا عبدالله ياسر الحروف عندة زائدة الظاهر يبغى معلقة ( حسن ) مو (حسين ) ولكن حبيبي انا عارف بعد عمل خروج من الفورم ويظهر الأكسل الجدول روح انت الآن للصف 1 او 2 او 3 واعمل ادراج صف لا تستطيع ونفس الحكاية للاعمدة هل هناك حل لها