أبو عبدالله الحلوانى

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

السلام عليكم فى هذا الموضوع مرفق به ما تريد

السلام عليكم جرب هذه الفكرة قد قمت بالتعديل قليلا على جدول الحركة واستغنيت عن وجود جدول مستقل لكل مخزن بل جدول الحركة يكفى ومنه نستخلص كل ما نريد من بيانات 1.rar

جزاك الله خيرا وبارك لكم أستاذنا أبو إبراهيم لا حرمنا الله من ابداعاتكم - حضرتك اتعلمت اسلوب الهاب المشاعر أيضا أهو أستاذ وائل الحبيب - ولا تغضب من تلك الكلمات - فالتناصح حق بين المؤمنين بعضهم على بعض أخى ما يقوم به اخوتك من مساعدة هى مجرد فكرة للوصل لمرادك وعليك بعد أن تتعلم من هذا المثال البسيط لتعممه وتستغله على ما تريد وفيما تريد. فمثل اخوتك واياك كمثل الدليل يدلك ثم عليك أنت المسير - فالطريق طريقك أنت. فالحل بين يديك ثم أنت تبحث عنه هنا وهناك وتنتظر طويلا وتنزعج من عدم الاجابة. وتأتى بمثال جاهز وتريد أحدهم يطبق لك المثال على نموذج لك - هذا نموذجك أنت وأنت أدرى به طبق عليه المثال الذى لديك قدر الاستطاعة حتى تتعلم خباياه وأفكاره - وان كانت البرمجة ليست مجالك فقد خضت فيها واضعت عمرا طويلا فاما تكمل ما بدأت واما ... انا اسف على هذا الكلام ولا تغضب من - وان كنت أنا أولى بهذه النصيحة منك. ثانيا- وتضامنا مع مثال أستاذنا أبو ابراهيم ففى المتصفح الصغير الذى صنعه لك يمكنك الوقوف داخل المتصفح والضغط على زرى ctrl + F ستظهر لك النافذة كما بالصورة وأعتقد أن هذا ما تبحث عنه. ففيها عمل هاى لايت على كلمات البحث والتنقل كذلك بين كلمات البحث.

السلام عليكم جعل الله هديتك فى موازين حسناتك وعجل لك الشفاء وردك الى أهلك والينا سالما معافا آمبن

شاشة نموذجي القراءة والاقتباس من الكتب 3.rar

من تنسيق عنصر التحكم اختر نسبة مؤوية percent ومن موقع العلامة العشرية حدد 1 أو 2 حسب ما تريد أن يظهر من أرقام عى اليمين. انظر الصورة المرفقة

السلام عليكم جرب هذا ووافنا بالنتائج شاشة نموذجي القراءة والاقتباس من الكتب2.rar

السلام عليكم حضرتك مكبر الموضوع أكثر من اللازم لفتح ملف الpdf كل ما عليك هو مناداة اسم الملف بمساره الكامل بهذا الكود FollowHyperlink "هنا اسم الملف باكامل مع الامتداد" وسيقوم الويندوز بفتح الملف الذي تريد وفقا للبرنامج المناسب لفتحه ملاحظة: من مزايا ال pdf انه ممكن يفتح مع مستعرض الويب وكل نسخ اويندوز تحوى مستعرض وكل الأجهزة كذلك تحوى مستعرض ويب أو أكثر - مثل جوجل وفايرفوكس و.... - ملاحظة أخرى الكود لمناداة وفتح أنوع مختلفة من الملفات وليس ال pdf فقط. شفت الموضوع بسيط ازاى

السلام عليكم جرب هذا لعله يوافى مطلبك قمت بانشاء فورم جديد مشابه للذى بمرفقك تماما - لا تقلق - مع حذف بعض الأشياء واضافة أخرى أرجو أن ينال اعجابك - ولا تحرمنا من دعائك عملي المطلوب التطبيق عليه.accdb

جرب المرفق التالى ووافنا بالنتائج ملاحظة: أستخدم اصدار 5.5 لبرنامج الضغط رار ان لم تكن لديك احدث نسخة لن تتمكن من فك الضغط UpdateList.rar

أبشر إن شاء الله جارى العمل

السلام عليكم بالاضافة لما تقدم به أ/ محمد أحمد لطفى فان استعلام تحديث سيفى بالغرض مهما كان حجم البيانات مثل هذا: UPDATE AccountsTbl SET AccountsTbl.AccountName = "الصندوق"; حيث: AccountsTbl 'اسم الجدول AccountName 'الحقل المراد التعديل عليه

السلام عليكم جرب هذا المرفق OpenExelFile.rar

جزاك الله خيرا أستاذنا جعفر وأعتذر عن التأخر بالاجابة لم تكن المشكلة بقطع السطر كما تفضلتم - ولكن يبدوا أن المشكلة بكود اللصق نفسه وعل كل قد وجدت الحل فى أحد المواقع الأجنبية بهذا الكود .Range("A16:AY62000").Select .Range("AS16").Activate .Sheets.Add After:=.ActiveSheet .Sheets(2).Range("A1:AY62000").Value = .Sheets(1).Range("A16:AY62000").Value وجزاكم الله خيرا

Up

للرفع

جزاك الله خيرا عمل جميل لو تسمح لدى بعض المقترحات لاثراء الموضوع: 1- لو تم اضافة تاريخ عقد المستأجر - وتنبيه بقرب انتهاء العقود 2- اخر تاريخ سداد للمستأجر وحساب الايجارات المتأخرة عليه

السلام عليكم تفضل أرجو أن يكون هذا ما تريد db2.mdb

السلام عليكم أرجو أن يكون هذا ما تريد فعله ملاحظة هامة: كل ما قمت به هو ترتيب للكود الذى أنشأته أنت فحسب - بالاضافة لإيقاف الكود الخاص بتايمر الفورم لزيادة الفائدة: اعلم أن الكود يتم تنفيذه وفقا لتسلسل الأوامر داخله, مثال: 1- forms!Form1!text1 = 123 2- docmd.openform "Form1" وفقا لترتيب الأوامر بالأعلى سيحدث خطأ لأنه تم اسناد قيمة للفورم قبل فتحه لذى يجب أن يكون ترتيب الأومر هكذا 1- docmd.openform "Form1" 2- forms!Form1!text1 = 123 ProgressBar.rar

السلام عليكم ورحمة الله وبركاته الكود التالى من داخل ماكرو تم تسجيله بالاكسل (تسجيلا آليا) ويعمل بشكل جيد عند استدعائه من داخل الاكسل المشكلة تحدث عند استدعاء الماكرو من داخل الأكسس تظهر رسالة الخطأ التالية: Function runExcelMacro(wkbookPath) Dim XL As Object Set XL = CreateObject("Excel.Application") With XL .Visible = false .displayalerts = False .Workbooks.Open wkbookPath .Range("A16:AY62000").Select .Range("AS16").Activate .Selection.Copy .Sheets.Add After:=.ActiveSheet .Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '<---------------المشكلة تحدث هنا .Range("A:A,C:H,J:W,Y:AE,AG:AR").Select .Range("AG1").Activate .Application.CutCopyMode = False .Selection.Delete Shift:=xlToLeft .Range("A1").Select .ActiveCell.FormulaR1C1 = "bill_value" .Range("B1").Select .ActiveCell.FormulaR1C1 = "edafat" .Range("C1").Select .ActiveCell.FormulaR1C1 = "account_no" .Range("D1").Select .ActiveCell.FormulaR1C1 = "Customer_name" .Range("E1").Select .ActiveCell.FormulaR1C1 = "billNo" .Range("C1").Select .Cells.Find(What:="ÇáãÑÇÌÚ", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate .ActiveCell.Select .Selection.ClearContents .Sheets("Sheet2").Select .Sheets("Sheet2").Move Before:=.Sheets(1) .ActiveWorkbook.Close (True) .Quit End With Set XL = Nothing End Function أرجو المساعدة فى معرفة سبب الخطأ قد جربت عددا من المحاولات ولكن لم تفلح وجزاكم الله خيرا.

يبدو أن لديك أكثر من اصدار الأوفيس كـ 2007 أو 2010 معا أو 2003 مثلا يمكنك الاستغناء عن إحدى النسخ التي لا تريد والاكتفاء بنسخة واحدة فحسب

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

جرب هذا مع ملاحظة تغير المكتبة المشار اليها بالصورة وفقا لإصدار الأوفيس لديك تعطيل النظام.mdb