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

انشاء الله اكون المطلوب أخ صلاح بلعلا القائمة والمربع.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

وهذا أفضل تقرير مع إجمالي الوارد وإجمالي الصادر وصافي الرصيد المخزون.zip

على الرغم ان بعض ماطلبته مبهم وغير واضح تفضل الملف المرفق orginalcopy-protcet - Copy.rar

ولا يهمك ..... تفضل واعلمنا بالنتيجة ..... ترقيم مجموعه (1).accdb

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

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

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

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

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

ما شاء الله عليك يا استاذي جعفر طلعنا مثلك في وسط المعمعة

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

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

يمكن طريقة عملي هي السبب !! انا عادة اشتغل على مشروع/ملف ، ولما اتملل/اتعب منه ، آخذ استراحة بذهابي الى المنتدى لأرد بسرعة على اكبر عدد من الاسئلة ، وبعض الاوقات اثناء العمل على سؤال ، يجي سؤال آخر سهل ، فأرد عليه ايضا !! يعني يكون عندي 3-4 ملفات مفتوحة في نفس الوقت ، هذا غير اذا ذهبت ابحث عن شيء معين !! وسط هذه المعمعة ، اولوية الرد يكون للأسئلة الواضحة 🙂 1. طلب مبهم !! مادام البرنامج يشتغل صح ، فهو صح ، والسلام 🙂 2. كذلك غير واضح !! رجاء التوضيح اكثر ، والافضل ان تعطينا مثال من برنامجك ، خطوة بخطوة 🙂 الله يعين الجميع ان شاء الله على هذا البلاء 🙂 جعفر

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

وعليكم السلام 🙂 اذا قصدك : هل ممكن ان استعمل هذا البرنامج على صيغة 2003 mdb ، فالجواب نعم ، واذا طلبك هذا البرنامج بصيغة 2003 mdb ، فإن شاء الله ارفقه كذلك ، ولكن بدون الوان في تفاصيل العمل 🙂 جعفر

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

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

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

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

Option Compare Database Dim DBOld As String Dim DBNew As String Private Sub Form_Close() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & Format(Now, "yyyymmddhhnnss") & ".mdb" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub End Sub Private Sub Form_Load() DBOld = CurrentProject.Path & "\db2.mdb" DBNew = CurrentProject.Path & "\tst\" Call zerNc End Sub Sub delfiles() Dim strFldr As String Dim strFile As String Dim FileToGet As String strFldr = CurrentProject.Path & "\tst" ' modify folder to your own strFile = Dir(strFldr & "\*.*") ' get list of files in folder Do While Len(strFile) > 0 FileToGet = left(strFile, Len(strFile) - 4) If FileToGet <= CStr(Format(Date - 3, "yyyymmdd")) Then Kill strFldr & "\" & strFile Else End If strFile = Dir Loop End Sub Sub zerNc() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & Format(Now, "yyyymmddhhnnss") & ".mdb" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub Me.Requery Call delfiles End Sub db.rar

تفضل : تم عمل وحدة نمطية عامة تأخذ خيارات النسخة من الجدول ويمكن الآن اخذ النسخة من اي مكان داخل البرنامج ملحوظة : بقي ان تضع قيم افتراضية للحقول فيما لو المستخدم لم يحرك ساكنا x.rar

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