نجوم المشاركات

اخى الكريم على حسب ما فهمت من طلبك شاهد المرفق الرقم السرى هو 111 ويمكنك تغييره تقبل تحياتى لا يسمح بدخول البيانات إلا عن طريق الفورم.zip

اخى الحبيب انس حمد لله على سلامتك شفاك الله وعافك اسال الله تعالى ان يشفيك شفاء لا يغادر سقما اود ان الفت انتباه حضرتك الى الرابط التالى وبخصوص طلبك تم تعديل الكود ليناسب طلبك شاهد المرفق هل هو ما تريد تقبل منى وافر الاحترام والتقدير اخوك الصقر ملف بحث بفورم ممتاز.zip

صدر بحمد لله كتاب (مشروعي) و هو كتاب متكامل باللغة العربية في إدارة المشاريع والاعداد لشهادة PMP. الكتاب من تأليف كلٍ من: د/عمرو مسلم و م/ محمد طاهر عرفه ويقع في أكثر من 800 صفحة تغطي المجالات المعرفية الأساسية لإدارة المشروع ،كما يمثل الكتاب مرجع عربي متكامل لمن يرغب في الاستعداد لشهادة مدير المشروع المحترف PMP. اعتمد الكاتبان بالأساس على تبسيط الإصدار الخامس من الدليل المعرفي لإدارة المشروعات ليس من خلال الاختصار ولكن عن طريق الشرح والتوضيح وإضافة أمثلة وتلميحات ورسومات توضيحية وخرائط ذهنية ومعلومات يحتاجها كل مدير مشروع مع الكثير من التمارين المتنوعة في أسلوبها وذلك لضمان استيعاب القارئ لما جاء في كل فصل من معلومات. ويحوي الكتاب خاصية فريدة لتوضيح أين سيتم استخدام أهم مخرجات كل عملية كمدخلات للعمليات الأخرى، مما يؤدي لمساعدة القاريء على الربط المتميز بين كافة العمليات و المجالات المعرفية الواردة في الكتاب. بالإضافة الى ذلك، يحوي الكتاب ما يقارب 500 سؤال تدريبي للاستعداد لاختبار شهادة مدير المشروع المحترف PMP بالإضافة الى 60 نموذج من أهم النماذج المستخدمة في إدارة المشاريع ، فضلا عن تطبيق عملي لاستخدام أهم النماذج ضمن فصول الكتاب، وأخيرا قائمة بأهم المصطلحات المستخدمة في إدارة المشاريع وترجمتها. أخيراً، فإن الكتاب مُوَجه لكل من يفتقد مادة علمية متكاملة في إدارة المشاريع باللغة العربية والتي قد تمثل عاملاً مهماً لتخطي حاجز اللغة الانجليزية والتي جاءت بها معظم الكتب والمراجع في هذا المجال. لمعلومات التوزيع و التواصل ووصلة الكتاب على موقع أمازون إضغط هنا

تهنئة متأخرة للأخ أنس دروبي بمناسبة الترقية الي عضو محترف الف مبروك و الي الاعلي باذن الله

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

القوائم في الطريقة الاولى ما راح تختفي ، ولكن لن يستطيع تغيير البيانات عن طريقها. بس في الطريقة الثانية ما يقدر يعمل بيها شئ ، جرب ، انت ما خسران عادة ، لا نخلط بين هذه النماذج ، فيكون عندك النموذج الرئيسي للبرنامج ، ويكون فيه زر فتح نموذج للقراءة ، وزر لإدخال البيانات لنفس النموذج ، وزر ثالث لتعديل البيانات ، طبعا هذه النماذج الثلاثة هي اصلا نموذج واحد ، ولكن تفتح كل نموذج حسب الطريقة التي ذكرتها لك في في الكود اما انك تكون في نموذج القراءة ، ثم تريد تضغط زر فيه علشان تعدل البيانات ، فالكود: Me.AllowEdits = True Me.AllowDeletions = True جعفر

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

السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي وحبيبي ومعلمي اخي الصقر على سرعة الرد والحل الاكثر من رائع لم كنت اتوقع السهولة في الحل تكتفي في إضافة هذا الامر البرمجي البسيط If ComboBox1.MatchFound = False Then GoTo 1 If ComboBox1.Value = .Cells(R, 2) Then بارك الله فيكم وجزاكم كل خير على الخدمات التي تقدموها لطلاب العلم في هذا المجال وبالنسبة للترقية بارك الله فيكم على نشر الرسالة صراحة لم انتبه للموضوع الذي نشر حول ذلك الامر أن شاء الله نكون عند حسن أدارة الموقع ونكون في خدمة طلاب العلم والمعرفة الموضوع اصبح الأن مجاب بشكل كامل بارك الله فيكم

السلام عليكم ورحمة الله جرب ما يلي : lc = Range("IV2").End(xlToLeft).Column Set Rng = Range(Cells(2, 2), Cells(25, lc)) ActiveSheet.PageSetup.PrintArea = Rng.Address أو lc = Range("IV2").End(xlToLeft).Column ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(25, lc)).Address

نعم اخى جعفر كل ما نريده هو استبدال النماذج القديمة بنسخة نماذج محدثة ؟؟ اليس كذلك كل ما على المصم هو اصدار التحديث داخل قاعدة بيانات جاهزة للتحميل وعند تحميلها وفتحها نحدد من خلالها قاعدة البيانات المراد تحديثها ثم نقوم باستبدال النماذج من خلالها من القاعدة الجديدة الى القاعدة القديمة واعتقد ان هذا متاح برمجيا ولكن السؤال كيف يمكن ان نعلم المستخدم بوجود تحديثات جديدة وهذا ما اعمل عليه الان بعون الله

بسم الله الرحمن الرحيم السلام عليكم وجدنا حاجه لعدد من الاخوه الاعضاء في هذا المنتدى الرائع الى هذا الموضوع المهم قرننا ان نخوض فيه والابواب مشرعه للاساتذه الكرام للاستئناس بارائهم القيمه وبنيه خالصه لوجه الله تعالى فهو حسبنا وثواب هذا العمل مهدي روح معلمنا الاول والدنا رحمه الله -ونسال الله ان يغفر لنا ولوالدينا وللمؤمنين جمعا وبعد تاخرنا في طرح الموضوع بسب كبر حجم الفديوات مما اضطرنا الى رفعها على اليوتيوب لتعم الفائدة بمرور الزمن ازدادت الحاجه الى قواعد بيانات قويه وكفوءه وذات امان عالي ومساحات خزنيه كبيره نظام الاكسس نظام قواعد بيانات ممتاز وذو كفائه عاليه للاستخدامات الصغير والمتوسط ويمتاز الاكسس برخص الثمن وسهولة الاستخدام وذلك بسبب كثرة الكتب التي تختص فيه وكثرة المواقع والمنتديات التي تقدم الحلول والمشوره اهم مشاكل الاكسس 1- قاعدة بيانات الاكسس مبنية على ملف اي تحفظ جميع بيانات القاعدة في ملفات مستقلة لها.عند حذف هذا الملفات تحذف قاعدة البيانات مع جميع البيانات 2- عدم توفر الامان العالي اذا ما قورن ببقيه نظم قواعد البيانات 3- ان استخدام قاعدة البيانات من قبل اكثر من مستخدم يؤدي الى ضغط كبير على محركات النظام عند استخذامه على الشبكه 4- احد اهم المشاكل في استخدام الاكسس على الشبكه عدم تمكين اكثر من مستخدم من فتح نموذج ادخال واحد في نفس الوقت 5- محدودية عدد المستخدمين فهي لا تتجاوز ال10 مستخدمين على الشكبة اذا كان الاكسس مرفوع على شبكة 6- محدودية المساحه الخزنيه للبيانات في الاكسس فهي لا تصل الى 2 كيكا بت بضمنها مكونات قاعدة البيانات بعد ان برزت الحاجه الى مساحات خزنيه اكبر خصوصا مع تقادم المشروع وتوسعه اما SQL Server فقد غطى على هذه العيوب، بل اضاف مميزات اخرى نظام متكامل لادارة قواعد البيانات يعمل في الخلفية ويعتمد على خادم وعميل فجميع البيانات تخزن في الخادم وهذا يعطي امان عالي للبيانات من الضياع ونظام الامان العالي جدا والمساحه الخزنيه العاليه وعدم محدودية المستخدمين وكذلك باستطاعته احتواء اكثر من قاعدة بيانات واحدة. وكل قاعدة بيانات تحتوي على جداول مختلفه وعمل مختلف والعمل بكفائه عاليه مع الشبكات سواء الداخليه او عبر الانترنيت وهناك مميزات اخرى ومن عيوبه بعض الصعوبات في استخدامه لا يمكن بناء قاعدة بيانات متكاملة لا بمساعدة بعض البرامج ومنها الاكسس والكرستال وغيرها وللحصول على مميزات الاكسس والتتخلص من عيوبه توجد ثلاث طرق لعمل ذلك 1- تحويل الاكسس الى مشروع Access ويتم بتكبيرحجم جميع مفردات قاعدة البيانات وهذه العمليه معقده وتحتاج الى تغيرات جوهريه في قاعدة البيانات 2. تكبير حجم البيانات من قاعدة بيانات Access إلى قاعدة بيانات SQL 3 – العمل بالنهاية الاماميه والنهاية الخلفيه النوع الثالث سوف نتطرق اليه بشيء من التفصيل ونعمل على شرحه للسهوله التي يتمتع بها والذي لا يجعلنا نتخلى عن ال Access حيث ستكون فقط الجداول في SQL Server وبقية مفردات قاعدة البيانات من نماذج واستعلامات وتقارير ومايكروات ووحدات نمطية في Access متطلبات العمل 1- نحتاج الى مساحه مناسبه من القرص الصلب الذي سوف نركب SQL Server عليها 2- عمل حسابات للمستخدمين للوندوز وبرقم سري 3- نسخة من SQL Server المجانية SQL server Expres لعمل سيرفر http://www.microsoft...s.aspx?id=29062 4- نسخة من SQL server Management studio للتحكم بالسيرفر 5- عمل اتصال odbc 6- قاعدة بيانات Access فارغة ا- تركيب ال SQL server Express الفديو يوضح ذلك https://www.youtube.com/watch?v=03AYKVSsjII ب- تركيب ال SQL server Management studio https://www.youtube.com/watch?v=STSADB1BAXo ج- عمل قاعدة بيانات على SQL server فارغه وبنفس اسم قاعدة Access والاسم ليس ضروري ان يكون نفسه ولكن للاستدلال على القاعدة لان SQL server ممكن ان يحتوي على اكثر من قاعدة بيانات https://www.youtube.com/watch?v=89p9M9ZE6nw

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم الكود بإغلاقه .. أسطر الكود مشروحة داخل الكود .. Sub SplitWorkbook() 'تعريف المتغير من النوع النصي Dim xPath As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet 'تعيين المتغير لتساوي قيمته مسار المصنف الحالي xPath = Application.ActiveWorkbook.Path 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each SH In ThisWorkbook.Sheets 'نسخ ورقة العمل SH.Copy 'حفظ ورقة العمل بنفس الاسم ونفس المسار Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'إغلاق المصنف الجديد والذي أصبح هو المصنف النشط Application.ActiveWorkbook.Close False 'الانتقال لورقة العمل التالية Next 'تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub * ملحوظة : يجب ألا تكون هناك ورقة عمل بنفس اسم المصنف Split Workbook ، حتى لا يحدث مشكلة أثناء تنفيذ الكود أو لتجنب هذه المشكلة يمكن إضافة هذا السطر On Error Resume Next أرجو أن ينال الملف رضاكم ، وتستفيدوا منه في المقام الأول ... دمتم في رعاية الله وطاعته .. وهذا رابط لقناتي على اليوتيوب (في انتظار آرائكم حول القناة كبداية لمرحلة جديدة ..) My Channel أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

السلام عليكم لدينا في الملف المرفق مثال بسيط لبرنامج المخزن والمطلوب كيفية حساب الكمية المتوفرة في المخزن من خلال تسجيل المدخلات والمخرجات في المخزن وعدم السماح باخراج كمية غير متوفرة من المخزن وجزاكم الله خير SimpleStor.rar

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

السلام عليكم ورحمة الله وبركاته فيديو خطوات تصميم برنامج بدون معادلات او اكواد VBA اتمنى ان يكون هذا الفيديو بسيط والخطوات واضحه للجميع . زكاة العلم نشره برجاء مشاركة الجميع ولاتنسونى بصالح دعاؤكم ========================== فى برنامج التقارير المصمم بالجداول المحوريه وطريقة مقسم العرض pivot &slicer وضعت عنونا ان البرنامج مصمم بدون معادلات او اكواد وهو بالفعل كذلك كان هدفى الاتى -ان ابرز الامكانيات الرائعه والسهله والبسيطة لل pivot والتى مايظن البعض انها صعبه ومعقده وان اكسر هذه الصعوبه. -والتفكير فى حلول اخرى لمشاكل بطىء الحساب بسبب المعادلات الكثيره او الاكواد . مما يجعل العمل على ملفات صعب للغايه -حاولت ان اعرض الموضوع ببساطه وهذا كان هدفى -هذا وما كان من توفيق فمن الله وحده، وما كان من خطأ أو سهو أو زلل أو نسيان فمني ومن الشيطان رابط الفيديو على اليوتيوب https://www.youtube.com/watch?v=SbfBPHpLFRo&list=PLg7Q0x2ucveeEYIGaoM0pbpXFOWm4S8i6

السلام عليكم ورحمة الله وبركاته أخواني من إدارة وإعضاء أنتم العطاء أنتم تمثلون روح الفريق أشكر تعاونكم وتفانيكم لمساعدتنا لكم خالص دعواتي وامتناني على حرصكم وتعاونكم فلقد استفدت منكم حتى في دراستي لاحرمكم الله الأجر والثواب

بارك الله فيك اخي العزيز عبد العزيز وياريت ما تطول الغيبة عنا وطبعا المدونة او الجروب او الصفحات او اي حاجه لن تكتمل الا بوجودكم اخواني في الله فياريت تشاركونا تقبل تحياتي

السّلام عليكم و رحمة الله و بركاته ألف ألف مبروك أخي الغالي " ياسر العربي " على المدوّنة الخاصّة .. عمل منظم و متقن و رائع بأتم معنى الكلمة عقبال المزيد من الابداعات و النجاحات بجميع المجالات إن شاء الله فائق إحتراماتي و إعجاباتي

آه فهمت الآن عندما تريد ان تفتح نموذج للقراءة فقط ، ولا تريد احد ان يستطيع تغيير البيانات ، ولا حتى من القائمة ، افتح النموذج هكذا: docmd.OpenForm "Form_Name",acDesign,,,acFormReadOnly لاحظ الجملة الاخيرة ، هي التي تجعل النموذج للقراءة فقط (acFormReadOnly) اما اذا اردت ان تقفل حقل معين ، فاكتب الكود التالي على حدث تحميل النموذج: me.Field_Name.enabled=false جعفر

ما فهمت ، وضاعت علينا ساعة الى الان ياريت تعطيني شرح مفصل ، فانا لم ارى برنامجك ، ولا اعرف شئ عنه إلا الذي تشرحه انا حتى زوجتي ما تدلعني بهالاسم بس لأنك دلعتني ، أأمر وتدلل جعفر

هلا احوي ابونادر ما قصدك بـ " تختفي علامة القوائم المنسدلة " ، يعني القائمة اللي تطلع لما تضغط بالزر اليمين؟ جعفر

وعليكم السلام السبب ظاهرا ، ان الاسطر الاطول ، اضافت vbcrlf او vblf (يعني انتقل للسطر التالي) في نهاية كل سطر العلاج ، احد اهم طرق العلاج ، هو معرفة السبب ، والذي هو في برنامجك ، ومثل ما قال اخي ابوعبدالله ، محتاجين نشوف برنامجك بينما ، اذا تركنا كل شئ كما هو ، واحنا نعرف اسم ومسار الملف ، فممكن نضع الكود التالي ، بعد عملية تصدير txt (طبعا لازم تغير اسماء الملفات ومسارهم) : Private Sub cmd_Clean_Click() File_From = Application.CurrentProject.Path & "\377.txt" File_To = Application.CurrentProject.Path & "\377_2.txt" Dim TextLine Open File_From For Input As #1 'open file for input Open File_To For Output As #2 'open file for output Do While Not EOF(1) 'Loop until end of file. Line Input #1, TextLine 'Read a line into variable. If Len(TextLine) > 5 Then 'if the line is NOT empty, write it to File_To Print #2, TextLine End If Loop Close #1 'Close file. Close #2 End Sub ومثل ما قال ابوعبدالله: (ويادار ما دخلك شر) جعفر

mtahirhassan حتى الآن جميع النسخ مطبوعة ويتم طباعتها في الولايات المتحدة الامريكية ويمكن الشراء من خلال أمازون من الرابط التالي: http://www.amazon.com/My-Project-Arabic-Management-Preparation/dp/1530386373/ref=sr_1_1?s=books&ie=UTF8&qid=1460091806&sr=1-1 يمكن الشحن من دبي الى السعودية أو قطر وسعر الشحن حوالي 55-60 درهم اماراتي للكتاب الواحد بالاضافة لسعر الكتاب الأصلي 160 درهم اماراتي مازلنا في مرحلة المفاوضات مع الناشرين والمكتبات للبدء في نشر الكتاب. وبإذن الله سننشر أسماء الأماكن والمكتبات التي سيتم التوزيع بها بخلاف أمازون. مع تحياتنا وتقديرنا. (للتوزيع في الامارات ، يرجى الاتصال على تليفون 0509904913 السيد/ أدهم اسماعيل) مع وافر التحية والتقدير

السلام عليكم ممكن عمل هذا من خلال الفورم وجزاكم الله خيرا

موجود في الكود غيّر المسار في السطر الاول ، واحذف السطر الثاني: 'File_Path="C:\Temp" File_Path = Application.CurrentProject.Path & "\" جعفر

حضرتك روح على ايقونه فك الحمايه من الشيت 111 وبعد التعديل ارجع اغلق الحمايه مره اخرى

تفضل هذا الكود: Private Sub رقم_الحافظه_DblClick(Cancel As Integer) 'File_Path="C:\Temp" File_Path = Application.CurrentProject.Path & "\" File_Name = Me.رقم_الحافظه & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "File not found." End If End Sub جعفر New Microsoft Office Access Application.zip

اذا بتتوقف عن الاسئلة ، سنطلب من المنتدى ان يُغلق ، فالله يخليك واصل اسئلتك ضع هذا الكود في الحدث الحالي للنموذج الرئيسي: Private Sub Form_Current() If Me.[مصروف Query subform].Form.RecordsetClone.RecordCount = Then MsgBox "No Records" End If End Sub للعلم ، الكود فيه صفر ، ولكنه لسبب ما ، لا يظهر: RecordCount =0 Then جعفر

' غير هذا السطر .Cells(i, 5) = Left(.Cells(i, 5), 1) + 1 & Right(.Cells(i, 5), 2) ' بهذا السطر .Cells(i, 5) = Left(.Cells(i, 5), 2) & Right(.Cells(i, 5), 1) + 1

بعد اذن استاذى سليم اخى الكريم الاستاذ عطا جرب الملف المرفق على حسب ما فهمت تم عمل كود للقائمه المنسدله فى الخليه E2 فقط عند الاختيار منها يتم جلب الاسماء والمجموع طبقا للفصل المختار وتم تعديل فى الشيت 1 & 2 الاسماء فى العمود b تكون الى رقم 32 اسم فقط والباقى فى العمود K يبدأ السريل من 33 الى 64 السبب فى ذالك هو التصميم اللى موجود بالشيت يوسف 2015 اللى هو مطلوب جلب البيانات فيه طبعا انا عملت الكلام ده فى شيت 1 & 2 فقط وعليك انت بقى تظبط باقى الشيتات من 3 الى 20 بنفس الطريقه اذا حبيت تجرب الكود جرب فقط اختيار الفصل 1/1 أو 2/1 اللى هما تم ظبت التنسيق بهما جرب وعلمنى بالنتجية تقبل تحياتى دفتر أعمال السنة تعديل.zip

كيف يمكننى الحصول على الكتاب

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

بالنسبة للسؤال الاول : يمكن في برنامج اكسل ان نستعمل المصطلحات الثلاثة في آن واحد ( معادلة - دالة - كود ) و يمكن استعمال واحد او اثنين حسب متطلبات البرنامج لاكن المعادلات و الدوال تجعل من الاكسل بطيئ كثيرا كما تزيد من حجمه ، اما الكود فلا يؤثر في شيئ سوى اثناء التنفيذ في الاكواد ذات الشروط الكثيرة او البحث في كم هائل من البيانات ، هذا يجعل الكود يأخذ نوعا من الوقت في التنفيذ ، لذا ينصح في البرامج ذات المعطيات الكثيرة استعمال الكود بالنسبة للاكسس فانا لا اعرف عنه الكثير و اعتقد انه يوجد تشابه او على الاقل شبه تشابه لكن ميزة الاكسس السرعة و استيعاب كم هائل من البيانات على خلاف الاكسيل بينما البرمجة بلغة Visual Basic او Visual Studio فهناك تشابه كبير و كبير جدا مع الاكسيل هذا كل ما اعرفه لاو السلام عليكم

تفضل هذا النموذج ، بزر استيراد بيانات اول صفحة ، وزر حفظ البيانات في الاكسل: والكود (لاحظ اسم ومسار ملف الاكسل ، في الحدثين): Option Compare Database Dim ExcelApp As Object 'Excel.Application Dim WkBk As Object 'Excel.Workbook Private Sub cmd_Import_From_Excel_Click() File_Path = Application.CurrentProject.Path & "\372.62293-SER OH.xls" Set ExcelApp = CreateObject("Excel.Application") Set WkBk = ExcelApp.Workbooks.Open(FileName:=File_Path) 'With WkBk.Sheets("input data") With WkBk.Sheets(1) Me.Control_No = .Range("B2").Value Me.SN = .Range("B3").Value Me.DATE = .Range("B4").Value Me.TS_Name = .Range("B5").Value Me.Component_PN = .Range("B7").Value Me.Description = .Range("B8").Value Me.JIC_NO = .Range("B10").Value Me.JIC_Rev_NO = .Range("B11").Value Me.JIC_Rev_Date = .Range("B12").Value Me.CMM_JIC_Approval = .Range("B13").Value Me.CMM = .Range("B14").Value End With If Not (ExcelApp Is Nothing) Then ExcelApp.Quit Set WkBk = Nothing Set ExcelApp = Nothing End Sub Private Sub cmd_Save_to_Excel_Click() File_Path = Application.CurrentProject.Path & "\372.62293-SER OH.xls" Set ExcelApp = CreateObject("Excel.Application") Set WkBk = ExcelApp.Workbooks.Open(File_Path) ExcelApp.Application.Visible = False 'True 'With WkBk.Sheets("input data") With WkBk.Sheets(1) 'WkBk.Sheets(1).Range("B2").Value = Me.Control_No .Range("B2").Value = Me.Control_No .Range("B3").Value = Me.SN .Range("B4").Value = Me.DATE .Range("B5").Value = Me.TS_Name .Range("B7").Value = Me.Component_PN .Range("B8").Value = Me.Description .Range("B10").Value = Me.JIC_NO .Range("B11").Value = Me.JIC_Rev_NO .Range("B12").Value = Me.JIC_Rev_Date .Range("B13").Value = Me.CMM_JIC_Approval .Range("B14").Value = Me.CMM End With WkBk.Save WkBk.Close Set WkBk = Nothing Set ExcelApp = Nothing MsgBox "Done" End Sub 372.Database1.mdb.zip جعفر

هذا هو الموضوع الذى كنت أعنيه ويبدو أننى أخطأت فى نسخ الرابط وجزاك الله خيرا بالموضوع المذكور يوجد كود لعمل ارتباط بقاعدة البيانات المرفوعة على الاستضافة هل يمكننى استخدام هذا الكود لربط البرنامج بالجهاز السرفر ؟

اخوانى بعد الاطلاع على كافة التعليقات اشكركم جميعا جارى تصميم قاعدة بيانات مدرج بها كافة املاحظات التى ادرجتموها سلفا تستطيع ان تقدم من خلالها دعما فنيا شاملا للعملاء بما فى ذلك امكانيه تحديث قاعدة البيانات لدى المستخدمين ان شاء الله والله الموفق

طبعاً يمكن ذلك Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim my_date As Date my_date = #4/30/2016# If Date > my_date Then With Sh.UsedRange.SpecialCells(-4123, 23) .Value = .Value End With End If End Sub

السلام عليكم أما عن معنى هذه المصطلحات فهي : ـ 1 الدوال و المعادلات و الاكواد هي اجراءات نقوم بها لتنفيذ طلب ما سواءا كان هذا الطلب يتعلق بالحسابات او البحث او التاريخ او النصوص او الهندسة . . . . الدوال : هي تابعة لبرنامج الاوفيس و معرفة داخل البرنامج بمعنى مثل دالة الجمع Sum او دالة احصاء مثل Count او دالة بحث مثل Index و هكذا .... المعادلة : هي كأ نقول مثل : نريد جمع الخلية A1 مع الخلية A2 و نريد ان يكون الناتج في الخلية A3 فنقول بكل بساطة A3=A1+A2 مثل المعادلات التي تدرس في المدارس الكود : او ما يسمى بالماكرو و هو تنفيذ مثل ما سبق ذكره في الدوال لاكن بصورة اكبر و بميزات غير موجودة في الدوال و هو يعتمد على كلمات تسمى الكلمات المحجوزة التي لا يمكن استعمالها إلا من خلال الكود مثل الشرط IF أو الحلقات التكرارية ( For ........ Then .......Else ........End IF ) أو Do أو Private أو Sub أو Public . . . . . . .. أما عن كيفية كتابة كود فهو يعتمد اولا على ترجمة ما تريد تنفيذه الى كلام رياضي لا يتناقض مع المنطق بمعنى يقبله العقل ( ترجمة نصية ) ثم نحول هذا الكلام الى كود باستعمال الكلمات المحجوزة التي ذكرناها قبل قليل مثال : اريد ان ابحث في العمود A1:A20 عن كلمة تبدأ بالحرف ( م ) مثلا ـ 1 صياغة ما اريده على شكل نص : يا اكسل اريد منك ان تظهر لي الكلمات الموجودة في العمود السابق بشرط ان تبدأ الكلمة بالحرف م و إن وجدتها لونها بالبرتقالي وإن لم تجدها اخبرني بذلك . و كأنننا نكتب رسالة لشخص ما ـ 2 تحويل هذا الكلام الى كود '----------------------------------------------------------------------- ' حلقة تكرارية ' روح ابحث من الخلية 1 الى الخلية 20 For x = 1 To 20 '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' الشرط ' اذا كان الحرف الاول في اليمين هو حرف م If Right(Cells(x, 1), 1) = "م" Then '----------------------------------------------------------------------- '----------------------------------------------------------------------- 'جواب الشرط ' لون الخلية بالبرتقالي Cells(x, 1).Interior.ColorIndex = 46 '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' احتمال عدم تحقق الشرط Else '----------------------------------------------------------------------- '----------------------------------------------------------------------- 'اظهر لي مساج يؤكد عدم وجود ما طلبته MsgBox "لا توجد نتائج" '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' انهاء الشرط End If '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' اكمل حتى الرقم 20 الموجود في اول الكلام Next '----------------------------------------------------------------------- ملاحظة هذا الشرح لا يعتمد على منهجية علمية بل يعتمد على تجربة خاصة فقط

يلزمك في هذه الحالة هذا الكود Private Sub Worksheet_Activate() Dim my_date As Date my_date = #4/30/2016# 'يمكتك اختيار التاريخ هنا اخر نيسان If Date > my_date Then With ActiveSheet.UsedRange.SpecialCells(-4123, 23) .Value = .Value End With End If End Sub

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

=IFERROR(INDEX(Table1[القيمة];MATCH(A2;Table1[[المخالفة ]];0);1);"") السلام عليكم ورحمة الله اكتب هذه المعادلة و اسحب نزولا

انصح بهذه الطريقة دائما وخصوصا عند نقل القاعدة لاجهزة اخرى بالتوفيق

أخوي حسين ايش رايك نطلع مثل ما يقولون Out of the Box ، وننظر للموضوع بشكل ابعد من الاكسس فقط ايش رايك بهذا البرواز: . وهكذا عملته: بحثت في الانترنت عن برواز ، وانزلته ، وكان عرضة اطول من طوله ، فاستعملت برنامج رسومات وادرته 90 درجة وحفظته ، ضيّقت الكائنات في التقرير ، علشان البرواز يبين من كل الجهات ، وبس : . وعلشان حجم البرنامج لا يكبر بسبب الصورة ، احفظ الصورة في مجلد البرنامج واربط الصورة ، بدل ان تجعلها مضمنه جعفر 338.2.برنامج الفواتير.mdb.zip

وعليكم السلام أخي أوس نعم هذه نقطة هامة ايضا ، لذلك ، وفي تنسيق حقل التاريخ في الجدول ، يجب ان يكون التنسيق dd/mm/yyyy او اي تنسيق رقمي آخر ، فهذا سيحل المشكلة من البداية اسمح لي أخي أبو عبدالله ان اقول ، انه لا يُفضل الكتابة باللغة العربية في اي من كائنات البرنامج ، إلا كبيانات في جدول ، لأني يوم من الايام صادفت مشكلة في هذه النقطة كذلك جعفر

بعد اذن حضرات الاعضاء المحترمين انا شغال على برنامج لادارة محل ملابس وكنت عايز اعمل في فاتورة المبيعات LIST BOX وفوق الليس بوكس مربع نص اكتب فيه كود الصنف فيجبلى اسم الصنف فى الليست بوكس فبمجرد ما اضغط على اسم الصنف فى الليست بوكس يضاف الصنف تلقائى الى الفاتورة فهل يمكننى عمل ذلك ياريت من الاخوة الكرام الرد عليا بسرعة ولكم منى جزيل الشكر New Microsoft Access Database.rar

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

بارك الله فيك اخونا ابو محمد بصراحة موضوع غاية في الاهمية وهو استخدام الاكسس كواجهة تعامل واستخدام الSQL قاعدة تخزينية

يتم ذلك عن طريق تحويل قاعده البيانات الى MDE في اكسس 2003 بعد الانتهاء من التصميم واخذ نسخه احتياطيه

السلام عليكم قمت بالتعديل بحيث انه يقوم بحفظ خلايا بمدى ملائم للشرت ويقوم بحذف الشرت بعد حفظ الصورة بدون اظهار رسالة الاكسل لتاكيد الحذف ويتم حفظ الصورة في فولدر ملف الاكسل هذا بشكل سريع وساقوم بالتعديل بطرق اخرى Sub Export_Range_Images() ' ========================================= ' Code to save selected Excel Range as Image ' ========================================= Dim P Dim oRange As Range Dim oCht As Chart Dim oImg As Picture P = ActiveWorkbook.Path & "\" Set oRange = Range("A1:O35") Set oCht = Charts.Add Application.ScreenUpdating = False Application.DisplayAlerts = False oRange.CopyPicture xlScreen, xlPicture oCht.Paste oCht.Export Filename:=P & "SavedRange.jpg", Filtername:="JPG" oCht.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub خبور خير حفظ صورة من نطاق خلايا معين.rar

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