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

اليك هذا الرابط به ما تريد واليك ملفك بعد تعديل hide.rar

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

استأذن من استاذنا الحبيب @ابوخليل لأنك تستخدم الكود بعد التحديث واستاذنا ابو خليل قام بتعديل ذلك الى قبل تحديث واضاف كنسل يساوي ترو لكي يكون لا يخرج المؤشر الماوس فيه

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

وعليكم السلام استبدله بهذا Private Sub Cus_Mob_BeforeUpdate(Cancel As Integer) Dim phone As Integer phone = DCount("Cus_Mob", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]") If phone > 0 Then If MsgBox(" هذا الموبايل مكرر لللاعب رقم" & DLookup("[Cus_Num_D]", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]"), vbInformation + vbMsgBoxRight, "رقم مكرر") = vbOK Then Cancel = -1 Undo End If End If End Sub

ألف ألف شكر لحضراتكم .. ربنا يباركلكم هو دا بالظبط اللي كنت عايزه أخي الكريم أبو عبد الباري أخي الكريم خالد الرشيدي جزاكم الله كل خير وربنا يزيدكم من علمه وفضله

السلام وعليكم اساتذتى الاقاضل اثناء تصفحى اليوم لمنتدى اجنبى وجدت اداة مفيدة جدا لحفظ الاكواد وبها الكثير من الامثلة المحفوظة بداخلها وتعمل على 2003 حبيت اشاركها مع الاخوة فقمت بتحويل نسخة منها لتعمل على 2010 حتى يستفيد اكبر عدد ممكن فى صورة فى المرفقات للاداة دمتم فى رعاية الله CodeStore2003.rar CodeStore2010.rar

السلام عليكم جميعا.. لا يخفى على شريف علمكم أهمية المكتبات المرجعة في تطوير وتحسين قواعد بيانات أكسس، ومن المستحيل جداً أن تجد قاعدة بيانات بدون مكتبة مرجعة ما؛ سواءً كانت افتراضية أو مضافة من قبل المطور. .. لكن ما أعتقد أن بعضنا يجهله هو ما هية تلك المكتبات وكيفية ربطها والاستفادة منها.. والمكتبات المرجعية هي عبارة عن وظائف عامة Public Functions قائمة بذاتها أو مدرجة ضمن أصناف Classes، تم برمجتها لتستخدم على نطاق واسع. يمكن الوصول إلى المكتبات المتوفرة في ويندوز عن طريق مربع الحوار الخاص بإضافة المكتبات، أو عن طريق الشفرة عبر الإعلان عن متغير من نوع References، وما يميز هذا الأخير هو أنه يمكنك من تحديد مسار المكتبة وفحصه برمجيا؛ وبالتالي تصيد الخطأ ومعالجة.. << من الخطأ الشائع اعتقاد البعض أن ملفات المكتبات المرجعية يجب أن تكون ضمن مجلد نظام ويندوز System32 Folder! وهذا غير صحيح.. لكن ويندوز يقوم بوضعها هناك أفتراضياً؛ لسهولة الوصول والمشاركة بين التطبيقات، ولتقليل تكرار الملفات وخفض مساحة التخزين >> >> أكسس مكتبة مرجعية.. > عند إضافة قاعدة بيانات أكسس كمكتبة مرجعية يقوم أكسس << بدمج >> قاعدة البيانات الرئيسية بقاعدة البيانات المرجع لتصبح قاعدة بيانات واحدة.. > يمكن إضافة قاعدة بيانات أكسس كمكتبة مرجعية بجميع إمتدادتها المعروفة (mda,mdb,mde;accda,accdb,accde). > يمكن أيضاً أن تحتوي قاعدة البيانات على نماذج، تقارير، وحدات نمطية.. > يمكن تشغيل النماذج والتقارير بعد تغليفها بوظائف عامة. ** تجربة المثال.. * قمت بإنشاء قاعدة بيانات خالية من كل شيء إلا من ميكرو الإقلاع Autoexec، ووظيفة معززة للإقلاع تحتوي هي أيضا على وظيفة تقوم بفتح نموذج يحتوي على قائمة سرد بها أسماء النماذج في قاعدة بيانات المرجع. * قاعدة بيانات المرجع هي NorthWind 2007 * أضفت في هذه القاعدة وحدة نمطية أنشأت بها بعض الوظائف ومنها وظيفة إقلاع النموذج الذي سبق الإشارة إليه.. إليكم المثال Adding DataBase As Reference.zip

العفو وبالتوفيق

أستاذي الكريم / جزاكم الله خيرا بالفعل تمام ولكن هذا لا يمنع من الكتابة في العنوان الاول بارك الله فيكم وفي علمكم والحمد لله تم التوصل لما هو مطلوب بعد تجارب عديدة وفقني الله تعالى ولكن أتمنى شرح لما ارسلته لي لاني لم أفهمه كله أما ما قمت بعمله فهو على النحو التالي : تم وضع في العنوان 2 بعد التحديث If Not IsNull(Me.title2) Then MsgBox "لا يجوز جعل العنوان2 إلا بعد حذف البيانات من العنوان الآخر" Me.[حقل آخر].SetFocus Me.title2.Value = False Exit Sub End If وفي العنوان1 تم وضع عند الادخال If title2 = True Then MsgBox "2غير مسموح بأي بيانات إلا بعد حذف العلامة من المدخل بالعنوان" Me.title2.SetFocus Exit Sub End If في انتظار شرح ما أرسلته وجزاكم الله خيرا

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

اهلا بك اخي الكريم private تعني خاص مثال private sub total في السطر السابق قمت بتعريف كود على انه خاص اي ان هذا الكود يستدعى و يعمل ضمن النموذج المكتوب فيه الكود و اذا حاولت استدعائه من غير نموذج لن يجدي ذلك نفعا public تعني عام مثال public sub total في السطر السابق قمت بتعريف كود على انه كود عام اي انك اذا وضعت الكود السابق في نموذج فيمكنك استدعائه من نموذج آخر دون الحاجة لكتابة الكود مرة اخرى global تعني عالمي Global Strcod as String في السطر السابق تم تعريف متغير من نوع نص على انه عالمي و المقصود هنا ان المتغير يمكن استخدامه في اي مكان من قاعدة البيانات مع ملاحظة انه يمكنك ايضا تعريف المتغيرات بكلمة Public Public Strcod as String لكن عندما تريد استخدام المتغيرات لكافة النماذج يجب عليك وضعها ضمن وحدة نمطية كلمة ( Global ) هي كلمة قديمة و حاليا يحل محلها كلمة ( Public ) dim كلمة يقصد بها تعريف متغير Dim ii as Intger في السطر السابق تم تعريف المتغير ii على انه متغير من نوع رقمي set وتعني ضبط dim db as dao.database set db=currentdb في الكود السابق dim ii as intger المتغير في هذه الحالة يملك قيمة افتراضية وهي 0 اما في السطر السابق قمت بتعريف المتغير Db كقاعدة بيانات و لكنه مازال بحاجة الى تعريف قاعدة البيانات التي عرفته بها لذلك تستخدم كلمة Set و في هذا المثال ضبطت المتغير على قاعدة البيانات الحالية يتبع الفرق بين Sub و Function sub تعني موضوع او كود في في هذه الحالة الكود ينفذ دون ارجاع قيمة مثال public sub Amsg msgbox "aa" end sub عرفت الكود ليعطي رسالة مكتوب فيها aa و يستدعى بهذا الشكل call Amsg لاحظ هنا ان الكود لا يعيد قيمة هو فقط يعطي رسالة اما Function فهي وظيفة و هي تعيد قيمة مثال Public Function AdNum (ii as intger,ss as intger) as intger adnum=ii+ss end function في هذا المثال عرفت الوظيفة لتقوم بجمع عددين وتعطي الناتج حيث يمثل Adnum اسم الوظيفة و ii العدد الاول و ss العدد الثاني تستدعى بهذا الشكل call AdNum(10,15) لاحظ هنا ان الوظيفة تعيد قيمة وهي ناتج جمع العددين يتبع

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

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

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

الأخ الفاضلخالد الرشيدى السلام عليكم مشكرو لمرور العطر وشرحك السهل المفيد تقبل تحياتى

يوجد فرق بين thisworkbook و workbook الخطوات بالتفصيل انسخ الكود افتح محرر فيجوال بيسك بالضغط على alt+f11 في أعلى يسار المحرر نجد thisworkbook اضغط مزدوجا عليه الصق الكود عدل نص الرسالة إلى ما تريد

ياباشا ده شغل ممتاز الله ينور أنا جربت في نموذج البيانات الشخصية ( الموقع - القطاع - الفرع ) وأعتقد أنك تريد : عند اختيار قطاع يظهر المواقع الخاصة به في قائمة الموقع وعند اختيار موقع يظهر الأفرع (الشركات) الخاصة به في قائمة الفرع (الشركة) أليس هذا صحيحاً وهو ما تريد تنفيذه ؟

ولما تستعملين هذا المعيار ، يعطيك اكثر من سجل ، صح؟ فهذا معناه ان المعيار الواحد الذي في الاستعلام غير كافي ، فيجب ان تضيفي معيار او معيارين اضافيين جعفر

تفضل اخي الكريم db11.rar

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

السلام عليكم تفضل اخي الكريم علة المطلوب =IFERROR(INDEX(invoices,SMALL(IF(invoices[Invoice Code]=$B$5,ROW(invoices[Invoice Code])-3),ROW(1:1)),4),"") Invoice tracker1 - Copy_2.zip

لو تابعت الموضوع هنا فتكملة له ، وردا على سوالك لرؤية اكثر من عمود ، في النموذج لما نريد ZoomBox ، نستطيع فتحه بالضغط على الزرين Shift + F2 ، وبعدها رأيت هذا في الكود: . وهذا معناه ان البرنامج الخارجي Utility.accda هو الذي يقوم بفتح ZoomBox ، وانه مجرد نموذج (هذه الملاحظة من اسم النموذج في الكود) ، فنستطيع عمل نموذج غير منبثق ، ونفتحه بأي عدد من المرات ، هكذا: جعفر

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

وعليكم السلام تابعني هناك جعفر

طبعا ممكن جعفر

بارك الله فيك اخي العزيز ابو البراء

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

الف شكر لك اخي خالد

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

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

شكرا تم حل المشكلة بتغير الكود الثانى بالاول ولكم منى كل التقدير

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

اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه

هذه فكرة لابد من سرد جميع اسماء زر الامر في جدول table1 بالتوفيق Text2.rar

::: اعمل زر Delete Record بواسطة المعالج .

السلام عليكم ورحمة الله اخى الكريم الاستاذ سيد الملف يعمل عندى بدون اى كشاكل لذا ساقوم برفع الملف حتى تجربه بنفسك اخى الكريم الاستاذ سليم الكود الذى ارفقته بحلك هو كود رائع بلا شك ولكن تم استخدام الدالة "" لان الاعمدة المطلوب ترحيلها مختلفة عن عدد اعمدة المصفوفة الام اخى الكريم سيد اليك الملف سجل.rar

شكراً اخى شيفان ولم تعمل معي هذه ايضاً ولكنها عملت بهذا الكود nTikrar = DCount("[Cus_Nump]", "Cus_Enter", "[Cus_Nump]=" & Me.Cus_Nump & " And [Date_Enter] = forms![Cus_Enter]![Date_Enter]")

وعليكم السلام انتي لم تطلبي هذا مسبقا تفضلي الكود وبه هذه الخاصية: If DCount("*", "Q2") <> 0 Then Q2.Visible = True Me.Q2.Requery Else Q2.Visible = False MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! " End If جعفر

جرب هذا المرفق على العمود b كله وبأبسط كود ممكن ملحوظة: الكود مذكور في المشاركة السابقة No_writing in column b.rar

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

الكثير يتسائل عن كيفية انشاء ملفات ال DLL وربطها بالبرنامج في المرفق مثال بسيط يوضح كيفية انشاء مكتبة DLL و استخدمها MyDll.rar

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("I4:N11")) Is Nothing Then Target = Format(Now) End Sub ضع الكود السابق فى حدث الورقة ثم احفظ الملف بصيغة XLS أو XLSM

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

شرح الدالة VLOOKUP للبحث عن القيم بالجدول

السلام عليكم برنامج النهارده برنامج مهم يحتاجه كل مبرمج بيشتغل على قواعد البيانات اكسس .... عارفين ليه ؟؟؟؟ حقولكم السبب انه في بعض الاحيان ( لا قدر الله ) بتنضرب قاعدة البيانات وتروح البيانات اللي فيها في ( داهية ) ودي مصيبة !!!! طيب ايه الحل ؟؟؟ نرميها ؟؟؟؟ لا لا لا لا لا طبعا لا البرنامج ده بيصلح قاعدة البيانات بعد ما تنضرب ويرجع البيانات التالفة وينقذك بكل تأكيد من مأزق محقق المرفقات accessfix.rar

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

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

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

قاعدة بيانات للموظفين ........ المرفقات EMPlwee.rar