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

اخى الكريم على حسب ما فهمت من طلبك شاهد المرفق الرقم السرى هو 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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى 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

السلام عليكم ورحمة الله وبركاته فيديو خطوات تصميم برنامج بدون معادلات او اكواد 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 السيد/ أدهم اسماعيل) مع وافر التحية والتقدير

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

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

السلام عليكم هو المطلوب جزيت خيرا اشكرك

استبدل الكود بهذا Function where_are(my_string As String, rg As Range) As String where_are = "" mY_text = "" Application.Volatile For Each cel In rg If InStr(cel, my_string) > 0 And Len(my_string) >= 2 Then mY_text = mY_text & cel.Offset(0, -1) & "," End If Next where_are = Left(mY_text, Len(mY_text) - 1) End Function

تفضل هذا الكود: 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

السلام عليكم بالنسبة للبداية اعتقد انها تكون اولا بالتعرف على بعض التسميات المهمة سواءا في الدوال او الكود مثل : Worksheets - Sheets - Rows - Columns - Cells - Range و هذه الكلمات اسمها يدل عليها بمعنى الذي يعرف اللغة الانجليزية بعض الشيئ لا يجد صعوبة في معرفتها ، هذه الكلمات هي التي نسميها كلمات محجوزة و للتعرف عنها إفتح ملف اكسيل ثم اذهب الى المطور vba و ذلك بالضغط على المفتاحين Alt+F11 ستجد في الجانب الايسر اسم الملف المفتوح ThisWorkbook و اسفله اسماء اوراق العمل ورقة1 ، ورقة2 . . . . . اضغط مزدوجا على اي منها تفتح لك في الجانب الايمن مكان ادراج الكود ، اكتب اي حرف ثم اضغط بعده بيمين الفأرة و اختر من القائمة complete word ستظهر لك قائمة كبيرة من الكلمات تلك هي التي نسميها كلمات محجوزة ابدأ في المرور عليها ستجد نفسك تعرف الكثير منها من خلال اسمها ما معنى الكلمات المحجوزة ؟ في المحرر الذي انت فيه الآن و كتبت فيه ذلك الحرف ، اكتب اي كلمة من عندك مثل اسم شخص او مدينة او اي شيئ و ضع امام الكلمة نقطة ( . ) فلا تلاحظ اي شيئ اما اذا اخترت كلمة مثل الكلمات التي كتبتها لك قبل قليل مثل Sheets - Rows - Columns - Cells - Range ثم ضع مباشرة بعدها نقطة ستفتح امامك قائمة و ذلك لان هذه الكلمات خاصة بالاكسل و هو يعرفها طبعا مع مرور الوقت ستعرف انه بامكانك حجز كلمات من عندك و ذلك بتعريفها مسبقا للاكسل مثلا لوكتبت كلمة officena و هو اسم المنتدى ثم كتبت بعده نقطة فلا تلاحظ اي شيئ لاكن اكتب اولا هذه الجملة Dim officena As Worksheet ثم انزل بعدها بسطر و اكتب كلمة officena و ضع امامها نقطة ستجد القائمة قد اصبحت موجودة لان هذه الكلمة اصبح الاكسل يعرفها من خلال التعريف باستعمال كلمة Dim و عرفها على انها ورقة عمل من خلال كلمة As Worksheet تكلمت مباشرة في الاكواد لانني ارى ان البداية تكون من هنا احسن ( هذه على الاقل في نظري ) و السلام عليكم

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

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

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

السلام عليكم هل تقصد بهذه الطريقة البيانات.rar

تفضل هذا النموذج ، بزر استيراد بيانات اول صفحة ، وزر حفظ البيانات في الاكسل: والكود (لاحظ اسم ومسار ملف الاكسل ، في الحدثين): 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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب أنس الدروبي...أتقدم لكم بالتهنئة الحارة على الترقية التي تستحقها بجدارة وإلى المزيد من التقدم والعطاء بخطى واثقة وعزيمة لا تلين .. والسلام عليكم.

اخى انس دروبى الف الف مبروووووووووووك ننتظر برنامج انس المحاسبى

السّلام عليكم و رحمة الله و بركاته "أنس دروبي" ألف ألف مبروك التّرقيّة المستحقّة عقبالْ المزيد من النّجاحات في كل المجالات فائق إحتراماتي

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

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

السلام عليكم قمت بالتعديل بحيث انه يقوم بحفظ خلايا بمدى ملائم للشرت ويقوم بحذف الشرت بعد حفظ الصورة بدون اظهار رسالة الاكسل لتاكيد الحذف ويتم حفظ الصورة في فولدر ملف الاكسل هذا بشكل سريع وساقوم بالتعديل بطرق اخرى 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