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

السّلام عليكم و رحمة الله و بركاته أستاذي القدير " محمد حسن المحمد " بإذن الله .. موفّق بك و بكلماتك الطيّبة و تشجيعك المتواصل فائق إحتراماتي السّلام عليكم و رحمة الله و بركاته أخي الغالي " ولد الحجاز " لم أفهم المقصود جيّدًا .. هل من الممكن التّوضيح أكثر لو سمحت على كل حال .. هذا كود جعل الفورم .. أي فورم .. يملأ الشّاشة Private Sub UserForm_Activate() With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With End Sub فائق إحتراماتي

السّلام عليكم و رحمة الله و بركاته أخي الفاضل " أبو زيد " ..استبدل الكود أعلاه بهذا الكود المرفق في الملف .. فائق إحتراماتي التاريخ.rar

السّلام عليكم و رحمة الله و بركاته الابداع و التألّق تعلّمناه منك سيّدي الكريم أفضالك علينا كلّنا .. بدون استثناء لا تحصى و لا تعد بارك الله فيك و لك .. و يسّر الله أمورك يا "ياسر العربي" فائق إحتراماتي

الله ينور حبيبي مبدع ومتألق دائما بارك الله فيك وفي وقتك لمساعدة اخوانك

اخينا ابو جمانة اعتذر والله على التاخير فقد نسيت الموضوع ولم اطرحه في وقته حيث كان يحتاج قليلا من التركيز ! ومشاركة مع اخي سيد ! اليك هذا الحل وما هو الا ترجمة لفكرتك باستخدام iif ! ضع التعبير التالي في استعلام تجميعي وفي صف الاجمالي اختر ماكس : Expr2: IIf(IsNull([الحركات].[الفواتير]);#01/01/1900#;[الحركات].[التاريخ]) اتمنى انه لما تريد وبالتوفيق

السّلام عليكم و رحمة الله و بركاته أخي الكريم " أبو زيد " هل من الممكن التّوضيح أكثر لو سمحت .. حاول سيّدي الكريم تسمية الكائنات بمسمياتها .. خانة في الفورم !!؟؟ إذا كنت تقصد التاريخ بالتاكست بوكس .. أمر بسيط .. أما في شيت الاكسل فالتاريخ يظهر بشكل طبيعي .. على كل هذا كود التاريخ التلقائي و أي استفسار آخر .. فتفضل بدون تردّد فائق إحتراماتي Private Sub UserForm_Initialize() UserForm1.TextBox16.Text = Format(Date, "yyyy - mm - dd") End Sub

السّلام عليكم و رحمة الله و بركاته أخي الكريم MAHMOUD330 .. إليك أبسط كود ..تجده داخل اليوزرفورم ..فقط قم بنسخه ..بمجرّد إضافة الكود سيتم إضافة ما تريده تلقائيا فائق إحتراماتي زر تكبير و تصغير الفورم.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

الى اساتذتى و من لهم الفضل فى تعليمى الكثير ,,,,,, - بدون رغى كتير علشان مش باعرف أتكلم كتير - بصراحه انا كنت عاوز اهدى الملف دة لبعض الاساتذه بس بصراحه أتكسفت انسى حد علمنى حاجه واكون مكتبتش اسمه ف انا بهديه لكل أوفيسنا بصراحه ده مشروع واحد زميلى فى الشغل وانا مقدرتش امسك نفسى لما شفته عن انى اشارك بيه اصحابى و من من الممكن ان ينتفع به ---- نَحوى نحوى مفيش كلام ------ عباره عن اله حاسبه بصراحه غريبه الاطوار علشان ........... .......... .............................................................. ,,,,, " ما تيجوا نشوف " بصراحه بحاول اقلد أسلوب الاستاذ الكبير ياسر خليل ..... بس مش عارف .... Calculator Version 1.rar

السلام عليكم ... هل من الممكن تحديد عدد النسخ بهذا الكود ...

أشكرك أخ محمود بالنسبة للاستفسار ات الأخيرة طبعا يمكن عند مسح الرقم القومي جعل خانة تاريخ الميلاد خالية تلقائياً و كذلك عند مسح تاريخ الوفاة يتم أيضاً مسح خانة السن عند الوفاة ومدة الوفاة تلقائياً ( بس يستلزمه تغيير فى الأكواد ) ولا تنسى أنه فى الفورم زر اضافة جديد يؤدى لك هذه الوظيفة بالنسبة لرسالة الخطأ لازم تحصل لكونك مسحت بيانات مترابطة مع أو مبنية على بيانات أخرى بالنسبة للصورة هات خصائص Image1 فى الفورم وابحث عن حجم الصورة واحتر الوضع zoom بكدة يكون الطلب 1 و 2 و 5 الباقى يطرح فى موضوع مستقل وهذا رجاء منى أن تطرح نقطة أو نقطتين متشابهتين فى الموضوع الواحد على الأكثر انما جملة طلبات يصرف عنك الآخرين

عزيزي ابا جمانة لايوجد لدي حساب بكل وسائل التواصل الاجتماعي ! ستكون باذن الله ولكن في الوقت المناسب ! تحياتي

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

الله يستر عليك يا أستاذ ياسر خليل غبت وغاب المنتدى

اخى الكريم جرب الملف المرفق هل هو طلبك تقبل تحياتى بحث اليست بوكس.zip

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

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

اخى الكريم استبدل كود التغيير فى التكست بهذا الكود Private Sub TextBox1_Change() ListBox1.Clear For Each f In Range("a1:a100") x = InStr(1, f.Value, TextBox1.Text) If x > 0 Then ListBox1.AddItem f End If Next f L_Count1.Caption = ListBox1.ListCount End Sub ستلاحظ انه تم حذف الاسطر من بعد Next f ووضع هذا السطر بدلا منهم L_Count1.Caption = ListBox1.ListCount تقبل تحياتى

شوف كدا الاستعلام الاول تاريخ اخر فاتورة.rar

السلام عليكم ورحمة الله تم التعديل جــــــرًب ملاحظــــــــة / عندما تختار السعر المناسب ثم موافق : 1- إذا السعر الجديد لم يختلف عن السعر القديم اللي بالمخزن وبعد ظهور الرسالة ان السعر نفس السعر السابق فلم يتم أي تعديل علي السعر اللي بالمخزن لانة نفسة لم يتغير بعد ذلك لازم تضغط زر تسجيل لكي يتم ترحيل السعر والكمية في شيت المشتريات فقط . 2 - اما إذا اختلف السعر فسيظهر لك مربع الحوار والذي ستقوم بإختيار السعر 1 او 2 او 3 هنا بعد الاختيار : أ - أولا / تلقائيا يتم تعديل السعر بالمخزن في عامود سعر الشراء بالكيلو ب - ثانيا لكي يتم تسجيل السعر المختار والكمية إلي شيت المشتريات لابد وان تضغط علي زر تسجيل. اخوك في الله / أبو الحسن والحسين ادارة المحلKHMB.rar

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

السلام عليكم والدالة وين تريدها في اي عمود لتتضح الصورة لمن اراد المشاركة اخي الكريم قاسم

الفورم غير موجود في مرفقك الاخير ؟ هذا الكود وبه شرح الاسطر المعنيه Private Sub CommandButton2_Click() Dim Sh As Worksheet Dim Sht As Worksheet Dim A As Variant ''width للاشارة لورقة Sh تعين متغير Set Sh = Sheets("width") ''result للاشارة لورقة Sht تعين متغير Set Sht = Sheets("result") ''Samole و Width لادرااج الشروط المراد البحث عنها A تخصيص متغير A = Array("Width", "Samole") '' Ali_F غير فارغ استدعي الدالة المعرفة TextBox1 If Me.TextBox1 <> Empty Then Ali_F TextBox1, A(0), Sh If Me.TextBox2 <> Empty Then Ali_F TextBox2, A(1), Sht ''========================================================== '' شرح الدالة المعرفه ''---- 'Ali_F(Tx, id, Tb As Worksheet) ''---- ''Tx القيمة التي تود حفظها في العمود المقابل لنتيجة البحث ''TextBox1 طبعاً القيمة هيا ماتكتبه في ''---- ''id قيمة البحث ''"Width" A(0) A وهو القيمة الاولى في متغير ''---- ''Tb الورقة المراد البحث فيها '' Sh = "width" TextBox1 للـ '' Sht = "result" TextBox2 للـ ''========================================================== End Sub Public Function Ali_F(Tx, id, Tb As Worksheet) Dim Sht As Worksheet Dim Rng As Range Set Sht = Tb With Sht Set Rng = .Cells.Find(What:=id) '' If Not Rng Is Nothing Then Rng.Offset(, 1).Value = Tx End With End Function

طيب ابشر إن شاء الله بالتوفيق الله يبارك لكم بالنسبة للطريقة بالبرنامج فهي في ردي السابق بعد الخــــــــــــــــــــــــــــــــــــــط ------------------------------------------------------------------------------------------------------------------------------------ لكنني انا فقط احتسبت الطريقة التي امامي وهي فعلا لاتعطيك المتوسط الصحيـــح وغير سليمـــــــــــــــــــــــــــــة. ممكن تعطيك 90% علي حسب الحركة .والطريقة عملتها كالتالي : جعلت الكود يأخذ : 1 - الكمية التي بالمخزن ويضربها بالسعر اللي بالمخزن 2 - واضرب الكمية الجديدة في السعر الجديد ثم اجمع المبالغ واقسمها علي الكميات وحتى هنا لامشكلة إذا فعلا تم شراء ما بالمخزن بنفس السعر. بقية الملاحظات تقريبا هي فعلا موجودة حسب طلبك لكن كمان سيتم متابعتها لاحقا. فننتظر احد الاخوان المتمكنيين في المجالين سوى محاسبيا او برمجيا او الاثنين معا فالكل مكمل لبعض وهم كثير مثل محمد الريفي والاخ ضاحي والاح سليم حاصبيا وهناك الكثير اعرفهم من خلال أعمالهم لكن لاتحضرني هذه اللحظة أسماءهم.

السلام عليكم ورحمة الله بالنسبة لمتوسط السعر يحتسب كالتالي: مثال فعلي : اشتريت 50 كيلو سكر بسعر الكيلو 3 ريال 50 * 3 = 150 اشتريت 100 كيلو سكر بسعر الكيلو 4 ريال 100 * 4 = 400 اشتريت 200 كيلوا سكر بسعر الكيلو 2.50 ريال 200 * 2.50 = 500 فمتوسط السعر : 1- إجمالي الكمية = 50 + 100 + 200 = 350 كيلو 2- إجمالي مبلغ الكميات المشتراه 150 + 400 + 500 = 1050 ريال يقسم إجمالي المبلغ علي إجمالي الكمية 1050 / 350 = 3 ريال متوسط السعر 3 ريال فعليا لكن محاسبيا متوسط السعر يدخل فيها حركة المبيعات فلها حسبه أخرى وتحتاج لكيفية التسجيل الفعلي للمشتريات وكذلك المبيعات . ------------------------------------------------------------------------------------------------------------------------------------ لكنني انا فقط احتسبت الطريقة التي امامي وهي فعلا لاتعطيك المتوسط الصحيـــح وغير سليمـــــــــــــــــــــــــــــة. والطريقة عملتها كالتالي : جعلت الكود يأخذ : 1 - الكمية التي بالمخزن ويضربها بالسعر اللي بالمخزن 2 - واضرب الكمية الجديدة في السعر الجديد ثم اجمع المبالغ واقسمها علي الكميات وحتى هنا لامشكلة إذا فعلا تم شراء ما بالمخزن بنفس السعر. بقية الملاحظات تقريبا هي فعلا موجودة حسب طلبك لكن كمان سيتم متابعتها لاحقا. فننتظر احد الاخوان المتمكنيين في المجالين سوى محاسبيا او برمجيا او الاثنين معا فالكل مكمل لبعض وهم كثير مثل محمد الريفي والاخ ضاحي والاح سليم حاصبيا وهناك الكثير اعرفهم من خلال أعمالهم لكن لاتحضرني هذه اللحظة أسماءهم.

صراحة برنامج رائع جزاك الله خير استمر للأمام أحسنت يابطل

جزاك الله خير الجزاء ان شاء الله تعالى

تم الوصول إلي حل بفضل الله ثم الأخ المهندس Iyad Shaqura‎‏ ترحيل أعمدة متفرقة_يحتاج تعديل_ (3).rar

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

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

وعليكم السلام أخي كرار من متابعتي لردودك في المنتدى ، كان يجب علي ان افهم انك جربت تغيير الكود المطلوب واصطدمت بهذه الرسالة ، وتوقفت عندها : وافضل طريقة للتغلب عليها ، ان ترجع الكرة الى ملعبي السبب في حصولك هذه الرسالة ، هو ان لديك معايير 3 في الاستعلام sh11 والذي يعتمد عليه الاستعلام sh . طيب ، اذا الاستعلام sh11 يستطيع ان يقرأ المعايير من النموذج ee ، فلماذا لا يستطيع الكود ان يقرأه!! والجواب ان الاكسس عبارة عن اكثر من برنامج مرتبطه ببعضها ، فمنها الـ jet والذي الان يسمى Ace من الاصدار 2007 ، وهو مسئول عن الاستعلامات وبقية امور الاكسس ، ومنها الاكسس شخصيا ، وكود VBA جزء منه ، والبرنامجين ، صحيح انهم مرتبطين ، ولكن هناك بعض الامور التي لا يتفاهمون عليها مباشرة ، بل يجب عمل وسيط بينهم ، وحل هذه الرسالة هي احد الاشياء اللي محتاجة وسيط كود اصطياد الخطأ ، في الكود المرفق ، هو حلقة الوصل ، واخذ مني الوقت الطويل لتضبيطه ليتلائم مع برمامجك ، فاعتذر عن التأخر على الرد عليك Private Sub cmd_Combine_Click() On Error GoTo err_cmd_Combine_Click 'delete the old data mySQL = "Delete * From tbl_PP" CurrentDb.Execute (mySQL) Dim rstpp As DAO.Recordset Dim rst As DAO.Recordset Dim strSql As String Set rstpp = CurrentDb.OpenRecordset("Select * From tbl_PP") '1 'j Set rst = CurrentDb.OpenRecordset("Select * From sh Order By tash") 'j2 Set rst = CurrentDb.OpenRecordset("Select * From tb_sh Order By [تاريخ الوصل]") strSql = "Select * From sh Order By [تاريخ الوصل]" Set rst = CurrentDb.OpenRecordset(strSql) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'add all the records For i = 1 To RC rstpp.AddNew 'j rstpp!iDate = rst!tash 'j rstpp!Purchase = rst!mbsh rstpp!iDate = rst![تاريخ الوصل] rstpp!Purchase = rst!mb rstpp.Update rst.MoveNext Next i '2 'j Set rst = CurrentDb.OpenRecordset("Select * From ts Order By tats") 'j2 Set rst = CurrentDb.OpenRecordset("Select * From tb_ts Order By [تاريخ]") strSql = "Select * From ts Order By [تاريخ]" Set rst = CurrentDb.OpenRecordset(strSql) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'we should check if the date is available, then we should use it For i = 1 To RC 'j rstpp.FindFirst "iDate=#" & rst!tats & "#" rstpp.FindFirst "iDate=#" & rst![تاريخ] & "#" If rstpp.NoMatch Then rstpp.AddNew 'j rstpp!iDate = rst!tats 'j rstpp!Payment = rst!mbts rstpp!iDate = rst![تاريخ] rstpp!Payment = rst!mblk rstpp.Update Else rstpp.Edit 'rstpp!iDate = rst!tats 'j rstpp!Payment = rst!mbts rstpp!Payment = rst!mblk rstpp.Update End If rst.MoveNext Next i rstpp.Close: Set rstpp = Nothing rst.Close: Set rst = Nothing DoCmd.OpenTable "tbl_pp" Exit Sub err_cmd_Combine_Click: If Err.Number = 3061 Then 'too few parameters, expected 1 or more 'this error occurs when trying to run a query which needs its parameters from a Form, 'the Form should be open with the parameter, then this code take the values properly Dim qdf As QueryDef Dim prm As Parameter 'Set qdf = CurrentDb.QueryDefs("strSql") Set qdf = CurrentDb.CreateQueryDef("NewQueryDef", strSql) For Each prm In qdf.Parameters prm.Value = Eval(prm.Name) Next prm Set rst = qdf.OpenRecordset(dbOpenDynaset) DoCmd.DeleteObject acQuery, "NewQueryDef" Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 231.1.New .accdb.zip

السلام عليكم Private Sub CommandButton2_Click() Dim Sh As Worksheet Dim Sht As Worksheet Dim A As Variant Set Sh = Sheets("width") Set Sht = Sheets("result") A = Array("Width", "Samole") If Me.TextBox1 <> Empty Then Ali_F TextBox1, A(0), Sh If Me.TextBox2 <> Empty Then Ali_F TextBox2, A(1), Sht End Sub Public Function Ali_F(Tx, id, Tb As Worksheet) Dim Sht As Worksheet Dim Rng As Range Set Sht = Tb With Sht Set Rng = .Cells.Find(What:=id) If Not Rng Is Nothing Then Rng.Offset(, 1).Value = Tx End With End Function

هناك طرق عدة لهذه الامر منها مثلاً هذه المعادلة =SUMIFS($M$6:$M$9,$K$6:$K$9,F6,$L$6:$L$9,G6)

السلام عليكم زيادة في الخير -ملاحظة معادلة array تحتاج لضغط ctrl+alt+enter تحياتي EXCEL EQUATION+.rar

ربما كان لمطلوب two_dimension vlookup.zip

السلام عليكم ورحمة الله بعد اذن اساتذتى الكرام اعتقد ان هناك اخطاء فى هذه الدوال واهمهم هو ازالة الصفر من اليسار لان لو اردنا ان نستخدم هذه الدوال فى اى رقم وليكن رقم تليفون ستكون النتيجه خطاء واعتقد ان افضلهم هى هذة الدالة =SUBSTITUTE(A2;" ";"") لانها تعمل فقط على المسافات تحياتى للجميع

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

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

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

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

أخى الحبيب ( قنديل ) أولا - شكرا جزيلا على مجهودك الرائع ولكن أحب أسأل حضرتك الموقع لايريد تحميل معى لاأدرى هل من عندى أم من الموقع

اليك هذا البرنامج الذي يعمل مع كافة برامج الاوفيس http://www.mediafire.com/?zjnm2sl95jcg46i

تفضل اخي الكريم كلمة السر yarab1