كل الانشطه

الاخ العزيز Eng.Qassim شكرا لك على مجهودك وسعة صدرك ولكن مساهمتك لم تكن هى ما أريد وجزاك الله كل خير الاخ العزيز احمد الفلاحجي جزاك الله كل الخير فعلا هذا ما كنت اريده فشكرا لك وجزى الله جميع الاخوة بالمنتدى الغالى كل الجزاء على علمهم النافع

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

واسف جدا لم انتبه الي افضل اجابة حذفتها

وشكرا

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

انا اسف جدا اني سؤالي متفهمش بالشكل المطلوب وتفضل النسخة التي بها النماذج Database164.rar

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

وعليكم السلام ورحمة الله وبركاته استبدل هذا الكود Sub ButtonClick(btn As MSForms.CommandButton) With btn If .Caption <> "" Then Me.TextBox1.Value = .Caption & "-" & Left(Me.CmbMonth.Value, 3) & "-" & Me.CmbYear.Value dte.TextBox1.Value = Me.TextBox1.Value Unload Me End If End With End Sub بهذا الكود Sub ButtonClick(btn As MSForms.CommandButton) With btn If .Caption <> "" Then Me.TextBox1.Value = .Caption & "-" & Left(Me.CmbMonth.Value, 3) & "-" & Me.CmbYear.Value If dte.TextBox1.Value = "" Then dte.TextBox1.Value = Me.TextBox1.Value Else dte.TextBox2.Value = Me.TextBox1.Value End If Unload Me End If End With End Sub

عند ترحيل بيانات الليست بوكس للشيت لو الليست بوكس فيه اكتر من بيان بتتسجل عمودى فوق بعضها تاريخ - اسم -صنف تاريخ - اسم -صنف تاريخ - اسم -صنف (كدا الفاتورة بتاخد صفوف كتير) هل ينفع اخلى بيانات الليست بوكس تتسجل افقى جنب بعض (تاريخ - اسم -صنف *تاريخ - اسم - صنف* تاريخ - اسم صنف) وشكرا New Microsoft Excel Worksheet.xlsm

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

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

السلام عليكم ورحمة الله وبركاته اولا حضرتك لم تنتبه علي رد م/ @Eng.Qassim فان لم يكن قد تم ايجاد حل لمشكلتك فازل علمة الاجابة لانها توحي بان مشكلتك قد انتهت ثانيا - لم اجد النموذج اللي حضرتك ذكرته بالمشاركة الأخيرة ولم اجد بالمرفق سوي الجداول والاستعلامات

هل هذا ما تريد Expr1: LTrim([patient_ name]) 😉

أ / محمد فتح الله عليك ..............هو ده المطلوب يا هندسة ......بارك الله فيك واشكرك على اهتمامك وتعبك ...... اشكرك بجد

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

أخي علي أنهيت 90% تقريبا من العمل ولله الحمد ..🙂 بقي لدي سؤال .. هل ستكون الأيام من السبت الى الجمعة؟.. أم من الأحد إلى الخميس ؟

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

مادام من الله سبحانه و تعالى عليك بالاجابة افدنا بها حتى نتمكن من التعلم و شكرا حتى لا نكون من المستهلكين فقط ههههههه

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

استاذنا كيف نحصل على هذه الخصائص التى حضرتك ارسلت صورة منها جزاكم الله خير

اخي ضع الكود التالي في حدث التغير Private Sub Worksheet_Change(ByVal Target As Range) ' Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. ' Set KeyCells = Range("A1:C10") lastrow = æÑÞÉ11.Cells(Rows.Count, "b").End(xlUp).Row Set KeyCells = æÑÞÉ11.Range("b2:b" & lastrow) If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then ' Display a message when one of the designated cells has been changed. ' Place your code here. MsgBox "Cell " & Target.Address & " has changed." End If ' End Sub شاهد المرفق المصنف1.xlsm

نقاش رائع أساتذتنا @احمد الفلاحجي @Eng.Qassim ☺️ أخي بلال وضعته لك في مثال 🙂 : تضع الدالة على مصدر صندوق النتيجة هكذا : =DateDiff("yyyy";DateAdd("yyyy";3;[From]);[To]) التواريخ.accdb

جزاك الله خيرا اخي واستاذي @احمد الفلاحجي على هذه المعلومة بصراحة اخذت المعلومة لان لدي حاسوبين ..الاثنان يعمل بوندوز 7 ...لكن احدهما اوفيس 2010 والاخر 2013 وحينما اشتغل على الاول لا اضع الفاصلة المنقوطة !! ساتحرى عن الاعدادات

سلمت.. وجاري التجربة..

الحمد لله الذي بنعمته تتم الصالحات جزاكم الله خيرا وأحسن إليكم أخي الكريم على هذه الكلمات العذبة التي سطرتها. .... آمين يارب العالمين 🏵️ وجزاكم بمثل ما دعوتم🤲. والسلام عليكم ورحمة الله وبركاته 💐🌺🌸😊