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

السلام عليكم شكرا لأحبتي الخبراء د.حسنين , د.حسين كمال ، وأستاذنا القدير عبدالعزيز الغامدي نفخر بهذه القامات في منتدنا هذا أسأل الله الكريم ان يكتب لكم الأجر في ما تبذلوه ولكل من يبذل من اخواننا الآخرين كل باسمه ... وان يصلح لكم الأهل والذرية ويرزقكم من حيث لا تحتسبون

أهلا بكم.. في الحقيقة يمكن إخفاء شريط التنقل مع الجداول المباشرة! لكون الحاوية لهذه الجداول هي النماذج الفرعية! لكن لا يمكن الوصول إليها عن طريق لوحة الخصائص، بل نحتاج إلى الشفرة للوصول إلى هذه الخصيصة وغيرها. وهذه شفرتها Sub STP() Me.SubTbl.Form.NavigationButtons = False End Sub في المثال التالي قمت بالاقتصار على نموذج فرعي واحد مع إطار التبديل للتبديل بين الجداول 1390.nabil2322.accdb

اخوانى الاعزاء ارسل ملف الخاص بيورو 2020 مفتوح المصدر للاستفادة وللامانة هو منقول من موقع اجنبى صور اعلام المنتخبات في جدول المباريات وانتقاله بالمعادلات الى جدول المجموعات حسب ترتيب الفرق وتتغير اماكنها حسب تغير ترتيب المنتخب في مجموعته Euro 2020.xlsx

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

أخي حسين 🙂 لك مجموعة من المواضيع تتكلم فيها عن الحجم الكبير لقاعدة البيانات ، أما آن الاوان ان تحل المشكلة من اصلها !! اخونا @Shivan Rekany عنده موضوع لهذا: جعفر

السلام عليكم و رحمة الله و بركاته للأمانة المثال منقول ... الأداة المرفقة مفيدة جدآ لعمل اختصارات أثناء الكتابة يتم الاستبدال في الجدول Chart في الحقلين record و Artist بعد الضغط على زر تطبيق الاستبدال .. بالتوفيق Find And Replace.mdb

بارك الله فيك استاذنا الفاضل أبو إبراهيم الغامدي و جزاك الله كل خير

تفضل CLASSEUR11.xlsm

اعتقد المشكلة لديك في نوع العلاقة !!!!

هذه طريق اخرى تم استخدام هذا الكود ... On Error Resume Next If DCount("ID", "تذيل المبيعات", "[رقم_الباركود_ت] = '" & xxx1 & "' And [رقم الفاتورة] = " & kan & "") > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE [تذيل المبيعات] SET [تذيل المبيعات].العدد = [تذيل المبيعات].[العدد]+1 WHERE ((([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));" Me.Undo DoCmd.RunSQL "DELETE DISTINCTROW [تذيل المبيعات].العدد, [تذيل المبيعات].رقم_الباركود_ت, [تذيل المبيعات].[رقم الفاتورة] FROM [تذيل المبيعات] WHERE ((([تذيل المبيعات].العدد)=1) AND (([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));" DoCmd.SetWarnings True Else Me.سعر_البيع.Requery Me.سعر_البيع = Me.سعر_البيع.ItemData(0) [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] = [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] - [Forms]![فاتورة مبيعات]![تذيل المبيعات]![العدد] DoCmd.Requery End If تجربة_7652.accdb

جرب هذا التعديل و لا تنسى بأنك لم ترفق كامل المكتبة يتعين عليك نقل التعديل لبرنامج الاساسي لكي تجد النتيجة Nz(DLookUp("[nass]";[TAB_Books_X]![BookNO];"[Mno] LIKE '*" & [TAB_Books_X]![MNO] & "*' And [Hno]=" & [TAB_Books_X]![HNO]);"-") MusndWZwayid 7.accdb

تفضل طلبك طبق الكود على باقي الأزرار 1390.nabil2322.accdb

تفضل هذا التعديل اخي الكريم في داخل الاستعلام Nz(DLookUp("[nass]";[TAB_Books_X]![BookNO];"[Mno]='" & [TAB_Books_X]![MNO] & "' And [Hno]=" & [TAB_Books_X]![HNO]);"-") MusndWZwayid 7.accdb

حسناً اخي الكريم جرب الكود التالي =DLookup("nass"; "AllData"; "[HNO] = " & [HNO] & " And [MNO] = '" & MNO & " '") MusndWZwayid 7.rar تحياتي

ممتاز .... شكرا

تفضل هذه مبادرة من طرفي حاول تكمله و اذا استصعب عليك شي كلنا في خدمتك Smart_Gym.zip مجلدات الصور.zip

استخدم استعلام توحيد لدمج الجداول التي تريد البحث فيها جميعا كالتالي SELECT * FROM 20101 UNION SELECT * FROM 50011 UNION SELECT * FROM 50012; بشرط ان تكون جقول الجداول متماثلة مع باق الجداول MusndWZwayid 7.rar تحياتي

اشكرك اخي جدا وبارك الله فيك

جرب المعادلة التالية =IF(B3=B2;A3-A2;"") انظر للمرفق New Microsoft Excel Worksheet (1).xlsx

جرب المرفق الجديد وارجو ان يكون هو طلبك MusndWZwayid 7.rar تحياتي

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

السلام عليكم تفضل اخي الكريم تم اضافة جدول TAB الى الاستعلام الموجود بنموذج 2 frm_Q_books وربط حقل Nass MusndWZwayid 7.rar يمكن وبتم ربط الجداول بقاعدة البيانات الحالية تحياتي

سلسلة تعليم بور كويري كيفية دمج صفوف في خلية واحدة لصنف واحد How to Combine rows into a single cell in power query في الفيديو دة تقدر تتعامل مع البيانات بسهولة وكمان تقدر تدمج الصفوف وتشيل المكرر في صف واحد لصنف واحد

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

:$ ساعدوني أرجوكم بالأمس كنت قد طرحت سؤالاً ألا وهو كيف يمكنني أن أدرج صورة متحركة في نموذج وقد أعطاني الأخ أمير الجواب الشافي جزاه الله خيراً أما اليوم فأنا أنشد مساعدتكم في كيفية إدراج صورة في خلفية الأكسس الرمادية علماً أنني أعرف كيفية تحويل اللون الرمادي إلى لون آخر أما ما أريده الآن هو كيفية إدراج صورة في الخلفية الرمادية :')

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

السلام عليكم جميعا يمكنكم أن تستنجوا من هذا البرنامج طريقة إرسال رسائلكم انطلاقا من الأكسس أتمنى أن ينال إعجابكم فقد جربته وأعجبني أنا في انتظار ردودكم حملوه من هنا

اخواني عملت تقرير طباعه بالرقم ولكن عندما ادخله رقمين مثلا (من 1 الي 5) يطبع الرقم 1 و5 ويتجاهل الارقام التي بين واحد وخمسه. يعني اريده يطبع 1 2 3 4 5 وهكذا فكيف الطريقه السؤال الثاني كيف اخلي الكليشه تظهر مع جميع الصفحات المتعدده اثناء طباعتها يعني عندي تقرير يتكون من 3 صفحات تظهر معي الكليشه بالصفحه الاولى وبقية الصفحات لاتظهر بها

بسم الله الرحمن الرحيم ايها الاخوة الكرام , عندي جدول للعملاء من حقلين اسم العميل و رقم الهاتف , وعندي نموذج مبني على جدول الطلبات ومن ضمن الحقول اسم العميل وحقل لهاتفه حيث أن اسم العميل عبارة عن مربع تحرير وسرد مصدر بياناته (اسم العميل ) في جدول العملاء ,0 المطلوب كيف يتم تعبئة حقل (هاتف العميل ) حسب اختيار اسم العميل من مربع التحرير وجزاكم الله خيرا

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

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

بسم الله الرحمن الرحيم أيها الأخوة الكرام السلام عليكم ورحمة الله وبركاته لدي ثلاثة جداول ترميز الأول ترميز المدن والثاني ترميز الأحياء والثالث ترميز الشوارع ولدي نموذج مبني على جدول للعناوين من ضمن بياناته ثلاثة حقول واحد لإسم المدينة والآخر لإسم الحي والثالث لإسم الشارع وكلها عبارة عن مربعات تحرير وسرد,0 المطلوب إذا اختار المستخدم من مربع التحرير (اسم المدينة )أحد المدن يعرض مربع التحرير (اسم الحي) أحياء تلك المدينة فقط ومن ثم عند فتح مربع تحرير (اسم الشارع) لايعرض سوى شوارع ذلك الحي .أرجو من الأخوة الذين عندهم حل لهذه المسأله الشرح بالتفصيل وخاصة الشفرة إذا لم يكن هذا يكلفهم وجزاكم الله عني خيرا

السلام عليكم جميعا ورحمة الله وبركاته عملت كلمة مرور لنمودج ولكن لما افتح النمودج يطلب مني كلمة المرور ولكن لما اضغط اوكي او اضع كلمة مرور خطأ يفتح معي النمودج واني اخدت التعليمات من وصلة الاخ محمد طاهر وهي: http://www.officena.net/ib/index.php?showtopic=1118 وهذا لكود الدي عملته لتجدون لي ما هو الخطأ عندي وجزاكم الله خير والله يوفقكم Private Sub CmdUpdate_Click() On Error GoTo Err_CmdUpdate_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "FQupdate" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_CmdUpdate_Click: Me.Requery If InputBox("ادخل كلمة السر ", "www.officena.net") <> "mustafa" Then DoCmd.CancelEvent MsgBox "خطأ !!!!", 64, "www.officena.net" Else DoCmd.OpenForm "FQupdate" End If Exit Sub Err_CmdUpdate_Click: MsgBox Err.Description Resume Exit_CmdUpdate_Click End Sub