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

انشاء الله اكون المطلوب أخ صلاح بلعلا القائمة والمربع.accdb

وعليكم السلام 🙂 اذا اخوي ابو آمنه فهم قصدك صح ، فعندك جوابه 🙂 اما اذا كان فهمي صح ، فهذا جوابي : دائما حاول ان تبتعد عن استعمال الاوامر Dsum , DCount , DLookup ، وكل اوامر ...D في الاستعلام ، فالامر سيكلفك وقت طويل لتخرج نتائج الاستعلام (طُلب مني تعديل على استعلام مشابه ، ولكن فيه حوالي 600 الف سجل ، والتعديل كان مثل ما اقترحت هنا ، واصبح الاستعلام يعمل باضعاف سرعة الاستعلام السابق 🙂 ) ، وبدلا عنها ، اعمل استعلام آخر بالنتائج المطاوبة من Dsum ، واستعمله في استعلامك الاخير ، كما عملت انا هنا : . طبعا يجب ان تقول في الاستعلام الاول ، اي حقل تريد ان تعرف مجاميعه ، وانا لم اضع الحقل ، لأني ما عرفته ، وعلى اساس هذا الحقل ، تعمل ربط بينه وبين الحقل في الجدول ، في الاستعلام الثاني 🙂 جعفر

وعليكم السلام اتفضل ان شاء الله يكون ما تريد شغل استعلام التحديث qry_BirthDate وسيتم تحديث حقل تاريخ الميلاد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Birthday.accdb

ويضاً قناة حسونة أكاديمي على الرابط https://www.youtube.com/user/HassounaAcademy/playlists

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

سلامه دماغك اخى صالح وطبعا كما اكد اخى ومعلمنا العزيز هى متطلبات سوق العمل التى تحدد اى الطرق وان كنت ناوى فا ارشح لك قناه خالد السعدانى كبدايه الطريق لـ #C وعلى ما اعتقد فى asp.net ولكن فى html ,css,javascript,php فا ارشح قناه الزيرو ويب سكول ماشاء الله ممتازه وربنا يوفقه استاذ اسامه صاحب القناه ويجزيه كل خير وفى انتظار راى اخواننا واساتذتنا فى هذا الامر بالنسبه لى فالاكسس مناسب لحاجتى كهاوى ويسعفنى فى ما اريد واتمنى ان ازيد حصيلتى التعليميه به لـ 1 % وهذا بفضل الله ثم دروسكم ومتابعتنا لنا اخوانى واساتذتى جزاكم الله عنا خير الجزاء

موضوع شيق و يفتح الشهية ويبقى أكسيس هو العشق لكن في الأونة الأخيرة طلب العملاء يتجه إلى البرامج التي تتصل بالانترنت كما أكد ذلك زملائي ، لكن تكلفتها عالية من استضافة ، ودومين ، وتجديد سنوي . مع ذلك من لديه الرغبة بتعليم شيء جديد اقرب شيء في وجهة نظري لمبرمجي اكسيس لغة vb.net أو #C من مايكروسوفت مع تقنية asp.net ونستطيع ربط موقع كامل بقاعدة بيانات أكسيس أو sql server أو .... داخل الشبكة وخارجها ولتشغيل الموقع داخل الشبكة يلزم تثبيت iis وهو استضافة مواقع الويب على سيرفرات ويندوز . أيضاً لتعلم لغات الويب لا بد من تعلم html ، css ، javascript . مشوار طويل وأنا مبتدئ في هذا المجال الجميل . لذا ابحث عن شخص ملم بإطار الويب asp.net ومستعد لتعليم الناس لمقترح فتح قسم باسم asp.net في منتدانا الحبيب . وهذا موجه للإدارة إن رأت من يتوفر فيه هذه السمات .

جرب هذا الماكرو Option Explicit Sub Uniq_items() Dim R As Worksheet, Sw As Worksheet Dim Nme$, Rg As Range Dim cop_rg As Range Dim dic As Object, I%, m% Set R = Sheets("report") Set dic = CreateObject("Scripting.Dictionary") Set cop_rg = R.Range("B4").CurrentRegion Nme = R.Range("C2") If cop_rg.Rows.Count > 1 Then cop_rg.Offset(1).ClearContents End If m = 5 For Each Sw In Sheets If Sw.Name <> R.Name Then Set Rg = Sw.Range("G5", Sw.Range("G4").End(4)) For I = 1 To Rg.Rows.Count If Rg.Cells(I).Offset(, 2) = Nme Then dic(Rg.Cells(I).Value) = _ Rg.Cells(I).Offset(, 2).Value End If Next If dic.Count = 0 Then GoTo Next_Sheet With R.Cells(m, 2).Resize(dic.Count) .Value = Application.Transpose(dic.keys) .Offset(, 1) = Application.Transpose(dic.items) m = m + dic.Count: dic.RemoveAll End With End If Next_Sheet: Next Sw End Sub الملف مرفق Unique_item.xlsm

هذا ماأشار اليه الأستاذ jjafferr على ما أظن ssa.accdb

وعليكم السلام 🙂 هنا مثال : جعفر

شكرا شباب 🙂 جعفر

حسب ما قرأت (وحاولت الآن ان ابحث عنه وما لقيته!! ) ، فإن الاكسس لايزال حي وبقوة 🙂 ويمكنك طلب اي شيء جديد لإضافته في الاكسس (طبعا مو معناه انهم بيستعجلون على طلبك ، او انهم اصلا بيعملوه) من هنا : https://access.uservoice.com/ وهنا تخبرك مايكروسوفت عن المشاكل اللي تم حلها : https://support.microsoft.com/en-us/office/fixes-or-workarounds-for-recent-issues-in-access-54962069-14f4-4474-823a-ff7e5974a570?ui=en-us&rs=en-us&ad=us والاكسس يُعتبر رقم 9 بين افضل قواعد البيانات: https://medium.com/young-coder/microsoft-access-the-zombie-database-software-that-wont-die-5b09e389c166 جعفر

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

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

جزاهم الله خيرا اخوانى واساتذتى @jjafferr و @ابوآمنة اخى @عذاب الزمان ارفق لك حل اخى ومعلمنا العزيز جعفر بارك الله فيهم DSUM&DCOUNT.accdb

السلام عليكم اخى @صلاح بلعلا مشاركه مع اخوانى @ابوآمنة و @rey360 جزاهم الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق القائمة والمربع.rar

تفضل تم استخدام الكود التالي :- On Error Resume Next Me.txt1 = Null Dim i As Integer Dim RC As Integer Dim rst As Variant Set rst = CurrentDb.OpenRecordset("SELECT * From [البيانات] WHERE [نوع السكون] =" & Me.المهارات & "") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC Me.txt1 = Me.txt1 & " " & rst![النص] rst.MoveNext Next i Set rst = Nothing القائمة والمربع.accdb

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

اتفضل اخى ابوعبدالملك بالتوفيق ان شاء الله

بحكم أني أستخدم نسخة فرنسية

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة لطلبك الجديد =SUMPRODUCT(--(TEXT(ROW(INDIRECT($C$2&":"&$E$2)),"b2dddD")=G$2))-COUNTIF($N$2:$N$16,G$2) 1تحديد عدد أيام معينة بين تاريخين.xlsx

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

انا أفضل الماكرو لعمل هذا الشيء (الضفحة salim من هذا الملف) الماكرو Option Explicit Sub Chercher_Date_by_array() Dim I%, lr%, D As Object, arr(), X% Set D = CreateObject("Scripting.Dictionary") With Sheets("salim") If .Range("G1").CurrentRegion.Rows.Count > 1 Then .Range("G1").CurrentRegion.Offset(1).Clear End If lr = .Cells(Rows.Count, 3).End(3).Row For I = 2 To lr If Application.CountIf(.Range("A2:A" & I), .Range("A" & I)) = 1 Then ReDim Preserve arr(X) arr(X) = Range("B" & I) X = X + 1 End If D(.Cells(I, 1).Value) = CDate(.Cells(I, 2)) Next With .Range("G2").Resize(D.Count) .Value = Application.Transpose(D.keys) .Offset(, 1).Resize(X) = Application.Transpose(arr) .Offset(, 2) = Application.Transpose(D.Items) With .Resize(, 3) .Value = .Value .InsertIndent 1 .Borders.LineStyle = 1 .Interior.ColorIndex = 40 .Font.Bold = True .Font.Size = 16 End With End With End With Set D = Nothing: Erase arr End Sub الملف مرفق للتجربة My_sheet _Dict.xlsm

وهذا مثال في النموذج لتحديث عمليات العد والجمع DSUM&DCOUNT.accdb

تفضل إن شاء الله يكون هذا المطلوب . وهذه الدالة المستخدمة المجموع: IIf([CHK]=True;DSum("[NUMBER]";"[Q1]";"[ID] <= " & [ID] & " and CHK=True");0) العدد: IIf([CHK]=True;DCount("[CHK]";"[Q1]";"[ID] <= " & [ID] & " and CHK=True");0) DSUM&DCOUNT.accdb للمعلومية : العمل داخل الاستعلام يلزم التحديث كل مرة لترى النتائج .

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

استاذي الغالي جعفر انا بالحقيقة اتنقل مابين البرمجة بالاكسس والبرمجة بالـ php على حسب متطلبات سوق العمل او جهة العمل كما لا اخفي عليك انني في بعض الاحيان اشغل نفسي في الالعاب اون لاين ^_^

ماشاء الله ، شو قالوا لك ، طرزان 🙂 اهلا بك معنا بعد غيبة طويلة 🙂 في دورات الاكسس الخاصة اللي اعطيها ، انصح المتدربين عدم استعمال الانترنت (وبالذات اليوتيوب) في البحث عن طريقة عمل البرنامج او الكود ، وانما تتبع الاكواد اللي استعملها انا فقط !! والسبب ان الانترنت فيه الغث والسمين ، والمبتدئ يضيع ، بينما انا اضع اسهل الاكواد ، واتوسع في شرحها ، لتسهيل فهمها وتعديلها 🙂 في الواقع الموضوع اكبر بكثير من اللي انا تكلمت عنه ، واليك الجزئيات : - برنامج الخلفية فيه جدول tbl_CurrentVersion ، - برنامج الواجهة فيه ربط للجدول اعلاه ، بالاضافة الى جدول محلي loc_tbl_LocalVersion ، وفيه الوحدة النمطية fCheck_FE_Version (اللي جاهزة ولكني لم استعملها) ، - الفكرة هي : انك لما تكون عند واجهة جديدة ، تترك نسخة منها في مجلد ملف الجداول ، وتكتب رقم نسخة الواجهة الجديدة في الجدول tbl_CurrentVersion ، ولما يأتي المستخدم ويشغل نسخته ، فالمفروض ان تعمل الوحدة النمطية fCheck_FE_Version مقارنة بين رقم النسخة في tbl_CurrentVersion ، ورقم النسخة في loc_tbl_LocalVersion ، اي يقارن رقم النسخة اللي على السيرفر بالمقارنة مع تلك الموجودة على جهازه ، فإذا نسخة السيرفر كانت اجدد ، فيقوم بنسخ نسخة السيرفر الى كمبيوتر المستخدم ، 🙂 كلامي في مشاركتي السابقة عن الجدول loc_tbl_LocalVersion ، وتستراه في برنامج الواجهة FE بعد ان تقوم بربطه بملف الخلفية BE ، والذي سيطلب منك البرنامج مكانه 🙂 جعفر 297.FE_BE_Password_Both_mdb.zip

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا وفالنموذج بعد الادخال والخروج من حقل السنه سيتم ضبطه تلقائيا Me.BirthDate = [D] & "/" & [M] & "/" & [Y] Birthday.accdb

الاستاذ احمد الفلاحجي نعم هذا هو المطلوب شكراً لك استاذنا 🌹

وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى-تفضل تفقيط مساحة ارض

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

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

وعليكم السلام-تفضل اخى الكريم ,كان عليك استخدام خاصية البحث بالمنتدى كيفية كتابة معادلة داخل مربع نص او اشكال هندسية

صحيح هناك خطأ مطبعي في استعلام القائمة [Formulaires]![show]![maharat] الصحيح [Forms]![show]![maharat]

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

أنا عندي يعمل عادي جرب هذا صلاح بلعلا القائمة والمربع.accdb

مشكور جدا استاذ علي

وعليكم السلام 🙂 1. نعم ، فهناك الكثير من الامور التي تساعدك في العمل بطريقة اسرع ، في الواجهات ، 2. بوجه عام ، لا ، ولكن هناك اوامر اضافية للإضافات الموجودة في النسخ الاحدث ، 3. بوجه عام ، نعم ، ولكن قد تحتاج الى تعديلات بسيطه 🙂 جعفر

وعليكم السلام ورحمه الله وبركاته اهلا ومرحبا بك معنا فى قسم الاكسس اخى الفاضل فضلا لا امرا يرجى تغيير اسمك للغه العربيه لنناديك باسمك اتفضل ان شاء الله يكون ما طلبت تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق moh.accdb

اخي الكريم @فايز.. بعد مداخلة الاستاذ جعفر اعتبر نفسك في ايادي أمينة بإذن الله .. أنت الآن مع الاحتراف بذاته

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

كل برنامج من برامجك يجب ان يكون فيه جدول لرقم النسخة ، وملاحظاتك على النسخة ، ولما تفتح اول نموذج ، تقرأ رقم آخر النسخة من الجدول ، وتضعة في تسمية Caption النموذج ، فيظهر في اعلى يسار الشاشة ، هكذا : . جعفر

للأسف لا املك نفس الاصدار لكني اعتقد ان عملية تحويل قاعدة البيانات الى accde هي نفسها في الاصدارات الاقدم من 2019 بعد عمل compile للأكواد والتأكد من خلو برنامجك من الأخطاء قم بعمل ضغط واصلاح اولاً ومن ثم توجه الى "حفظ ونشر" في قائمة ملف ومن ثم اختار انشاء accde

السلام عليكم 🙂 الاستعلام الذي عملته انت : . بدون ربط بين الجداول ، وهذا معناه ، انك تطلب سجلات عددها : 16x8x11x16x27x24x10x6 = 875,888,640 (شوف صورة سجلات الجداول في الاسفل ، علشان تعرف من وين جئت بهذه الارقام 🙂 ) ، فهل سرعة محرك كمبيوترك CPU ، وكمية الذاكرة المؤقته RAM ، قادرة على عرض هذا الكم الهائل من السجلات 🙂 . خلينا نشوف استعلام علشان نفهم الموضوع : نخلي الجدولين فقط ، والي نعرف ان مجموع عدد السجلات سيكون : 16x8 = 128 . والنتيجة ، وكما يعرضها الاستعلام : . وهذا اللي عملنه انا بإستعمال مرفقك ، وهي الطريقة الافضل لبرنامجك : . ولكن ، هذه طريقة الاكسل في وضع البيانات ، بينما اذا اردنا تعديل الاكسس ، فيكون كالتالي: نعمل الجدول tbl_Salary والذي سيشمل جميع الجداول الثمانية ، وبدون حقلي "المحسوب" ، ومع اضافة حقل اسم "المجموعة" : . والنتيجة : . وعلى اساس هذا الجدول ، نعمل استعلام qry_Salary ، ونضيف الحقلين "مج الاستقطاع" و "الصافي" مع معادلاتهم : . ومقارنة سجلات الجدول السابق مع الاستعلام الجديد : . والآن وبكل بساطة تعمل الاستعلام الذي يقوم بعملية جمع الصافي : . والنتيجة : . جعفر 1197.wameed.accdb.zip

احد المؤسسات التي تستعمل احد برامجي ، عندها 16 مستخدم ، وحوالي 2200 عملية تعامل مع البيانات يوميا ، من سجلات جديدة ، او تحديث او حذف ، او تصفح ، واكثر من مليون ونصف سجل بين مختلف جداول البرنامج ، لهذا السبب ، مافي مجال إلا ان يكون البرنامج في كامل لياقته 🙂 جعفر

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

عمل جيد بارك الله الجميع

حالا ارفع لك نسخة بصيغة 2003 تفضل استاذنا ابو خليل 2003.rar