أبوبسمله

وعليكم السلام اخى @فايز..

هل هذا ما تريد ؟

تم حذف تكرار الحقول فالتصميم ولم اجد احسن من هذا الشرح للاستاذ @Bluemind جزاه الله خيرا

بالتوفيق اخى

Posters(1).accdb

اتفضل اخى قاسم @khasem

شوف بيانات المشرف عماد هل هذا ما تريد فى العدد ؟

visit.accdb

اللهم آمين ووالديك وجميع المؤمنين والمؤمنات والمسلمين والمسلمات الاحياء منهم والاموات

انت لديك مربع النص الذى به المعادله nn

وكتبت معادلتك التاليه ووضعت شروطك وقلت ان كان يوم جمعه او سبت اكتب عطله رسميه وان لم يكن ضع nn طيب ماذا يحتوى nn ؟

=IIf(Format([mm];"dddd")="الجمعة" Or Format([kk];"dddd")="السبت";"عطلة رسمية";[nn])

طيب ما الذى نريد اظهاره انا اخدت من تصميم التقرير انك تريد اسم المدرسه وتفاصيل

طبعا حقل اسم المدرسه غير مضاف فقمت باضافته واجعلته غير مرئى واسميته ns

=IIf(Format([mm];"dddd")="الجمعة" Or Format([kk];"dddd")="السبت";"عطلة رسمية";[ns])

يارب اكون قدرت اشرحلك واوصلك المعلومه ببساطه

اذا اردت اظهار معلومات اخرى فى هذا الحقل اجمعهم فى الاستعلام فى حقل واحد ووضعه فالتقرير واخفه وضع اسمه كما تم الشرح

بالتوفيق اخى قاسم

وعليكم السلام اخى قاسم @khasem

هل هذا ما تريد ؟

اذا كان نشرح ان لم يكن وضح ماذا تريد ان يظهر مكان الخطأ ان لم يكن هذا عطله رسميه - السبت او الجمعه

بعتذر نسيت ارفاق الملف

visit.accdb

وعليكم السلام

هل تقصد هكذا اخى ام شئ آخر ؟

Pro-In-Tmt.rar

8 ساعات مضت, matin.murad said:

شكرا استاذ ( أحمد الفلاحجي ) ........ 

عفوا بسبب تاخير الرد ............ 

ممكن بعد الرجوع تعديل عليها و ارسالها الى جدول conform عند ارسال حذف سجلات القديمة من جدول conform

 

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

ولا يهمك اخى

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

بالتوفيق اخى

الشكر لله ثم لإخواننا واساتذتنا جزاهم الله خيرا 

1 ساعه مضت, الشربيني 123 said:

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

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

يسمع من بقك ربنا وازور واحج بيته وازور سيدنا محمد صل الله عليه وسلم

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

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

سوف احاول توفير بعض المواضيع ايضا واضعها لكن امهلنى بعض الوقت

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

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

وجزاهم الله خيرا اخواننا واساتذتنا 💐

عليه افضل الصلاه والسلام

4 دقائق مضت, kha9009lid said:

شوف يا ابا بسملة مع اني عملت نظام صلاحيات متكامل واستخدمه في برامجي

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

جزاك الله خير اخي احمد وكذلك اخي العزيز ازهر 🌹

اشوفه اشوفه 😀

نعم سهل وبسيط ماشاء الله ويسهل على المبتدئين امثالى فهمه والتعلم منه اخى واستاذى خالد 💐

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

تقديرى واحترامى لكم استذتى 💐

وعليكم السلام

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

واليك رابط ميكروسوفت للتوضيح والبحث فالمنتدى اكثر

https://support.office.com/ar-sa/article/تقييد-إدخال-البيانات-باستخدام-قواعد-التحقق-من-الصحة-b91c6b15-bcd3-42c1-90bf-e3a0272e988d

12 دقائق مضت, الشربيني 123 said:

والله ما عارف اشكرك كيف انت انسان بجد محترم وذوق  {ربنا يبعد عنك انت وكل حبايبك جنده (كورونا) كما بعد بين المشرق والمغرب } بالله عليك ادعي لي ربنا يفك كربي

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

56 دقائق مضت, kha9009lid said:

ممكن عملها

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

ولكن دعنا حاليا في الصلاحيات الثلاث

بحيث يكون لدينا جدول ياخذ اسم النموذج بشكل تلقائي من جدول النظام المخفي MSysObjects

وثلاث خانات اختيار اضافة تعديل حذف

وبالتالي عند فتح النموذج يتم التأكد من هذة الخيارات الثلاث

جرب الملف المرفق ربما يكون افضل من زر امر

مع الشكر والتقدير لاستاذنا الفاضل @osama ababneh

 

New Microsoft Access Database(2).accdb 728 kB · 2 تنزيلات

جزاك الله خيرا اخى واستاذى العزيز خالد وكذلك استاذ اسامه 💐

ولا اروع من كده

28 دقائق مضت, ازهر عبد العزيز said:

ادعي عليك ام ادعي لك

اما الاولى فعلى الشيطان لعنه الله عليه والثانيه فلاخوانى واساتذتى جزاهم الله خيرا

ربنا يصلح حالك اخى @ازهر عبد العزيز 💐

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

اللهم آمين

اهلا ومرحبا بك اخى واستاذى  @AlwaZeeR  جزاك الله خيرا

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

اخى قاسم

اولا عند تشغيل الاستعلام يقول لا يوجد حقل f33 فى جدول temp فيجب اضافته للجدول

بالنسبه لجدول الطلاب الموجود لا يوجد به الحقول المذكوره باستعلام الالحاق

بعد عمل استعلام الحاق اخر لاضافه البيانات وجدت انه يقوم بجلب بيانات اول صف التى هى عناوين البيانات حاولت تغيير false ل true فلم يعمل

قمت بعمل استعلام حذف لاول صف العناوين من جدول تمب ثم الالحاق باستعلام q شوف وظبط انت بقى باقى البيانات لكل عمود

معذره نسيت ارفاق الملف😀

Desktop3.rar

اخى قاسم

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

ماهى المشكله ؟

7 دقائق مضت, khasem said:

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

ارفق صوره للمشكله وملف الاكسيل المستخدم مع الملف الاخير الذى ارفقته

السلام عليكم اخى

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

ارفق لك رد لمعلمتنا الغاليه زهره جزاها الله خيرا
 

اقتباس

عندما تكون هناك اخطاء في الأكواد البرمجية او انك قمت بعمل زر أمر مربع تحرير وسرد ثم قمت بحذف هذه الأزرار وبقيت الأوامر الخاصة بهذه الأزرار في الكود فإنه لا يمكن التحويل لأن برنامج الأكسيس سواء 2000 او 2003 او 2007 يعتبر هذه من الأخطاء ولا يقوم بالتحويل الى mde او Accde .

لهذا كل ما عليك عمله هو فتح محرر الفيجول البيسك الخاص بالأكواد ومن ثم اختيار من القائمة الأمر Debug ثم اختر Compile فإذا كان يوجد لديك اخطاء في الأكواد فسوف تظهر ومن ثم قم بإصلاحها .

بعد الإنتهاء يمكنك تحويل القاعدة الى MDE للأكسيس 2003 او Accde للأكسيس 2007 .

نقطة اخيره : هناك عدد محدود للنماذج والجداول في قاعدة البيانات فلا تحاول ان تتجاوزها فهذه ايضا تمنع التحويل اذا كان عدد النماذج والجداول كثير جدا

فالمشاركه ع الرابط التالى

http://arabteam2000-forum.com/index.php?/topic/151888-تمت-الإجابة-مشكلة-انشاء-accde/&do=findComment&comment=762618

بالتوفيق

8 ساعات مضت, khasem said:

السلام عليكم 

هل استطيع التاشير على كل المكتبات ام عند الحاجة اليها

وعليكم السلام اخى قاسم

عند الحاجه الى المكتبه والله اعلى واعلم

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

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

msoFileDialogFilePicker = 3 من الرابط التالى

https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogtype

msoFileDialogViewList = 1 من الرابط التالى

https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogview

Private Sub btnLocateFile_Click()

    Dim varItem As Variant
    Dim strPath As String
    
   'Dim objFilePicker  As FileDialog تم تبديل هذا السطر بالتالى
    Dim objFilePicker  As Object
    
    Dim db As Database
    Dim rst As DAO.Recordset
    Dim strUnitNumber As String
    
    Set db = CurrentDb()
    
   'Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker) تم تبديل هذا السطر بالتالى
    Set objFilePicker = Application.FileDialog(3)
    
    With objFilePicker
        'Setup file dialog
        .AllowMultiSelect = False
        .ButtonName = "Select"
        
       '.InitialView = msoFileDialogViewList    تم تبديل هذا السطر بالتالى
        .InitialView = 1
        
        .title = "Select File"
        
        'add filter for all files
        With .Filters
         .Clear
         .Add "All Files", "*.mdb,*.accdb,*.xlsx"
        End With
        .FilterIndex = 1
        'disply dilog boxe
        .Show
    End With
    
    If objFilePicker.SelectedItems.Count > 0 Then
        
        m_strFileName = objFilePicker.SelectedItems(1)
        Me.txtImportFile = m_strFileName
        
    End If

End Sub

جزاك الله خيرا اخى واستاذى محمد وجمال وجعفر 💐

BA.mdb

وعليكم السلام اخى @ازهر عبد العزيز

هذا الملف به تقريبا جميع الاختصارات الخاصه بالاكسيس تم توفيره من قبل ام عهود جزاها الله كل خير 💐

موجود عندى منذ زمن اطلع عليه ولكنى لم اجد ما تريد به ولعلى راجعته بشكل سريع

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

بالتوفيق اخى

key.doc

وعليكم السلام

يوجد استعلام الحاق باسم q

اكتب رقم الفاتوره بالحقل بالنموذج ثم اضغط زر تنفيذ سيتم الحاق البيانات بالجدول tabl2 وعمل ريفرش وعرضها بالنموذج

يمكنك بعد ذلك عمل استعلام حذف البيانات التى تم الحاقها بالجدول tabl2 من الجدول conform لم اقم بعمله لانك لم توضح هل تريد حذفها ام الابقاء عليها

بالتوفيق

استرجاع الفاتورة البيع.mdb

منذ ساعه, Barna said:

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

جزاك الله خيرا اخي محمد إن شاء الله سوف اجرب غدا بإذن الله واوافيك بالنتيجة 

💐🌷🌹

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

والشكر موصول للاستاذ جمال @Gamal.Saad و محمد @Barna 💐

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

مشاركه مع اخى واستاذى @Gamal.Saad جزاه الله كل خير 💐

اخى الفاضل @khasem ما هو اصدار الاوفيس الذى لديك ؟

سيتم استدعاء المكتبه الذى اشار الاستاذ جمال اليك عليها كالتالى وتختلف من اصدار لاصدار يعنى فوق 14 ولدى 16 لان الاوفيس لدى 2016

ويمكن بدل استدعاء المكتبه

Dim objFilePicker  As FileDialog

Dim objFilePicker  As object

بالتوفيق اخى

من هنا

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

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

بالتوفيق