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

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

السلام عليكم اخي العزيز ضياء اقدم لك احد الحلول .. اولاً تقوم بإنشاء الجدول B و تعيد اسماء الحقول بالانجليزي حتى يسهل التعامل معها بالكود ثم تضع الكود التالي على زر امر بنموذج Dim db As DAO.Database Dim rsA As DAO.Recordset Dim rsB As DAO.Recordset Dim a As Integer Dim i As Integer Set db = CurrentDb Set rsA = db.OpenRecordset("A") Set rsB = db.OpenRecordset("B") If Not (rsA.EOF And rsA.BOF) Then rsA.MoveFirst Do Until rsA.EOF For i = 1 To rsA!numberOfIds rsB.AddNew rsB!teacherName = rsA!teacherName rsB!subject = rsA!subject rsB!cClass = rsA!cClass rsB.Update Next i rsA.MoveNext Loop MsgBox "تم تنفيذ العملية بنجاح" End If rsA.Close rsB.Close Set rsA = Nothing Set rsB = Nothing Set db = Nothing تفضل المرفق بعد التعديل ارجو ان يكون هو المطلوب بالتوفيق a.rar

كود جميل لأيام الأسبوع بالعربي ومن روائع أبوحنين Nmb = Weekday(Range("C5").Value) Art = Array("الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة", "السبت") For i = LBound(Art) To UBound(Art) If Nmb = i + 1 Then Range("B5").Value = Art(i) Next وهذا كود آخر مختصر Cells(5, 2) = Choose(Weekday([today()]), "الأحد", "الأثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعه", "السبت") المرفق: فاتورة ديناميكية2.rar

يا خطيييير لكن يا حبذا جعل طريقة الدفع الإفتراضية هي نقداً حتى لا تكون مصدر إزعاج للبائع.. فيكفي تغيير رقم الفاتورة. وثانياً: نريد أن تكون أيام الأسبوع بالعربي.. ابحث عن الكود البديل. تحياتي

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

السلام عليكم ورحمة الله تعالى وبركاته اتقدم اليكم بإهداء بسيط جدا تحويل الرسائل الى نماذج والتحكم الكامل فى الية الظهور والاغلاق والشكل والمضمون ونص الرسالة وعنوانها ولون الخط وحجمه ...... frmMassage.rar

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

اعرض الملف برنامج الحسابات Aliphia Aliphia برنامج حسابات اون لاين يستهدف الشركات الصغيرة و أصحاب المشاريع الخاصة. يعتمد التطبيق في عمله على تقنية الحوسبة السحابية و يتضمن تقنيات عالية في التنفيذ، مما يجعله آمن و قادر على تلبية احتياجات الآلاف من العملاء في وقت واحد ومن أي مكان في العالم. مميزات البرنامج: يستخدم Aliphia أربع لغات مختلفة : العربية، الإنجليزية، التركية و الفرنسية؛ إنشاء فاتورة و تعديلها لإضافة طابع شخصي؛ نماذج فواتير متعددة العملات؛ دفع الفواتير عبر الإنترنت؛ تسجيل المقبوضات أوتوماتيكيا بمجرد دفعها من طرف العميل؛ عدد غير محدود من العملاء، الموردين، المستخدمين و المنتجات/الخدمات؛ إستيراد و تصدير البيانات بكل سهولة؛ برنامج إدارة المخزون اون لاين؛ إنشاء فواتير مكررة وبرمجتها حتى تتكرر أوتوماتيكيا؛ تتبع النشاط التجاري للشركة من خلال لوحة مراقبة ديناميكية و كاملة؛ ملائم لشركات المنتجات والخدمات؛ و العديد من المميزات الأخرى … ألف ياء هو منصة قوية ذات ميزات وأدوات متكاملة تساعدكم على إرسال الفواتير،تحصيل المبالغ و تذكير العملاء بتسديد فواتيرهم في الأوقات المحددة. يتميز بتصميم يُسَهِل التعامل مع الفواتير و واجهة مستخدم تتوافق مع الجميع. صاحب الملف Majda تمت الاضافه 10 نوف, 2016 الاقسام قسم الإكسيل

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

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

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

المهمة التالية: نضيف كود يجعلنا نمنع تكرار الصنف في الفاتورة، بل نزيد في الكمية.. بمعنى أننا إذا أضفنا صنف موجود في الفاتورة فإنه لا يدرجه في سطر جديد، بل يبحث عن هذا الصنف ويزيد كميته. وتقبلو تحياتي

السلام عليكم ورحمة الله تفضل 2.rar

اعتذر اخى الحبيب لم اكن على الجهاز وجدت صندوق البريد ممتلئ فقمت بافراغه البريد الخاص متاح الان تحت امرك

السلام عليكم تم عمل المطلوب ان شاء الله و تبقى التجربة هي السبيل الوحيد لاكتشاف الاخطاء 3-فاتورة.rar

و فيك بارك استاذنا الغالي محمد .. و انت اكثر .. انشغلنا كثير دعواتك لنا .. و انا سادعو لكم بظهر الغيب ان يحفظكم المولى و يرعاكم و يوفقكم لما فيه الخير دائماً .. تعديل بسيط بالكود Dim db As DAO.Database Dim rsA As DAO.Recordset Dim rsB As DAO.Recordset Dim i As Integer Set db = CurrentDb Set rsA = db.OpenRecordset("A") Set rsB = db.OpenRecordset("B") If Not (rsA.EOF And rsA.BOF) Then rsA.MoveFirst Do Until rsA.EOF For i = 1 To rsA!numberOfIds rsB.AddNew rsB!teacherName = rsA!teacherName rsB!subject = rsA!subject rsB!cClass = rsA!cClass rsB.Update Next i rsA.MoveNext Loop MsgBox "تم تنفيذ العملية بنجاح" End If rsA.Close rsB.Close db.Close Set rsA = Nothing Set rsB = Nothing Set db = Nothing a.rar

بارك الله فيك استاذ يوسف.. وحشتنا كتير والله

احاول ارسال رسالة لك علي الخاص يقول انك لا تستقبل رسائل

نسال الله تعالى القبول وان يجعل كل اعمالنا خالصة لوجهه الكريم

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

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

شكرا ابا جودي.. وجزاك الله خيرا

محمد ايمن صالح حمادي شكرا لكما استفدت كثيرا

اخى الحبيب هلا والله

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

اتفضل اخى الحبيب هذه الأفكار المتواضعه علك تجد فيها ما يثلج فؤادك

السؤال التالي: إضافة زر يقوم بحذف بيانات الفاتورة وإضافة فاتورة جديدة.. وقد سبقنا بها أبوحنين في الجزئية الأولى. فما هو الكود الذي يحقق ما سبق كالتالي:

الاستاد / ابو خليل قمت بتطبيق المثال عندي والحمد الله كل شئ ضبط معي ولكن سؤالي : ما سبب ثقل فتح النمودج اجد انه يأخد بعض الوقت اثناء الفتح هل بسبب انه يأخد الوقت من النت؟ وعلي اي حال فهو قام بحل مشكلة كبيرة لدي والفضل لله ثم لكم دائما استادي/ ابو خليل تحل مشاكلي وتكون خير عونا لي استاد / ابا جودي هدا ليس باطراء ولكن هدا حقك عليَ انت حد محترم جدا كل احترام وتقدير لكما

اخي اباجودي تحية طيبة قبل التجميع علينا ان نحسب الوقت المنقضي في الدوام لكل موظف اضفت لك حقل في كل استعلام يقوم بحساب الوقت المنقضي لكل يوم وهو باسم total1 حاول ان تقوم بعملية التجميع فكرة على الهامش اذا لم تنجح في عملية التجميع (حول الاستعلام الى استعلام الحاق بجدول مؤقت ومن الجدول المؤقت انشئ استعلام للتجيمع ) calc time emp1.rar

تفضل اخي الكريم UnionQDb1.rar

السلام عليكم أخي الزباري جزاكم الله خيرا في انتظار السؤال الموالي . . . .

On Error GoTo ErrorHandler . . Cells(r, 1) = Cells(r - 1, 1) + 1 استكشاف الأخطاء وإصلاحها: هذا الكود يقوم بعملية الترقيم التلقائي، حيث يقوم بإضافة واحد على الخلية الحالية، بمعنى أن الخلية الحالية=الخلية السابقة+1 وهذه المعادلة تنطبق على جميع الخلايا فيما عدا الخلية الأولى، حيث تتكون الخلية الأولى على نص العنوان "م"، فبذلك لا يمكن جمع نص مع العدد واحد، وفي هذه الحالة أٌجبر الكود بأن يعتبرها أول رقم من الترقيم (يعني واحد).. ويتم توجيهها إلى الكود التالي: ErrorHandler: Cells(r, 1) = 1 Resume Next وتقبلوا تحياتي.. ترقبوا السؤال التالي.

تعقيب على ما سبق: استوقفتنا بعض الأمور من أخي أبو حنين. Qn As String في هذا الكود يتوجب على Qn أن تكون Integer بل الأصح أن تكون Byte حيث أن الكمية لا تتعدى 255. =========================================================== Qn = InputBox("أدخل الكمية", "الكمية") If Not IsNumeric(Qn) Then Exit Sub معنى الكود أنه إذا لم تكن الكمية رقم فسيتم انهاء الدالة (جرب إدخال نص) ولنزيد الكود جمالاً نضيف تحذير بأنه لم يتم إدخال رقم قبل الخروج من الدالة. =============================================

المرفق: فاتورة ديناميكية1.rar

مرحبا تم عمل المطلوب 1-فاتورة.rar

السلام عليكم و رحمة الله تعالى و بركاته: المثال الذي قدمته أستاذ محمد ممتاز. و بعد إذنك أستاذ أردت أن أضيف مثال آخر يلبي حاجة السائلة في النموذج تسجيل الإجازة تضغط على زر "جلب موظف" يفتح نموذج آخر "نموذج البحث" يمكنك من البحث عن الموظف و تحديده ثم الضغط على زر "نقل" ليتم نسخ معلومات هذا الموظف إلى نموذج "تسجيل الإجازة" و هكذا تختار الموظفين المطلوبين تغلق "نموذج البحث" و تسجل نوع الإجازة و تاريخها و سببها ثم الضغط على زر "حفظ" . هذا هو المرفق و الله هو المستعان. اضافة اكثر من موظف في ان واحد.rar

السلام عليكم و رحمة الله تعالى و بركاته: بعد إذنك أستاذي محمد أيمن هذا مثال يوضح طلب السائل استعمال الدالة for.rar

تفضل اخي الكريم RepeatedName1.rar

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

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

اسم الملف: قاموس دوال الاكسل مرسل الملف: abdalrshad ارسل الملف في: 25 أبر 2013 تصنيف الملف: قسم الإكسيل اكسل اضغط هنا لتحميل هذا الملف

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

السلام عليكم الاخوه الكرام : لاحظت ان اغلب الردود لمساعده الاعضاء دون شرح المشكله و كيفيه حلها ولكن الذى يستفيد منها بصوره اساسيه صاحب المشاركه و كذلك من يقوم بالبحث و المعرفه ومن الممكن ان تكون هناك مشاركه بها معلومات قيمه جدا و يمر عليها العضو دون ان يعرف مابها بمجرد ان اسم العنوان لا يعجبه او لا يعبر على مضمون المشاركه 0 ولذلك قررت ان اخصص هذا الموضوع للشرح محاولا ان يكون الشرح باسلوب بسيط و سهل و بصور موضحه 0 فعند تتبعى للمشاركات و جدت ان كثير من الاعضاء يسألون عن الماكرو طريقه انشاءه و فائدته و مما جعلنى ان اقوم بشرح الماكرو و ما الدور الذى يقوم به و كيفيه ربطه بزر لتشغيله و لكن الامر يتطلب فى البدايه معلوات بسيطه عن الماكرو : فالماكرو ببساطه هو انك تقوم بتسجيل خطوات معينه سواء ان كانت هذه الخطوات كتابه ارقام او معادلات او حتى التنقل بين الصفحات ثم عند تشغيل الماكرو يقوم بتنفيذ هذه الخطوات مره واحده دون تدخل منك و هناك طريقتان لتسجيل الماكرو 0 الطريقه الاولى : و هى الطريقه السهله فتقوم بتشغيل تسجيل الماكرو ثم تقوم باداء الخطوات التى تريدها ثم توقف التسجيل و بذلك تكون قد انتهيت من صناعه الماكرو , كأنك تقوم بتسجيل شريط أغانى ثم تقوم بعد ذلك بضغط زرار Play فتستمع الى الاغنيه التى تقوم بتسجيلها 0 الطريقه الثانيه : تقوم بكتابه الخطوات بلغه Visual Basic الفيجوال بيزيك و سوف نتناولها فى الشرح بشكل مبسط 0 و طبعا ارحب باى سؤال او استفسار او حتى تعديل طالما انه مع طريق الاستفاده للجميع 0 و اتمنى ان يكون هذا الموضوع صدقه جاريه يستفيد منها الجميع , و لا ينقصنى غير دعوه صالحه يجعلها الله فى ميزان الحسنات يوم القيامه 0 و الحمد لله وعدت و وفيت و زدت 0 و أنا تحت أمركم فى أستفسار أو تقييم smail_d الشرقي المالكي333 أشكركم من صميم قلبى على تشجيعى بتعبيراتكم الرقيقه0 باقى الاعضاء : فعلا اشكركم على مروركم فقد قمت بتثبيت الموضوع منذ اسبوعين و أعداد المرور على الموضوع أعتقد من و جهه نظرى أنها قياسيه و لكن أقولها للمره الثانيه هل من سهر وبحث وكتب ونقل لكم المعلومة لايستحق منك كلمة "جزاك الله خيرا ؟" حتى لم اسمع كلمه نقد او تشجيع 0 و الى لقاء حيث انى فى المراحل النهائيه لشرح الاوامر الموجودة على شريط الادوات

بسم الله الرحمن الرحيم الدرس السادس سنتناول بالشرح كيف تحمى ملفك بكلمه سر ذلك الامر يتطلب بنا معرفه الداله InputBox أذا كانت المعلومات التى نرغب فى الحصول عليها لتتم يشكل متكرر و سوف نحتاج الى المعلومه مره واحده فان افضل وسيله للحصول على تلك المعلومه هو استخدام الداله InputBox و طريقه أستخدام هذه الداله تشبه الى حد كبير استخدام داله MsgBox من حيث الشكل و الصيغ مع وجود اختلاف فى دواعى الاستخدام حيث ان InputBox هو الحصول على معلومات من المستخدم أما الغرض من MsgBox هو عرض معلومات للمستخدم 0 و الصيغه القياسيه للداله هى : Variable = InputBox(“Prompt”,”Title”) حيث ان Variable هو متغير يتم تخصيصه لتخزين ناتج الداله , و قمت يتسميته فى الصوره ب X بعد موضوع الانشاء هذا تعالوا نحمى ملفاتنا الغرض من المشروع هو عند فتح الملف تظهر لنا رساله تخبرنا ان الملف يحتاج الى كلمه سر و يجب عليك أدخال كلمه السر و امامك ثلاث اختيارات : 1. عدم ادخال بيانات و فى هذه الحاله العوده الى نقطه البدايه ( و قمت يتسميتها فى الصوره ب XX ) حتى تقوم بادخال بيانات 0 2. اذا ادخلت كلمه السر الصحيحه وهى "hi" ستظهر لك رساله تخبرك بان كلمه السر صحيحه ثم يتم الدخول الى صفحه Welcome و يفتح الملف بصوره طبيعيه 0 3. اذا ادخلت كلمه السر خطأ تظهر لك رساله تخبرك بان كلمه السر خطا و سيتم اغلاق الملف 0 لنبدأ : سنقوم باستبدال كود داله ShowWelcome القديمه بالكود كما بالصوره بعد الانتهاء جرب أغلق الملف ثم أعد فتحه و سترى النتيجه 0