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

طرق استعمالها: 1. اذا اردنا استعمال المتغير في الحدث / الوحدة النمطية فقط (يعني لا يمكن اخذ قيمتها من نماذج/تقارير/استعلامات/وحدات نمطية اخرى) ، فنستخدم: Dim UserName as string او Private UserName as string ويجب ان نستخدم Dim لكل حدث في النموذج/التقرير ، اي نعيد كتابته لكل حدث ، بينما يمكننا ان نضع Dim / Private مرة واحدة في اعلى الصفحة ، ولا تكون داخل اي حدث ، هكذا Option Compare Database Private User_Name As String 2. بينما اذا اردنا ان تكون القيمة متوفرة في جميع كائنات البرنامج ، فنستخدم التالي في وحدة نمطية (حتى ولو كانت وحدة نمطية فارغة): Public UserName as string مثال هذا ، عندما تستعمل نموذج المستخدمين ، ثم تريد الاحتفاظ باسم المستخدم في الكود ، فكل الذي تعمله هو: UserName = "jjafferr" ثم من اي مكان في البرنامج تستطيع ان تستعمل هذا المتغير UserName ، مثلا: User_Prevliage = iif(UserName = "jjafferr" , "Admin", "User") . ويمكننا ان نجعل الكود لا يعمل إلا بتعريف المتغير ، وفي الواقع هذه صعبة في البداية ، ولكن في النهاية سيكون برنامجك افضل ، وهكذا نجعل الكود يفرض علينا استعمال المعرف: . . واهمية هذه الخطوة هي عندما تريد ان تحفظ البرنامج لاحقا بصيغة mde او accde ، فيجب عليك ان: . واذا كانت المتغيرات في الكود معرّفة ، فلن تحصل على اخطاء في التحويل جعفر

على بركة الله نبدأ أول درس و ننتظر ملاحظاتكم حول أي شيء نسيته و هو متعلق بهذا الدرس أو أي معلومة أخطأت بها: الــدرس الأول : المتغيرات تعتبر المتغيرات النواة الأساسية أو حجر الأساس بالنسبة لكل برنامج في أي لغة برمجة كانت. يعني قبل البدأ يجب أن تقوم بتعريف المتغيرات التي تحتاجها و تحدد نوعها قبل كل شيء. 11- أنواع المتغيرت: هناك العديد من أنواع المتغيرات و كل نوع يخصص له حجم معين في الذاكرة. سوف نقوم بإضافة شرح جميع أنواع المتغيرات و الحجم الذي يأخذه كل نوع من الذاكرة: String: نص يتسع المتغير النصي إلى 2 جيجا بايت و كل حرف يشغل 1 بايت Boolean: ياخذ نوعين من القيم True و False (طوله 2 بيت ) Byte: بايت يكون رقم بين 0 من 255 (طوله 1 بايت) Integer : عدد صحيح (طوله 2 بيت ) قيمته من 32768- إلى 32767 Long : عدد صحيح طويل (طوله 4 بيت) قيمته من 2,147,483,648- إلى 2.147.483.647 Signal: عدد عشري (طوله 4 بيت) قيمته من 3.402823x1038- إلى 1.401298x10-45- للقيم السالبة و من 1.401298x10-45 إلى 3.402823x1038 للقيم الموجبة Currency: عملة (طوله 8 بيت) قيمته من 922،337،203،685،477.5808- إلى 922،337،203،685،477.5807 Double : مزدوج عدد عشري (طوله 8 بيت) قيمته من 1.79769313486231x10308- إلى 4.94065645841247x10-324- للقيم السالبة. و من 4.94065645841247x10-324 إلى 1.79769313486232x10308 للقيم الموجبة Date: نوع البيانات تكون على شكل تاريخ (طوله 8 بيت) يبدأ تاريخ vba من 1/1/100 حتى 31/12/9999 Object : لتخزين الكائنات التي تحتوي على خصائص و وظائف و يتم تعيينه بجملة set ويشغل في الذاكرة 4 بايت أو حسب خصائص و وظائف الكائن المحدد. و سوف نخصص درس لعرض أنواع الكائنات. Variant : لتخزين كل الأنواع السابقة ويمكن تخزين المصفوفات بداخله أيضاً 2- طريقة الإعلان عن المتغيرات: الإعلان عن متغير يعني حجز مكان في ذاكرة الكمبيوتر باسم هذا المتغير و يحدد حجمه حسب نوع المتغير. و يتم تعريف المتغير أو الإعلان عنه بواسطة العبارة DIM . مثال: Dim A as Integer للإعلان عن أكثر من متغير: Dim a,b as integer للإعلان عن أكثرمن متغير لأنواع مختلفة في نفس السطر: Dim A As Double, B As Integer 3- ملاحظات: - - يفضل الإعلان عن نوع المتغير لزيادة سرعة التعامل معه . - - المتغيرات التي لم تحدد نوعها يعمل فيجول بيسك علي الإعلان عنها تلقائيا من النوع Variant وهو أبطأ أنواع المتغيرات . - - بالنسبة للإعلان عن أكثر من متغير من نفس النوع بالطريقة التالي: Dim a,b as integer هنا b فقط من النوع integer أما a فهو في هذه الحالة يعتبر من النوع Variant يجب أن يتم التعريف بهذا الشكل: Dim a integer,b as integer أو Dim a as Integer Dim b as Integer 4- شروط تسمية المتغيرات: - - اسم المتغير يجب أن يبتدأ بحرف . - - يمكن استعمال الحروف التي تلي الحرف الأول رقم أو حرف أو الإثنين معا. - - لا يجب أن تكون هناك فراغات بين أسماء المتغير و يمكن استعمال الشكل التالي: id_user - - يجب عدم استعمال نقطة أو رمز خاص مثل ( ؟ ، * ، ) ، ( ، /......... إلخ ) ولكن يمكن استخدام الشرطة السفلية ( _ ) - - أن لا يكون اسم المتغير من الكلمات المحجوزة في الأكسس.

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

انا اسف جدا

اخى اليك المطلوب اذا فهمت بطريقة اخرى واضف انت عليه عدم التكرار عمل المطلوب بطريقة اخرى.rar

انظر ماذا ترى هل فعل المطلوب ام لا اخبرنى استخدام vlookup مع الفورم 111.rar

ارفق الملف بدلا من الصورة

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

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

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

بالضبط اخي شفان ، هذه الطريقة اللي اقترحها انا كذلك ، ولك السبق فيها الطريقة هي ان تسمي كل ليبل بمسمى الحقل الذي يرافقه ، هكذا الحقل: m5 الليبل: lbl_m5 فاذا عملنا هذا ، فيمكن استخدام هذا الكود المختصر on error resume next Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then ctl.Visible = False Me("lbl_" & ctl.Name).Visible = False Else ctl.Visible = True End If 'IsNull End If 'ControlType Next ctl جعفر

الحل الوحيد امامي هو ان تضيف هذا الكود في اسفل الكود السابق اي في اسفل كلمة نيكست لكن انا مش راضي لهذا الكود لان لازم تكتب لكل ليبل لنفسه If Me.m1.Visible = False Then Me.Label1.Visible = False مثلا اسم عنوان حقل مي 1 هو ليبل 1 لذا كتبنا اذا مى 1 بيكون مخفي خلي ليبل 1 بيكون مخفي ولازم تكتب لكل حقول هكذا احنا نكدر ان نخفي كل ليبل بسوى لكن بها اسماء لذا انا اجد بس هذه الطريقة لذا ارجوا من اساتذنا من لدية طريقة افضل ان يخبرنا مع تقدير اسف استاذي جعفر القدير بعد انا عملت مشاركة رأيت مشاركتك

الحمد لله

استخدم ( or ) معها اي يعني اييف ( التوجيه = "مرتجع بيع" اور التوجيه = "مرتجع شراء" : حقل البيع * -1 : حپل البيع)

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

أخي العزيز / سيد تيجر السلام عليكم ورحمة الله وبركاته إليك هذا الحل لعله يفي بالغرض إن شاء الله بس قمت بتعديل بسيط في ورقة المخزن بحيث قمت بتكرار التاريخ لليوم في الخانات الفارغة التي أسفل منه تقبل تحياتي وتقديري مخزن.rar

3454 salim.rarأخي العزيز / أبو حمادة وبعد أذنأستاذنا الكبير سليم حاصبيا حفظه الله وبارك الله فيه هذا حل عن طريقة التصفية المتقدمة إن شاء الله يفي بالغرض والعفو 3454.rar

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

غير السطر التالي If Application.WorksheetFunction.CountBlank(sh.Cells) <> sh.Cells.CountLarge Then ليصبح بهذا الشكل بفرض أن النطاق هو A1:B3 If Application.WorksheetFunction.CountBlank(sh.range("A1:B3")) <> sh.range("A1:B3").Count Then

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

معادلتك ايضاً رائعة لكن حاول بدون عامود مساعد

السلام عليكم الطريقة اليدوية كالتالي من خيارات الاكسل اختر صيغ ثم كما في الصورة

يمكن وضع أوراق العمل الثمانية في مصفوفة والعمل عليها فقط Sub Test() Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In Sheets(Array("Sheet1", "Sheet2")) 'Put Your Sheet Names Here If Application.WorksheetFunction.CountBlank(sh.Cells) <> sh.Cells.CountLarge Then sh.PrintPreview 'Change PrintPreview To PrintOut End If Next sh Application.ScreenUpdating = True End Sub

وعليكم السلام جرب الكود التالي Sub Test() Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If sh.Name <> "الرئيسية" And Application.WorksheetFunction.CountBlank(sh.Cells) <> sh.Cells.CountLarge Then sh.PrintPreview 'Change PrintPreview To PrintOut End If Next sh Application.ScreenUpdating = True End Sub

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

السلام عليكم اختي ، 1. طلبت منك: ولم احصل عليه 2. كل اسم له رقم مختلف ، فهذا معناه انه لا يمكن ان يكون لأي شخص اكثر من غياب واحد فقط ، هذا لأن جدول الغياب به رقم الموظف فقط ، والرابط بينه وبين جدول الاسماء هو الرقم !! رجاء تعديل الجدول/الجداول واضافة بيانات زيادة حتى نستطيع عمل اللازم ، ثم اعطيني مثال منه جعفر

السلام عليكم اليكم الطريقة كاملة نقوم بانشاء ملفات مثلا كتالي نفتح ملف الاكسل ولنفرض المشتريات ونقوم بعمل الفورم المطلوب للعمل نكر العملية لجميع الملفات المطلوبة نحفظ الملف ونقوم بتفح قاعد ةالبيانات واتبع الصورة / يجب ان يكون هناك جدول واحد على الاقل في القاعدة ليقبل الخيار الاخير كرر العملية نفسها لجميع الملفات اصبح لدينا الان ثلاث جداول اكسل داخل قاعدة البيانات افتح تصميم استعلام واتبع الصورة يجب ان تقوم باضافة جميع الخانات الى الاستعلام لكل جدول استعلام خاص به اخيرا قم باختيار طريقة عرض SQL وانتبه الى جميع الاضافات ان تكون موجودة ثم احفظ كرر العملية نفسها ليصبح لديك 3 استعلامات افتح ملف الاكسل باسم مدير واتبع الصورة حدد الاستعلام المطلوب واتبع الصور تم استيراد البيانات بنجاح الان قم بفتح ملف المشتريات مثلا واكتب به ثم احفظ اذهب الى صفحة المدير واختر بيانات وتحديث الكل وشاهد النتيجة مبروك عليك انتهى الشرح الان فكر بعمق كيف تستطيع ربط جمع الصفخات او المستخدمين ببرنامجك حسب ماتريد انت وشكرا تحميل الصور والملفات والشرح http://www.up-00.com/?rIXR ايضا تستطيع رفع قاعدة البيانات على الشيربونت او موقع مشاركة للعمل على الشبكة او الانترنت مثلا انت في مصر والموظف في السعودية والمراقب في سوريا يستطيعون العمل معا على قاعدة واحدة عبر الشير بونت او موقع مشاركة وشكرا

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

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

شروحات أكسس الصوتية والمرئية دروس الأستاذ عبدالفتاح كيره شرح 3 طرق لفتح نموذج من داخل نموذج آخر الاستفادة من خاصية القيمة الافتراضية للحقول شرح التحقق من عدد أرقام الرقم القومى شرح استخلاص ت الميلاد من الرقم القومى دالة mid-val شرح دالة DateSrial شرح البحث عن اسم يتضمن أى حروف البحث بمعلومية شرطين باستخدام استعلام و كود شرح استعلام إلحاق استعلام الإلحاق بدون تكرار مع تعديل بعض الحقول الملحقة كيف تفتح نموذجا على سجل محدد كيفية التحكم فى حقل بنموذج فرعى من خلال النموذج الرئيسى كيفية البحث عن السجلات و الانتقال إليها التنقل بين السجلات في نموذج أكسيس بخطوات محددة التخطيط لإنشاء قاعدة بيانات ======================================================== تعلم الاكسيس ( باللغه العربيه صوت و صوره ) لــ admiral http://www.officena.net/ib/index.php?s=c6d3bad3a53a5ac634ea791d48f6472c&showtopic=31301 ======================================================== شرح اكسس 2003 فيديو (1)... لقنديل الصياد http://www.officena.net/ib/index.php?showtopic=48569 شرح اكسس 2007 (2) http://www.officena.net/ib/index.php?showtopic=51147 شرح اكسس 2010 (3) http://www.officena.net/ib/index.php?showtopic=51150 ======================================================== تعليم برنامج أكسس 2010 لـــ ALSHAMAL http://www.officena.net/ib/index.php?showtopic=54641 ======================================================== أكسيس 2013 شروحات متنوعة الاستاذ عبداللطيف طراقجي شرح برنامج مايكروسوفت أكسيس 2013 http://www.officena.net/ib/index.php?showtopic=59950&hl= الدرس الأول إنشاء و إدارة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=59961&hl= الدرس الثاني: إدارة العلاقات و المفاتيح في برنامج الأكسيس http://www.officena.net/ib/index.php?showtopic=60073&hl= الدرس الثالث: التنقل من خلال قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60177&hl= الدرس الرابع: حماية و صيانة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=60261&hl= الدرس الخامس: طباعة و تصدير قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=60376&hl= الدرس السادس: إنشاء الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60468&hl= الدرس السابع: تنسيق الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60584&hl= الدرس الثامن: إدارة السجلات في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60681&hl= الدرس التاسع: إنشاء و تعديل الحقول في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60809&hl= الدرس العاشر: إنشاء الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60893&hl= الدرس الحادي عشر: إنشاء الاستعلامات الاجرائية في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60988&hl= الدرس الثاني عشر: تعديل الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61086&hl= الدرس الثالث عشر: استخدام و تجميع الحقول المحسوبة في الاستعلام http://www.officena.net/ib/index.php?showtopic=61177&hl= الدرس الرابع عشر: إنشاء النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61265&hl= الدرس الخامس عشر: تعيين عناصر تحكم النموذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61351&hl= الدرس السادس عشر: تنسيق النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61409&hl= الدرس السابع عشر: إنشاء التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61468&hl= الدرس الثامن عشر: تعيين عناصر تحكم التقرير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61561 الدرس التاسع عشر و الأخير: تنسيق التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61634

أساتذتى وأخوتي هذا كثير علي عمل لايقارن بما تقدموة وقدمتموة لي ولغيرى من تلاميذكم جزاكم الله خيرا علي أعمالكم وكلماتكم