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

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

اذا كنت قد فهمت طلبك بشكل صحيح فالتعديل التالي سوف يوفي بالغرض Option Compare Text Dim a, i As Long Dim OneRng(), Rng, rCrit1, rCrit2 Dim d As Object, ComboAry As Variant Private Const Cpt As String = "Compte magasin" Private Const tbl As String = "Table1" Dim Crit(), headers(), choix(), colClé, Cnt, Item_Code Private Sub UserForm_Initialize() Dim Irow& Set f = Sheets(Cpt) a = Sheets(Cpt).ListObjects("Table1").DataBodyRange.Columns("A:X") Set d = CreateObject("scripting.dictionary") d.CompareMode = vbTextCompare Irow = f.Columns("I:N").Find(What:="*", SearchDirection:=xlPrevious, _ SearchOrder:=xlByRows).Row Set Cnt = f.Range("G2:N" & Irow): Crit = Cnt.value headers = Application.Index(Cnt.Offset(-1).value, 1) Me.ComboBox10.List = Application.Transpose(f.Range("J1:N1").value) ComboAry = Array("ComboBox1", "ComboBox3", "ComboBox5", _ "ComboBox9", "ComboBox10", "ComboBox13", "ComboBox12") For i = 0 To UBound(ComboAry): Me.Controls(ComboAry(i)).value = "*": Next i '''''''' Code..... ''''''''''''''''''''' End Sub ******************************************************************** Private Sub ComboBox10_Change() Item_Code = Val(Me.ComboBox12): Prices = Me.ComboBox10 If IsNumeric(Me.ComboBox10) Then _ tmp = Val(Me.ComboBox10) Else tmp = Prices colClé = Application.Match(tmp, headers, 0) For i = LBound(Crit) To UBound(Crit) If UCase(Crit(i, 1)) = UCase(Item_Code) And _ Prices <> "*" Then Me.TextBox7.value = Crit(i, colClé) Next i End Sub بيانات فاتورة 3.xlsm

الرجاء فضلا وليس أمرا الدعاء للاسطوره فادي ابو وسام (Foksh) ربنا يشفيه ويعافيه شفاء لا يغادر سقما اللهم امين معتقدش الراجل اتأخر عن حد قبل كده فى حاجه وحضراتكم عارفين اللي بيدعي بظهر الغيب لأخيه ربنا بيسخرله من يدعي عنه بظهر الغيب اعزروني لو مش لاقى احسن من قسم الاكسس احط فيه أقل ما يمكن لاخ وصديق محترم خلوق زيه

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

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

طبعا اكيــــد هم فى بيتهم وانا فى بيتى انا لا والله من دماغى انا من كوكب الارض ومن مصر هي فين دى انا مش شايف اى حاجة ! انت بعد كل ده تخون العشرة وتضحك على يا حبيب الملايين نص ساعة بس ؟ سبحان الله فعلا القارئ كالحالب والسامع كالشارب احلب ان فى الكود بالساعات وانت تيجى بسهولة ع الماشى تشربه فى نص ساعه بس بس مش خسارة فيك فأنت ومن أنت أنت صاحب المكتبة العامرة اسأل الله ان يجعل قلبكم عامر بالايمان مثل مكتبتكم العامرة بالتحف ويحك لله درك يا رجل حياكم الله وبياكم ... مهارة ايه الهمام المقدام لا املك منها ذرة هذا فضل الله تعالى ثم اساتذتنا الذين نتعلم منهم وعلى خطاهم نسير فنحن طلاب العلم نطوف في ربوع وبساتين استاذتنا فنقطف من كل بستان زهرة ونرتشف من كل نبع قطره اسأل الله تعالى ان يبارك لنا الله في اساتذتنا العظماء ويأجرهم عنا كل خير وأن يكتب كل خرف يكتبونه في موازين أعمالهم صدفة جارية الى يوم الدين يلا الواجب بتاعك تعمل الحقول السودا وتكمل مشروعك الـ Version 2.16 إن شاء الله ثم تخبرنا عن رابط المشروع النهائى علشان المساكين امثالى يريدون ملئ مكتبتهم الخاوية جزاكم الله خيـــرا على دعواتكم الطيبة احبكم في الله ولوجه الله ♥ 🥰 انا اتحمس عندما انافسك بكل صراحة انت ند قوى ومتعب جدا جدا جدا اتعب عندما اتنافس معك .. ولكن هى والله حب ومودة ولله وفى ذلك فليتنافس المتنافسون وذلك ميدان المتحابين المجانين فلتخلع نعليك ولتشمر عن ساعديك

ألف لا بأس عليك يا بروف 🌹🌷 ( شكله الأستاذ محمد عداني 😅 ) أسأل الله العظيم رب العرش العظيم أن يشفيك من كل داء ويعافيك من كل بلاء 🙂🤲🏻

الله أكبر .. الله أكبر الناس كلها في حتة .. وأنت في حتة تانية خاااااااااااااااااااااااالص شغل معلمين محترم .. وتفكير إبداعي مش خارج الصندوق بس .. دا من كوكب ثاااااني بسم الله ماشاء الله .. مش خسارة عليك المليون جنيه والله نص ساعة وأنا أحلل الكود وأقطع فيه .. فعلا أنت تخليني أعيد التفكير في نفسي وشغلي 😂 أحييك على المهارة دي .. ربنا يبارك لك يارب 😊🤲🏻

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

أنا عارف أنك عايز الإحترافي الإحترافي اللي ما حصلشي @ابو جودي 😅😁 لكن الوضع دالوقتي هو ده : وأما الحبشتكنات دي : مكانها في الـ Version 2.16 إن شاء الله

طيب استاذ @Moosak بما انك لك السبق فى هذا الموضوع بصراحة انا قبل فترة حاولت تصميم قاعدة وبسبب انشغالى فى العمل توقفت كالعادة ولكن بما ان استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل أعجبته الفكرة وكانت هذه كلماته بالعند فى استاذى الجليل ومعلمى القدير صاحب المكتبة العامرة الاستاذ @Moosak فى شغل احترافى زى القاعدة فى المشاركة الاصلية وفى شغل فاخر من الاخر ايون صدقنى زيمبئولك كده الشغل الفاخر من الاخر بقه لما تفتح القاعدة تحدد لغة الاسئلة والاجوبة عربى واللا انجليزى لانها تفرق طبعا فى اتجاه النص >>---> اومااااااااااااال وكمان تحدد اجمالى مربعات الشبكة ان هنا شايفها مثبته 10 * 10 تقريبا يكون فى مرونه فى وضع وتعديل الاسئلة والاجوبة واللا ايه الكلام ؟!

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

تفضل استاذ @2saad يارب يعجبك . DDTest6003.rar

جربت الان على قاعدة وبها كلمة مرور مثل هذه ولم يعمل ..... فهل كلمة المرور التي تقصدها هي هذه ؟؟؟؟

ولكن الظاهر في الفيديو هو الدخول للبرنامج لنفترض ان المرفق قاعدة بيانات اكسس حقيقية ، وليست مجرد تسمية امتداد .. لانه كل ملف تضع له امتداد اي تطبيق تظهر صورة التطبيق على الملف اولا .. الملف تالف لا يوجد به كائنات الكلمة الصحيحة الوحيدة التي تم العثور عليها هي Standard Jet DB ...................................................................... ولكن هذا ليس محل نقاشنا انت تتكلم في الفيديو عن كسر حماية الدخول للبرنامج في قاعدة بيانات اكسس accdb وانه لا يمكن استيراد الكائنات الا بعد الكسر فالمفترض انك تضع مثالك الذي عرضته في الفيديو قبل معالجته وكسره .. لنحاول معك الاستيراد بدون وسيط

استاذ @المهاجر ابو معاذ هذا المرفق كنت سويته من قبل لأحد المشاركات أقرأه جيداً . واذا مشي الحال معاك طبقه عندك وغير ذالك ارسل مرفق بطلبك وأنا بطبق عليه . تحياتي لك . DDPrintMultiSelection.rar

بالاضافة لما تفضل به البشمهندس @M.Abd Allah وخصوصا عندما تكون الفواتير كثيرة .... يمكن عمل مربع نص وتكتب فيها ارقام الفواتير المطلوبة ولكن يعاب على طريقتي ان مدخل البيانات ممكن يغلط في رقم معين فلا يتم طباعة الفاتورة المطلوبة بسبب الخطأ .... لذلك طريقة البشمهندس فيها دقة اكثر ولكن في حالة العدد الكبير من الفراتير يكون العملية مرهقة وخاصة اذا ما كانت الفواتير المطلوبة غير مرتبة

حضرتك تقدر تعمل قائمه متعدده الاختيارات فى نموذج تقدر من خلالها تحدد الفواتير اللي تريد طباعتها وتعمل كود ينشألك تقرير بالفواتير المحتاره فقط تقدر حضرتك تبعت مثال وان شاء الله نعدلك عليه

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

جزاك الله خيراً وجعلة الله بميزان حسناتك باذن الله

اسعد الله ايامك ولياليك تمام ولا اجمل .. برنامج احترافي لإعداد وحفظ وطباعة .. الكلمات المتقاطعة ( تعلم بطريقة اللعب والتسلية) جزاك الله خيرا واحسن اليك

وعليكم السلام ورحمة الله تعالى وبركاته ماهو اصدار الاوفيس لديك على الجهاز اخي الفاضل ؟

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Private Sub CommandButton1_Click() Sum = Evaluate("=SUMIFS(F3:F100000,B3:B100000,"">=""&I2,B3:B100000,""<=""&j2)") Me.TextBox1.Value = Format(Sum, "#,##0.0") End Sub sumif.xlsm

وعليكم السلام ورحمة الله وبركاته اهلا بك استاذنا الفاضل / @M.Abd Allah استاذى انا لم اقصد ان المتطفل يدخل على برنامجى ويغير ويعدل فى تصميم الجداول شوف انا عندى برنامج فى عملى اعمل عليه انا وبعض الموظفين ايضا انا اريد لو جاء احد الموظفين وفتح قاعدة بيانات جديدة واراد ان يستورد جداول واستعلامات البرنامج فلا يتمكن من الاستيراد جزاك الله خير