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

اليك هذا الرابط به ما تريد واليك ملفك بعد تعديل 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

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

الفرق بين Class و module الوحدة النمطية يخزن بها كود يستدعى من اي مكان في قاعدة البيانات وهو يخفف من كتابة الكود و تسهيل تطوير قاعدة البيانات في المثال السابق عندما عرفنا الوظيفة AdNum وهي تقوم بجمع عددين لنفرض انه لدينا 10 نماذج و نحن بحاجة لتطبيق كود الجمع في جميع هذه النماذج من غير المنطقي تكرار كتابة الوظيفة في كل نموذج اي اننا سنكتب الكود السابق 10 مرات و اذا اردنا ان نعدل او نطور الكود ستكون العملية صعبة و مملة و قابلة للخطا لذلك ننشئ وحدة نمطية ونضع الكود داخلها و بذلك يمكن استدعاء الكود من اي مكان class الكلاس هي تقريبا نفس الوحدة النمطية و لكن يوجد بعض الفروق الاساسية بينهما يتم التعامل مع الوحدة النطية باسم الكود المكتوب ضمنها مثال لنفرض لدينا وحدة نمطية اسمها Mod1 وبداخلها عشرة اكواد code 1 code 2 code 3 وهكذا و انا بحاجة الى استخدام الكود الاول في النموذج اقوم باستدعائه بهذا الشكل call code1 اما الكلاس فالموضوع يختلف لنفرض لدينا كلاس اسمها Class1 و بها عشرة اكواد code1 code2 code3 الخ وانا اريد استخدام الكود الثاني لا يمكن ابدا كتابة الاستدعاء هكذا Call Code2 السبب لانه عليك تعريف متغير يحتوي على الكلاس اولا ثم استخدامه ويتم تعريفها بهذا الشكل dim Cl = new class1 cl.code2 يتبع

اهلا بك اخي الكريم 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 من الاستعلام (كما هو في الدائرة الحمراء في الصورة في الاسفل): . جعفر

ربنا يبارك في حضرتك ويجازيك بكل الخير

https://www.mediafire.com/?7io6xidekmh0tdv @jjafferr طريقة الوصول للنموذج نموذج Admin home page Request status (Botton) Purchase Order (Botton) يفتح نموذج New Purchase وعند النقر على الارتباط التشعبي في النموذج الفرعي وهو رقم الطلب يفتح النموذج المطلوب واسمه ( Request Purchase order) وهذا النموذج للموافقة على الطلب والخصم من الميزانية الميزانية الموجودة بالنموذج هي Current Research budget تسحب اخر قيمة مدخلة فيه وهو حقل مخفي عشان نطرحه من تكلفة الطلب Order Cost والحقل temp هو نتيجة طرح الميزانية من تكلفة الطلب المطلوب : ادخال بيانات النموذج الى جدول الميزانية balance اولا تغير حالة الطلب من جديد الى موافق وطريقة الدفع كاش قيم الحقول المطلوب ادخالها في جدول balance من النموذج Request purchase order Research_ID نفسه اللي بالنموذج User_ID نفسه اللي بالنموذج Current Research budget هي temp الموجودة في النموذج Deposite قيمته صفر Withdraw هي Order Cost الموجود بالنموذج الاستعلام الي سويته اسمه balance insert مشكلته يكرر الادخال في كل مره

السلام عليكم تفضل اخى الكريم علة المطلوب عند ادخال رمز المادة يظهر اسم المادة والسعر والمجموع تلقائيا.rar

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

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

تفضل اخي الكريم 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

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

تسلم أستاذ ياسر خليل دائما تتحفنا بالجديد.

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

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

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

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

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

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

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

برامج شؤون الموظفين الاصدارة 3 ... مفتوح المصدر ... حلو .. فيه لمسات رائعة .... استفدت مما جاء في منتدانا من امثلة .... كلمة السر لصفحة البيانات العسكرية ( 183797) - اعيد واقول مفتوحة المصدر واذا اردت الدخول للكود ممكن تستخدم access decoder الذي سبق وان نزلناه في بداية المشاركات السابقة .... لكم تحياتي جميعا _________________________________.rar

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

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

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

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