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

هذا هو المرفق ا اخى الكريم

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

وهذا حل آخر بالأكواد Sub RandBewteenTwoNumbersNoDuplicates() '[A1:A100] يقوم الكود بتوليد أرقام عشوائية ما بين الرقم واحد ومائة في النطاق '--------------------------------------------------------------------------- Dim B(100), C, R 'حلقة تكرارية تنتهي بمجرد الوصول لرقم الصف 100 في العمود الأول Do 'دالة توليد أرقام عشوائية ما بين 1 و 100 C = Application.RandBetween(1, 100) 'مصفوفة بها 100 عنصر [B] يمثل المتغير '[B] داخل المصفوفة [C] هنا يتم اختبار أو فحص العنصر 'إذا لم يكن العنصر داخل المصفوفة If Not B(C) Then 'هذا السطر يمثل رقم الصف R = R + 1 '[C] الخلية في الصف رقم كذا في العمود الأول تساوي العنصر Cells(R, "A") = C 'للعنصر الذي تم وضعه ضمن القيم ليتم استبعاده في حالة التكرار [True] تعيين القيمة B(C) = True End If Loop Until R = 100 End Sub عشان متقولوش إني حارمكم من حاجة تقبلوا تحياتي

اداة تفعيل الماكرو لاكسيل 2003 2007 2010 2013 بضغطة واحدة علي هذه الاداة تفعل الماكرو لاكسيل لكل الاصدارات مع تحياتي ان اعجبتك الاداه لا تبخل علي بالرد khalednr.rar

بسم الله الرحمن الرحيم أساتذتى بالمنتدى و ألاخوة الزملاء كل عام وانتم بخير بمناسبة العام الجديد مما لا شك فيه أن الأهداء يقدم الى أغلى شخص لدى الانسان وبما انه اغلى شخص فلابد من تقديم أغلى هدية يملكها فسمحو لى ان اقدم أغلى ما املك واعز ما أملك وهو برنامج EMA الى أغلى منتدى . منتدى أوفيسنا هذا الصرح العظيم الذى شرفت بالانضمام اليه أهداء برنامج EMA برنامج EMA تم تصميمة بعمل متواصل على مدار 300 يوم بمعدل لا يقل عن 5 ساعات يوميا معظمها كان البحث والتفكير وكيفية التنفيذ فأن أحسنت فمن الله وما توفيقى الا بالله وأن أخطأت فمن نفسى والشيطان والحمد لله الذى بنعمته علينا تتم الصالحات تم رفع البرنامج بتاريخ 29-9-2014م وهذا كان الاصدار الاول من الجزء الاول للبرنامج وبعد التواصل مع الاعضاء ومشاركتى لأرائهم طلب منى بعض الاضافات الاخرى والحمد لله تم ذالك أقدم لكم الاصدار الثانى من الجزء الاول أتمنى أن يحوز اعجابكم ورضاكم البرنامج به أمكانيات وخيارات كبيرة جدا تم تصميمه على اعلى مستوى من الرقابه والتحكم فى المدخلات أنا الحمد لله عملت على برامج كبرى وهذا البرنامج عصارة خبرة محاسبية وأنتظرو منى قريباً الجزء الثانى للبرنامج (المخازن والمبيعات والمشتريات) فى نفس الملف وأخيرا وليس أخراً البرنامج بين أيديكم لا يتم فتج البرنامج الا فى الساعه 12ص أى بالليل 2015/1/1م لأنه نسخة عام 2015م ملحوظه مهمه جدا 1-يفضل تشغيل البرنامج على 2007 2-لا يتم تغيير اسم البرنامج نهائيا لانه لا يفتح عند تغيير- الاسم (EMA)فقط فى بعض الاحيان عند التنزيل يكون EMA 1 فى هذه الحالة يحذف 1 أن شاء الله نرفق لكم شرح لكيفية العمل على البرنامج اسم المستخدم / الدعم الفنى الباسورد / 123 EMA.zip

عن أنس بن مالك قال: قال رسول الله صلى الله عليه وسلم : "إن من الناس مفاتيح للخير مغاليق للشر، وإن من الناس مفاتيح للشر مغاليق للخير، فطوبى لمن جعل الله مفاتيح الخير على يديه، وويل لمن جعل الله مفاتيح الشر على يديه" [ابن ماجه ح237، وابن أبي عاصم في السنة، وحسنه الألباني بطرقه ، السلسلة الصحيحة ح1322]

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

أي نص أو كائن يتم نسخه يحفظ في حافظة الويندوز(clipboard) ويصبح متاحاً لكافة البرامج الأخرى الداعمة ولنسخ الشكل انقر على الشكل المطلوب لتحديده ثم انسخه بالطريقة المعتادة(زر النسخ)، قم بفتح برنامج فوتوشوب انشئ مستنداً جديداً -ويمكن لصقه في ملف موجود كذلك - ثم ألصقه من القائمة أو ( ctrl + v) ولا أظن نسخه إلى متصفح الإنترنت ممكنا على أي حال يتم نسخ الشكل إلى البرامج الأخرى كصورة ويفقد خصائصه مثل المخطط التفصيلي والتأثيرات فلا يمكن تعديلها.

مشاركة معكم اعزائي ممكن الاستغناء عن الحدث عند اغلاق التقرير والاكتفاء بسطر اس كيو ال لتعديل القيمة في الجدول !! Private Sub Command6_Click() Dim stDocName As String stDocName = "re1" DoCmd.OpenReport stDocName, acPreview '' DoCmd.Restore DoCmd.RunSQL "update table1 set c=false" End Sub

نحنا العربي مش عم نفهموا مليح

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

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

حياك الله اخ قدور وبارك الله بك هناك ملاحظات:1-انت في التعبير خصمت مجموع السعر من مجموع الدفعة وهذا اللي سبب لنا اللخبطة والصح مجموع المجموع ناقص مجموع الدفعة 2- لديه خطا وسبق ونبهته له وهو ان حقل المجموع=السعر*العدد-الدفعة والرصيد المجموع-الدفعة وبالتالي خصم الدفعة مرتين وهذا لخبطنا عند مقارنة الجمع يدويا مع التعبير حقك والصح المجموع=العدد*السعر 3-عند تطبيق طريقتك وتعديل الاخطاء اعلاه طلعت النتائج مضبوطة لما البيانات من جدول ddd لكن لما تكون البيانات من جدول الاصناف وتطبيق التعبير بتاعك تطلع النتائج معفوصة.. 4- طريقتك ع ما اظن انها ماتصلح الا لما يكون لكل عميل جدول خااص به وترقيم تلقائي له وع قولك بدون خطا بالترتيب او نقصان يعني حذف لكن برايك لو عندي 100 عميل هل عمليا ان اجعل لهم 100 جدول غير الجدول العام.. 5- طريقتك مفيدة اذا اضفنا حقل رقم بجدول الاصناف ويكون به ترقيم تلقائي لكل عميل ع حدة وهذه الفكرة موجودة بالمنتدى لكن عليها بعض الملاحظات ياريت لو تتطلع عليها.. ارجو تصحيح ما ذكرت ان كان هناك خطا والاختلاف لايفسد للود قضية..

ممتاز اخي مارد وفقت وهو المطلوب

للعلم هذا الحل تم شرحه في منتدى اجنبي

جزاكي الله خيرا المخلصة لله

عبدالله فاروق ابو ريان جزاك الله خيراً

افضل منتدى شوفته بحياتي

تفضل اخي شوف هو المطلوب ولا لا Book1.rar

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

الحمد لله تم الرد على اخينا فى رساله خاصة بناء على طلبه وتم فتح القاعده

AM أسعد الله أوقاتكم بكل خير فيما يلي شرح فيديو مميز لدوال الوقت الوقت والتاريخ أتمنى لكم مشاهدة ممتعة ومفيدة 1- دوال الوقت و التاريخ- الجزء الأول 2- دوال الوقت و التاريخ- الجزءالثاني 3- دوال الوقت و التاريخ- الجزء الثالث 4- دوال الوقت و التاريخ- الجزء الرابع لمشاهدة باقي دروس دورة الاكسيل 2013 يرجى فتح ا لرابط التالي: دورة اكسيل 2013 كاملة دمتم بخير

... اعينوا اخاكم ...

السلام عليكم ورحمة الله أخي الكريم، لم يتم التعديل على الأكواد بل كان الخلل في ناحية الطباعة... وقد تم تصحيح الخلل أولا بإنشاء نطاق ديناميكي -متغير حسب البيانات التي تمت تصفيتها- بالتسمية Zone_Imp باستعمال الدالة OFFSET خاصة ويمكنك الاطلاع على معادلتها، ثم ثانيا ربط هذه التسمية بـ ناحية الطباعة... أرجو أن تنال إعجابك هذه التعديلات... أخوك بن علية المرفق : ناجح تصفية وطباعة.rar

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

اتفضل اخى الكريم طلبك كما تريد http://www.mediafire.com/download/ahhc1cz6nqi2l50/برنامج_عهد_المستودع_4.rar

جزاكم الله خيراً

تم التعديل على الملف حاضر ياسيدي بلاش القوائم المنسدلة دي مجاميع 1 SALIM.rar

يجب حفظ الشكل على شكل صورة والسلام عليكم

استاذ مختار /الدّالة التي اعطيتها يمكن ان تكرر المعطيات اليكم هذا الكود لهذا الغرض Sub rand_without_rep() Dim myrng As Range, cel As Range, x As Double Set myrng = Range("A1:A100") 'ممكن التغيير myrng.Value = "" If myrng.Count > 100 Then Exit Sub Randomize For Each cel In myrng 1 x = WorksheetFunction.RandBetween(1, 100) If Application.CountIf(myrng, x) Then GoTo 1 Else cel = x Next End Sub

استخدم الدالة =RANDBETWEEN(1;100) تحياتى

عفواً اخواني مافهمت المطلوب ممكن كنت بقرأ من الشمال لليمين اعذرو جهلي

تفضل اخي الكريم اذا الملف ادى الغرض حدد افضل اجابة مثال.rar

تفضل اخي الملف تم تجهيزه بالتنسيق الشرطي الجزء الاول من المطلوب fouad.rar

اخي الفاضل محمود فؤاد جزاك الله خيرا

بعد اذن استاذي ابا البراء يمكنك استخدام خاصية البحث قبل مشاركة موضوع ويمكنك مراجعة الموضوع التالي ان شاء الله تجد ضالتك http://www.officena.net/ib/index.php?showtopic=59619&hl=%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE

الأخ الفاضل minor يرجى تغيير اسم الظهور للغة العربية يؤخذ عليك أنك لم توضح المطلوب بشكل كاف ..كان من المفترض وضع بعض النتائج للشكل المتوقع عموما أنا عملت لك ورقة عمل مخفية اسمها Temp ممكن تغير شكلها بس دا هيبتعه تغير في بعض أسطر الكود عموما جرب الكود التالي عله يفي بالغرض الكود يحذف أي ورقة عمل غير ورقة السجل ثم يقوم بإنشاء أوراق عمل جديدة تبعا للقيم الموجودة في منطقة التجنيد ثم يستدعي البيانات في كل ورقة عمل .. جرب الملف بشكل مستفيض وأخبرنا بالنتائج Sub CreateSheets() Dim WS As Worksheet, SH As Worksheet Dim Cell As Range, lRow As Long Set WS = Sheets("السجل") Application.ScreenUpdating = False Application.DisplayAlerts = False Temp.Visible = True For Each SH In ThisWorkbook.Sheets If SH.Name <> "السجل" And SH.Name <> "Temp" Then SH.Delete End If Next SH For Each Cell In WS.Range("J5:J" & WS.Cells(Rows.Count, 10).End(3).Row) For Each SH In ThisWorkbook.Sheets If SH.Name = Cell.Value Then GoTo 1 Next SH Sheets("Temp").Copy After:=Sheets(Sheets.Count) Sheets("Temp (2)").Name = Cell.Value Range("A1").Value = ActiveSheet.Name 1 Sheets(Cell.Value).Activate With ActiveSheet lRow = .Cells(Rows.Count, "F").End(3).Row + 1 .Range("A" & lRow).Value = lRow - 3 .Range("B" & lRow).Value = Cell.Offset(, -8).Value .Range("C" & lRow).Value = Cell.Offset(, -6).Value .Range("D" & lRow).Value = Cell.Offset(, -5).Value .Range("E" & lRow).Value = Cell.Offset(, -4).Value .Range("F" & lRow).Value = Cell.Offset(, -3).Value .Range("G" & lRow).Value = Cell.Offset(, -2).Value .Range("H" & lRow).Value = Cell.Offset(, -1).Value .Range("I" & lRow).Value = Cell.Offset(, 1).Value End With Next Cell Temp.Visible = False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة التزاماً بقواعد وتوجيهات المنتدى تقبل تحياتي Transfer Data & Create Sheets.rar

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

تفضل اخي هل هذا ماتبحث عنه برنامج بحث.rar برنامج بحث.rar

وعليكم السلام هذا مثال: http://www.officena.net/ib/index.php?showtopic=59606&p=382425 جعفر

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

بهذه الطريقة (قد) يستفيد صاحب السؤال فقط وانما بني هذا المنتدى من اجل بذل المعلومة ونشرها للجميع من هنا >> كيفية رفع المرفقات http://www.officena.net/ib/index.php?showtopic=31250

جزاك الله خير يابوخليل على سعة صدرك الطريقة نجحت بشرط ان تكون الجداول المرتبطة في قاعدة بيانات واحدة ولكن لما تكون الجداول في اكثر من قاعدة فهناك رسائل خطأ ويتم اغلاق البرنامج.. ووجدت طريقة اسهل لمن اراد تحديث الجداول المرتبطة باكثر من قاعدة وذلك من ماكرو runcommand=>linkedtablemanager حيث يتم عرض مربع الرسالة كما بالصورة المرفقة في اول الموضوع.. جزاك الله كل خير... ماقصرت وكفيت ووفيت..

الجزء الثاني و هو الفورم و خصائصه و صندوق الادوات و خصائص بعض الادوات

12/11/2009 طريقة عمل البرنامج 1- تسجيل بيانات العميلالدخول الى صفحة العملاء و تسجيل بيانات العميل - غير قابل لتكرار اسم العميل 2- توزيع الأقساطالدخول الى ورقة توزيع الأقساط ثم يتم ادخال البيانات كاملةبمجرد ادخال البيانات تظهر لك النتائج في الجدول الأيسر 3- اضغط على زر حفظ بيانات الأقساط - سوف يتم حفظ البيانات في ورقة الأقساط و منها تجد اجمالي المبالغ المطلوبة من العميل قد ظهرت في ورقة بيانات العملاء 4-الدخول الى ورقة السندادخل اسم العميل - سوف تظهر لك قائمة منسدلة بأسماء الأجهزة التي تم عمل اقساط لها لهذا العميل تختار منها الجهاز او السلعة المطلوبة بعد ادخال اسم العميل و نوع الجهاز تظهر لك قائمة منسدلة بـ أول قسطين مطلوب سدادهما من العميل تختار منها ماتريدتقوم بتسجيل المبلغ - و هنا تستطيع تسجيل أي مبلغ اقل من او يساوي قيمة القسط المختار او مطلوب سداده بعد اكتمال بيانات السند تختار طـبـاعة الـسـنـدبعد طباعة السند تلقائيا سوف يتم تسجيل المبلغ في العمود A امام العميل في ورقة توزيع الأقساط - ويتم حفظ كامل بيانات السند في ورقة حفظ البيانات السداد - الآن لدينا في ورقة بيانات العملاء عمود الأقساط المتأخرة - هنا يتم حساب كل الأقساط المطلوبة من هذا العميل قبل تاريخ اليوم و يخصم منها اجمالي المبالغ المسددة من العميل الآن تستطيع استخدام الملف و استخراج النتائج منه مع تحياتي للجميع 4_توزيع_الأقساط_ومتابعتهاQest.rar

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