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

تفضل أخي خالد ..... bb1_kan.accdb

وجدت هذا العمل الرائع في الانترنت منذ فترة وقدمه صاحبه مجاناً يرجو الدعاء لوالديه رحمهما الله تعالى :: بيانات صاحب العمل :: عبداللطيف طراقجي 2013و لغاية عام 2000 من عام ً مدرس تكنولوجيا المعلومات سابقا حاصل على شهادات في إدارة قواعد البيانات من شركة مايكروسوفت MCDBA SQLserver (Microsoft Certified Database Administrator) MOUS Access (Microsoft Office User Specialist) صفحته الشخصية My Certifications http://www.pinterest.com/abdotarakji/mycertifications هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،

جرب هذا الكود في زر إضافة إذا كان حقل ( SuID ) نص وليس رقم If DCount("[SuID]", "[Contacts_T]", "SuID ='" & [Forms]![Contacts_T]![SupplierID] & "'") > 0 Then MsgBox "عذرا الاسم مكرر تاكد من عدم التكرار ", vbMsgBoxRight + vbCritical, "" Me.Undo Me![SupplierID].SetFocus Exit Sub End If

If DCount("*", "[Contacts_T]", "[TxtField]=' " & Me.TxtField & "'") > 0 Then MsgBox "كود المورد موجود في دليل الهاتف", vbCritical, "تنبية" Untested

آسف على هذا الإرباك.. Worker.mdb

هل هذا مناسب لك ...... ولو أنه غير منطقي بالنسبة لي ......

اين التكرار الذي تتحدث عنه غير موجود لدي ... أنظر ..

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

السلام عليكم في استعلام stock_query خانة عدد المنصرف تظهر صفر مع العلم ان اجمالي الكمية المنصرفة 56 فما هو السبب Desktop.rar

استاذنا الكبير استاذ @أبو إبراهيم الغامدي لدى نموذج به خانة كود العميل مربوط بملف بى دى اف بنفس كود العميل بملف على الحاسب عند الضغط عليه دبل كليك يفتح الملف مباشرا. نفس مشكلة الاخ محمد لدى انه عند تعير الكود لا يتغير اسم الملف . ما اريده هو عند تغير الاسم فى النموذج يتغير اسم الملف بنفس تغير اسم النموذج Private Sub crn_DblClick(Cancel As Integer) File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name  If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "صورة ايصال العميل غير محفوظة" End If End Sub

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

شكرا استاذ @عبد اللطيف سلوم على ردك .. لكن الكود يظهر خطاء

Private Sub Name_beforeUpdate() If DCount("Name", "MyTable", "[Name]=" & Me.name) > 0 Then MsgBox " هذا الاسم تم تكراره سابقا" cancel=true End If end sub name اسم الحقل mytable اسم الجدول me.name الاسم حسب النموذج ضع هذا الكود في حدث قبل التحديث واحذف اول سطر لانه رح يتكرر او انسخ الكود كما هو والصقه

جربته، جيد ================================ جزاك الله خيرا وأحسن إليك ===============================

1- في الورقة الاساسية قم بتسمية الجداول كما يلي (RG_1 (TABLE1) RG_2 (TABLE2 (RG_3 (TABLE3) RG_4 (TABLE4 2-قم بتسمية الشيت الاساسية "Main" (أفضل عدم تسمية الاوراق باللغة العربية لصعوبة نسخ الكود ولصقه حيث تظهر علامات و أحرف غير مفهومة) 3-نفذ هذا الماكرو Option Explicit Sub Copy_ranges() '======================================= Rem RG_1 (TABLE1):RG_2 (TABLE2) Rem RG_3 (TABLE3):RG_4 (TABLE4) '====================================== Dim k As Byte Dim i As Byte k = 1 For i = 1 To 4 Sheets(k).Range("A1").CurrentRegion.Clear Sheets("Main").Range("RG_" & i).Copy Sheets(k).Range("A1") k = k + 1 Next End Sub الملف مرفق COPY TABLES.xlsm

السلام عليكم تم تعديل الكود وأرجو أن يناسبك , قم ينسخه ولصقه في ملفك الأن لن يعتمد هذا الكود على الورقة1 , يعني في السابق كنت تضع تاريخ ظهور الرسالة وتاريخ الأغلاق في الورقة الأولى أما في هذا الكود فقد تم وضع التاريخين داخل الكود (افتح الكود وستجد ذلك بداخلة , قم بتغيير التاريخ حسب رغبتك) هذين التاريخين تم وضعهم داخل الكود حتى نستغني عن الورقة1 جرب الكود الجديد في الملف المرفق ملاحظة : العملية الحسابية التي يتم بها حساب رقم الترخيص هي عملية واحدة من بين عشرات العمليات الحسابية وتستطيع تغييرها كما تريد تحياتي المصنف11.xlsm

تفضل تم عمل 90% من التأسيس لاحظ ان اسماء الطوابق والغرف ثابت ليس للمستخدم صلاحية عليها اما السرير فنحن نتعامل مع المعرف (الآي دي) وليس مع رقم السرير فهنا رقم السرير بمثابة اسم السرير وكل مستخدم يمكنه تسمية السرير بما يفهمه هو فمثلا بالمثال قمت بتسمية السرير بثلاثة ارقام تمثل من اليسار : الطابق/ الغرفة / رقم السرير عملت استعلام اختبار لاظهار المتاح من الأسرة شروط المتاح حسب التالي : 1- ان يكون خيار متاح مفعل 2- ان يكون حقل تاريخ البداية فارغ // أو // يوجد تاريخ في حقل النهاية واعذرني مستقبلا فيما لو لم ابادر بالرد لأني احتاج لنقل المثال بسبب الاصدار الى جهاز آخر sakan.accdb بقي ان تضيف حقل (نعم/لا) بجانب حقل نهاية التاريخ فحين يتم ادخال تاريخ الخروج يتم ايضا التعليم على حقل : نعم بحيث نضعه ايضا ضمن المعايير حتى لا تظهر الاشغالات المنتهية السابقة

لعل هذا ما تريد School.accdb

تم معالجة الامر بتوفيق الله احصائيةالفصل الدراسى الثاني2020_2.xls

عملت لك تغييرات جذرية تجتهادا مني حسب ما افهمت من سؤالك أتمنى ينال اعجابك xx.accdb

وعليكم السلام ورحمة الله وبركاته العمل الصحيح والسليم لقاعدة بيانات طلاب هي كالتالي أولا وهو المهم ابتعد عن المسميات العربية وقم بالكتابة بالانجليزي المعرب يتم تصميم الجداول كما يلي الجدول الاول StuNames - اسم الجدول StuID - ترقيم تلقائي - مفتاح اساسي Stuname - نص ClassID - رقم وكمل بهذا النسق حسب حاجتك الجدول الثاني SchooClasses - اسم الجدول ClassID - رقم - مفتاح أساسي - لك الحرية في ان تجعله ترقيم تلقائي او يدوي حسب حاجتك === اعمل السابق واكتب كم شعبة لكل صف تريد وسنستمر الى ان نصل الى ما تريد :: تحياتي

ما شاء الله تبارك الله

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

أهلا بك @محمد احمد لطفى مع تحفظي على إجراء التعديل على مصدر بيانات يعطي بيانات متكررة إلا أن هذا لا يمنع من تقديم الحل.. Photo.zip

الاساتذة الاجلاء ادارة وعضوية بهذا المنتدي الرائع حفظكم الله جميعا اطلب من اساتذتي الكرام تصميم برنامج محاسبي مبسط لمصروفات وتكاليف وايرادات مطعم علي ان يكون كالاتي: مشتريات مصروفات عمومية ايرادات اصناف المبيعات جاري الشركاء وجزاكم الله خيرا المراسلة على الايميل ibrahim.garo@yahoo.com آمل تفاعل الاساتذة الكرام المختصين في برامج اكسس او اكسل

أستاذ @أبو إبراهيم الغامدي تفضل الملف .. طبعاُ أعمل على أوفيس 2016 32Bit Database1.accdb

الاسم : عبد اللطيف سلوم سنة الميلاد : 1968 م المهنة : موظف حكومي في وزارة التربية والتعليم الاردنية (معلم) التعليم : بكالوريوس علم نفس - جامعة السودان للعلوم والتكنولوجيا دبلوم برمجة وتحليل نظم - كلية ابن خلدون - الاردن دبلوم كامبردج - الاردن ICDL الرخصة الدولية لقيادة الحاسوب - الاردن الحالة الاجتماعية : متزوج و رزقني الله ب 3 أطفال بلد الجنسية / بلد الاقامة : الأردن / الأردن أقسام الاهتمام فى المنتدي : كل الأقسام - و بالذات الأكسيس و الإكسيل والوورد معلومات أخري : أحب الأكسس جدا وصممت برامج تجارية عدد 22 برنامج لغاية الان , ولله الحمد فتحت باب رزق لي اخر غير راتبي الحكومي الذي لا يكفي للعيش بحياة كريمة نظرا لغلاء الاسعار الان احاول الحصول على شهادة خبير مايكروسوفت من اكاديمية طلال ابو غزالة لكي استطيع تدريب الزملاء والزميلات على الرخصة الدولية لقيادة الحاسوب صفحتي على الفيس بوك https://www.facebook.com/salloum1968 صفحتي على تويتر https://twitter.com/salloum1968 واتس أب دولي 00962787787573 صفحتي على يوتيوب https://www.youtube.com/channel/UC0goh5TSDbvLOsOJzZaALTg?view_as=subscriber اخيرا يشرفني الانضمام الى هذا المنتدى الرائع والتعرف على الاعضاء الاروع وللامانة استفدت من هذا المنتدى الكثير ووعدت نفسي بأن اساعد الجميع ولا ابخل على اي شخص بمعلومة اعرفها

اخى الكريم هل ما تقصده هو عند البحث عن رقم 1 مثلا سوف يظهر كل ارقام الاسر التى تحتوى على 1 ومنها 10 & 11 & 12 & 1 ثم تقوم بالضغط على رقم 10 مثلا اللى هو خميس فيقوم بفتح فورم جديد به بيانات خميس من شيت 1 هل هذا قصدك تقبل تحياتى