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

إن شاء الله لن أخيبك، وسوف أعمل على هذا ما اتسع له وقت.. عند الرجوع إلى المشاركة التي جاء منها المثال؛ وجدت أني سبق وعملت على عارض الصور، فقمت بتحسين عرض الصور وبرمجة النموذج المنبثق.. لكني لست راضيا عن هذا العمل.. سوف أقوم في قابل الأيام؛ بعد توفيق الله ومشيئته بتحسن العمل لكي يعمل على مستعرض الويب بالكامل.. Photo.zip

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

السلام عليكم نحن متفقون بأن : مرتجع البيع يعتبر عملية شراء كما ان مرتجع الشراء يعتبر عملية بيع ولكن سيتم ادخال مرتجع البيع على سعر البيع .. كما يتم ادخال مرتجع الشراء على سعر الشراء .. فائدة احببت التنبيه لها لمن يعمل على تصميم فاتورة المبيعات

كنت اعمل على المثال وسبقني اخي ابو بسملة ادرجها للفائدة Dim rs As DAO.Recordset Dim x As Integer Set rs = CurrentDb.OpenRecordset("SELECT count_alawa.* FROM count_alawa WHERE count_alawa.id=" & [Forms]![form1]![id]) x = Month(txtDate) rs.Edit rs.Fields(x) = Me.txtDate rs.Update rs.Close: Set rs = Nothing

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

تفضل أخي زود أسماء وصور على كيفك مع ملاحظة أنا لم أثبت الصور ولا الأسماء فبمجرد أدخال جديد أو تحديث بيانات بيتعدل لأن هذا ما يفعله الأكسس . لا تنسى الضغط على أفضل اجابة ووافني بالرد . Photo-3.rar

ربما ترحيل السلة.xlsm

في دروس سابقة تناولنا معا بعض الحيل والافكار حول استخدام اليوزر فورم لتسهيل وتيسير ما امكن لانجاز الأعمال النهاردة فكرتنا حول استخدام الفورم في حالة الاصناف الكثيرة المتشابهة كقطع غيار السيارات والاكترونيات ....... الخ وهي عمل قائمة شقية خفيفة متنقلة تعطيك احساس التفاعل والراحة البصرية تظهر عند الضغط علي صنف معين لتظهر صورة الصنف وتفاصيله او وصفه ... الخ استخدمت مثال بسيط لتوصيل الفكرة وان شاء الله تكون فيها الفائدة والنفع اسيبكم لتجربة الملف واي استفسار او ملاحظة يسعدني ووفقنا الله واياكم للخير الملف بالمرفقات مع ملاحظة وضع ملف (PicForm) علي القسم (D) مباشرة او قم تغير مسار الصور في في الملف حسب مكانه عندك How to create Pop-up form in Excel Userform.xlsm ملف الصور قم بفك الضغط وحفظه علي مسار Dمباشرة PicForm.rar

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والمتواضعة ( زاد المثابر للحصول على أسماء العناصر) هذه الأداة صممتها بفضل الله في أكسس تقوم بإحضار وسرد أسماء العناصر لك لكي تستطيع نسخها ولصقها في أي مكان تريد بكل سهولة ويسر 🙂 شخصيا أستفدت كثيرا منها وسهلت علي الكثير من الجهد وقلصت من وقت العمل بحمد الله وفضله. وهنا اختصرت على نفسي الكتابة وقمت بشرح الأداة مرئيا 🙂 متابعة ممتعة 😊👌🏼 ولا أستغني عن آراءكم وملاحظاتكم .. 🙂 لتحميل الملف المستخدم في الشرح وبه النموذج : التحديث 2.0 : تم إضافة خاصية جلب عناصر النماذج الفرعية .. والتقارير الفرعية .. شكرا للأخ @عمر ضاحى على الفكرة 🙂

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

تفضل Public Function countMyDate(myId As Integer) Dim rs As DAO.Recordset Dim i, r As Integer Set rs = CurrentDb.OpenRecordset("count_alawa") rs.MoveFirst Do While Not rs.EOF For i = 1 To rs.Fields.Count - 1 If myId = rs!id Then If Not IsNull(rs.Fields(i).Value) Then r = r + 1 End If End If Next countMyDate = r rs.MoveNext Loop rs.Close: Set rs = Nothing End Function db1.accdb

أو هذه مثلا 🙂 تقويم شهري.accdb

فقط هذه المشاركه لعلها تنفعك وتختصر تطويرها لحاجتك

نصيحه اخرى اذا كنت تعمل في مكتب يباع PC mini اشتر اربع على القليل مثبت برامج والاوفيس جديد والاقدم واقدم صفهم فوق بعض( واشتر هارد ديسك واحد لاعمال اكسس وتصاميم واشبكه باربع mini PC مشترك (بشاشة pc واحده بموزع قلب فقط في الريموت (اذا حاب تطوير اشتر وحدة تخزين WD ناسا الجديد فقط (بتوفيق لعلك تقدم لنا جديد

تطور اخر نسخه وجهاز مواصفات ممتازه وخط الاضي 8 او لاسلكي 5G اشركات تحدث منتظم وصيانه والمؤسسات في المعقول حسب النشاط وان كان فردي او مجموعة مثال بذاك المثابر يبحث عن التطوير وندوز 11 ويرتقي بجهازه وجهاز شبكه المحلية WD واعتقد يجهل FTP وستخدم اقراص Red مما يعتقد ان الاداء بطيئ في الواقع يشتري الاحدث بختلاف الثلاجه وجيل شبكه مما جعل الزبائن يثيرون غضب واجهزتهم مكلفة وله صيانه دورية عمر اقراص Red سنه بعمل 24 في اليوم وان كان العمل بنصف وقت اليوم فقط استبدل القرص التالف بجديد من غير نقل البيانات مكون الجهاز 4 الى 6 اقراص صلبه ويخصص للمسسات المحدوده ويفضل كيبل خط الارضي 8 اما شركات سرفرات ، اشتر جهاز جديد وندوز 11 باخر اصدر اوفس وللعلم ان النسخه المرفقة مبنية على نسخة المثابر

نعم ممكن ولكن ستجد ان رقم السجل لا يعكس الترتيب الحقيقي للسجلات لكونك استخدمت ترقيم تلقائي غير مشروط فمثلا قد تجد ان الصنف رقم 2 في الفاتورة 10 رقمه 80 مثلا ولتلافي عملت حقل ترقيم بشرط رقم الفاتورة الملف مرفق بعد التعديل مع اني اتحفظ على الطريقة واتفق مع رأي الاستاذ @Eng.Qassim ولكن ربما لك فكره اخرى yasser_10(1).accdb

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

سوف نقوم بتثبيت المواضيع المتميزة لمدة أسبوع إن شاء الله .. تقديراً لأصحابها .. ولتأخذ حقها من التفاعل 🙂🌹

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

سؤال أحاول أعرف جوابه لـ @أكسس وبس : أنا عملت لك تعديلات أتعبتني وأخذت مني وقت طويل في موضوعك السابق ، ثم أتفاجأ الآن أنك ترفع المثال حاذف منه كل تعديلاتي!! ممكن طال عمرك تفهمنا السبب؟ أنا أنصح أخي @ابوخليل وباقي الزملاء بالتوقف عن مساعدتك إذا كان هذا ديدنك.

صباح النور التوزيع يختلف من رغبة لأخرى ما سعة القاعة .. استاذ او اثنين او ثلاثة ... وهكذا في سؤالك 40 قسمة 18 = 2 ويتبقى 4 .. ماذا ستفعل بهم الافضل ان ترفق مثالك تجنبا لكثرة الأخذ والرد .. موضحا فيه مطلوبك

تفضل أخي كود الجمع يكون في (Report Footer). DD126.accdb

تفضل أخي . بحث-1.accdb

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي احمد أغذية =SI(E11="";"";SI([@[Finnish Prodect ]]="FP";SOMME.SI.ENS(Q11:Q100;H11:H100;$H11;I11:I100;$I11;X11:X100;"*أغذية*"))) جينرال =SI(E11="";"";SI([@[Finnish Prodect ]]="FP";SOMME.SI.ENS(Q11:Q100;H11:H100;$H11;I11:I100;$I11;X11:X100;"جينرال"))) معادلة Sumifs_01.xlsx

تفضل أخي نموذج بحث شامل يبحث في كل الحقول ويعطيك الناتج . DD124.accdb

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي يمكنك استخدام المعادلة التالية =SI(A1<>"";SIERREUR(INDEX(Sheet1!$B$1:$B$50000; EQUIV(0; SI(A1=Sheet1!$A$1:$A$50000; NB.SI(Sheet1!$C$1:$C1; Sheet1!$B$1:$B$50000); ""); 0));"");"") حل اخر بالاكواد Sub Test() Dim I As Integer, Cellule As Range With Feuil2 For I = 1 To .Range("A" & Rows.Count).End(xlUp).Row Set Cellule = Feuil1.Cells.Find(What:=Range("A" & I), LookAt:=xlPart) If Not Cellule Is Nothing Then .Range("b" & I) = Cellule.Offset(0, 1).Value Next I End With End Sub مثال1.xlsm

اذا تقصد تحويله من Accde الى Accdb او من mde الى mdb اعتقد انه لا يمكن وعلى الرغم من وجود اعلانات في النت لبرامج مدفوعة يدعون انها تقوم بالتحويل ، الا اني حسب خبرتي في اكسس وتجربتي لمثل هذه البرامج وجدتها تقوم بالتحويل ولكن بعد نزع جميع الاكواد من المحرر .

رحم الله والدينا ووالديكم وجميع المسلمين . وفتح الله عليكم استاذنا

شكرا جزيلا لحضرتك وجاري التجربة

اخ قاسم جزاك الله خيرا.. توضعكم اخجلنا شكرا☺️ جوابكم في محله صحيح ان التسعير اصبح اكثر من ان يستوعبه الفرد فهو يومي لا بل خلال ساعات النهار بسبب الاوضاع المزرية... اهلا وسهلا بكم في بيروت متى ما اردتم فلك اخ هنا فكرتكم رائعة ولكن لن ازعجكم بها لانني لا استطيع المواكبة لقلة خبرتي لهون بكون ازعجتك كتيير.. شكرا لوقتك وتشرفت بمعرفتك خيي ابو بسملة: شكرا للمساعدة والمداخلة القيمة

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

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

بارك الله فيك ورعاك وحفظك من كل سوء ووفقك إلى ماتسعى إليه لم يرسل الصورة اذا ارسالنا كلام مع الصورة لا يرسل الاثنين

السلام عليكم ور حمة الله اكتب المعادلة التالية فى الخلية D4 ثم اسحب نزولا =DATEDIF($A4;$B4;"y") اما المعادلة التالية اكتبها فى الخلية E4 ثم اسحب نزولا =DATEDIF($A4;$B4;"ym") اما المعادلة الاخيرة اكتبها فى اى خلية تشاء =SUM(D4:D7;INT(SUM($E$4:$E$6)/12))&" Years,"& MOD(SUM($E$4:$E$6);12)&" Months,"

In standard module, put the following UDF Function VLookUps(myCode As Range, myList As Range, delim As String, Optional Uniq As Boolean = False) As String Dim e VLookUps = Join(Filter(myList.Parent.Evaluate("TRANSPOSE(IF(" & myList.Columns(7).Address & "=" & myCode.Address(, , , True) & ", " & myList.Columns(2).Address & "))"), False, 0), delim) If Uniq Then With CreateObject("Scripting.Dictionary") .CompareMode = 1 For Each e In Split(VLookUps, delim) .Item(Trim(Split(e)(1))) = Empty Next e VLookUps = Join(.Keys, delim) End With End If End Function In cell F2, you can use the UDF as following =VLookUps(Tabla2[@[إسم ولي الأمر]],Tabla1[#All]," - ",TRUE)