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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. أقدم لكم اليوم (الملف القاتل .. Killer File) .. حلو العنوان وجذاب ، بيفكرني بالحوت القاتل .. Killer Whale الآن أصبح بمقدورك استئجار ملف للتخلص من ملف آخر .. الملف القاتل سيقتل الضحية في هدوووووووووووء وبدون إزعاج ، لأنه سيستخدم الكود الصامت .. معنا اليوم مصنف يحوي كود ، يمكنك من خلال الكود كتابة اسم الملف الضحية (الملف المراد حذفه) ، ولا تنسى أن تحدد هوية الضحية من خلال كتابة الامتداد أيضاً ..حتى تساعد الملف القاتل على إنجاز المهمة بشكل صحيح .. في الملف المرفق : الملف القاتل اسمه Killer File ، والملف الضحية اسمه FileToBeKilled وأترككم الآن بعد فك الضغط مشاهدة حادثة القتل العمد .. كان معكم مصمم الملف القاتل أبو البراء (وربنا يكفينا شر القتل) Killer File.rar

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

تفضل أخى ترقيم تلقائي.rar

تفضل أخى تم تغير الفورم لعله يكون كما تريد وتم استخدام الكود التالى Private Sub TextBox1_Change() Dim cl As Range Set Rng = ورقة1.Range("A2:A43") For Each cl In Rng If cl = Val(TextBox1) Then TextBox2 = cl.Offset(0, 1) TextBox3 = cl.Offset(0, 2) Me.TextBox4 = WorksheetFunction.SumIf([A4:A43], Me.TextBox1, [D4:D43]) TextBox5 = cl.Offset(0, 4) End If Next End Sub بحيث يتم البحث بمجرد كتابة الرقم فى TEXTBOX1 تأمين.rar

اخي العزيز المشكلة عندك في لغة النظام .. إذهب الى Control Panal وعدل اعدادات اللغة كما مبين في الصور المرفقة

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

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

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على اشرف المرسلين سيدنا محمد وعلى اله وأصحابه اجمعين بفضل الله وكرمة انتهيت من تطوير برنامج المصروفات الاصدار الثالث . وقد تم هذا التطوير بناء على رغبة الكثيرون والجديد فيه -زيادة عدد الحسابات الى 100 حسابات وزيادة عدد حركات التسجيل الى الضعف - امكانية عرض تقرير مصروفات لقسم معين ولفتره معينه - امكانية عرض تقرير سنوي - عمل نسخة احتياطيه للبرنامج تم عمل حماية للملف حفاظا على المعادلات والصيغ من التلف والباسورد 12345 ارجو من كل من يستفاد من هذا البرنامج نشره ومشاركته للجميع فزكاة العلم نشره الاصدارت السابقه الاول والثانى على على هذا الرابط http://www.officena.net/ib/index.php?showtopic=54319&hl= برنامج المصروفات الاصدار الثالث.rar

السلام عليكم و رحمة الله و بركاته الاخوة الاحباب بالمنتدى أقدم اليكم قاعدة بيانات للموارد البشرية HR الاصدار الثاني كلمة المرور : 111 و أسأل الله العلى العظيم أن ينفعكم بهذا العمل و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته HR 3 with listbox.rar HR for Windows 8 FADILA.rar

السلام عليكم ورحمة الله وبركاته... أخي الحببب محمد علي الطيب الذي اجتمعت في اسمه أفضل وأطيب الشمائل ... بارك الله بك وبمرورك العطر الذي تشرفت به السلام عليكم ورحمة الله وبركاته...

بارك الله فيك اخي محمد حسن

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

بورك لك في الموهوبة وشكرت الواهب وبلغت رشدها ورزقت برها الف مبرووووووووك

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

طريقة حلوة ، وما ممكن تيجي على بالي 1. بس استعلامك كله كود 2. وهنا اذا تسمح لي اتدخل: انا ذهبت الى الجدول ، ونسخت السجلات والصقتهم عدة مرات ، ثم حذفت السجلات الاولى ، وبهذه الطريقة ، الرقم التلقائي لم يبدأ بالرقم 1 ، فإستعلامك يحتاج له تعديل بسيط حتى يشتغل على جميع الارقام في الاستعلام ، غيّر قيمة ID2 الى القيمة التالية: ID2: DCount("ID","Query1","ID <=" & [ID])-1 جعفر

وعليكم السلام ورحمة الله وبركاته غيّر معيار الاستعلام (اعمل لها نسخ/لصق ، لأن الكلمات العربية قلبت المعادلة ، فلن تستطيع فهم المعادلة من النظر اليها) : بدل IIf([Forms]![جدول2]![خيار10]=Yes,"م") الى IIf([Forms]![جدول2]![خيار10]=Yes,"م",[الحصة]) وللمنفعة العامة ، وكمثال على المعادلة ، اذا كانت الكلمات بالانجليزية ، فطريقة عرض المعادلة هكذا: بدل IIf([Forms]![frm_Classes]![txt_opt]=Yes,"M") الى IIf([Forms]![frm_Classes]![txt_opt]=Yes,"M",[Classes]) جعفر

تفضل أخى ترقيم تلقائي.rar

1- انا مليش في الكود . 2- اعتمدت كليا على الترقيم التلقائي ID . . . تفضل كرار ... Database3.rar

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

اخي الغالي عبدالعزيز جزاك الله خير واليك الشرح بالفيديو اظهار الامتداد وتغيير الامتداد اخي الغالي ايضا الشرح موضح كيفية الوصول لاظهار الامتداد وتغييره xlsm to rar.rar

لإثراء الموضوع وبعد ا>ن اخى الكريم // مهند اليكم بالمرفقات الملف المطلوب (( الفورم به زر اسمه التصريح )) طبع الكتاب من داخل الفورم111.rar

لتجعل العمل أكثر أحترافية قم بإخفاء الشيت التصاريح ..وعدل الكود كم في الصورة...

السلام عليكم هذا الاستعلام ، ونرسل قيمة الحقلين t و close الى الوحدة النمطية add_3 . والنتيجة: . وهذا كود الوحدة النمطية: Public RowID As Integer Public RowVal_1 As Double Public RowVal_2 As Double Public RowVal_3 As Double Function Add_3(T, N) 'T = ticker 'N = close If T = 1 Then RowVal_1 = N RowVal_2 = 0 RowVal_3 = 0 ElseIf T = 2 Then RowVal_2 = N RowVal_3 = 0 ElseIf T = 3 Then RowVal_3 = N Else RowVal_1 = RowVal_2 RowVal_2 = RowVal_3 RowVal_3 = N End If If T = 1 Then Add_3 = 0 ElseIf T = 2 Then Add_3 = 0 Else Add_3 = RowVal_1 + RowVal_2 + RowVal_3 End If End Function جعفر 256.Database2.accdb.zip

وعليكم السلام فهرسة الحقول في الجداول تجعل البرنامج اسرع ، حيث يقوم الاكسس بحفظ بيانات هذه الحقول المفهرسة في ذاكرته ويقرأها من هنا ، بدل قرأتها من الجداول والفهرسة يجب ان تكون للحقول التالية ، اذا اردت تسريع البرنامج: 1. حقل الترقيم التلقائي ، هذه سهلة وما يحتاج لها شرح 2. الحقول التي تستخدم لها معايير في استخلاص معلومات السجل: في الاستعلام (سواء استعلام عادي او في الكود) ، اذا عملت معيار/تصفية لحقل/حقول ، في الاستعلام (سواء استعلام عادي او في الكود) ، اذا عملت فرز لحقل/حقول ، في النموذج / التقرير ، اذا عملنا تصفية عن طريق me.Filter او فرز عن طريق me.Orderby ، في النموذج / التقرير ، اذا عملنا كود/ وحدة نمطية فيه تصفة / فرز ، في النموذج / التقرير ، اذا عملنا كود/ وحدة نمطية فيه اوامر Dcount , Dmax, Dlookup , Dlast, Dfirst ، وفيها اسم حقل تصفية مثل (حقل C هنا): A = DLookup("[B]", "FromThisTable", "[C]= " & C) . وأحد الطرق الجداً مهمة ، هي عمل استعلام لأي شئ تريد البحث فيه او تفرزه ، ولا اعني استعلام في الكود ، وانما استعلام منفصل ، والمهم ايضا ، عندما تعمل الاستعلام ، انه بين الفترة والاخرى تستخدم "الضغط والاصلاح" ، لأنه يعيد فهرست البرنامج ، وينظم عمل الاستعلام ويجعله اسرع جعفر

اخي الغالي ابو يوسف يشرفني ان اكون. من اوائل المهنئين المباركين لك علي عملك هذا الذي سيكون باذن الله متقن لم انتظر رؤيته فكتبت لك من الموبيل حتي يتاح لي رؤيته من الكمبيوتر تقبل مروري المتواضع ياسر العربي

وفقك الله لكل خير .. اخي ياسر لاتوجد علامة (') أو فراغ قبل المعادلة .. هل هو كود أو ماذا

يمكن وضع مسافة قبل المعادلة أو علامة التنصيص المنفردة ' ..

عمل رائع وفقك الله لكل خير .. كيف يمكن عرض صيغة المعادلة في الخلية بدلا من النتيجة ؟ كما في شرح الأخ محمد عادل .. في العمود (I)

بارك الله فيك أستاذ محمد بارك الله أخى ياسر

بارك الله فيك أستاذ محمد برجاء الاستمرار

بسم الله ما شاء الله تبارك الله بارك الله فيكما وزادكما الله علما ونفع بكما المسلمين في غاية السعادة حينما أرى مثل هذه الأعمال الأكثر من رائعة

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

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

بسم الله الرحمن الرحيم جربوا الملف المرفق لمعرفه الالوان فى الاكسيل السلام عليكم Clr_01.rar

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

برنامج دراسة القوى المؤثرة على السلاسل الزمنية الفصلية : يوجد أربع قوى أساسية تؤثر على السلاسل الزمنية: - قوى الاتجاه العام : وهي القوى التي تحدد الاتجاهات العامة للظاهرة وتنسحب إلى فترات زمنية طويلة ، مثلاً ميل أسعار الوقود إلى الارتفاع في الأسواق العالمية. - قوى موسمية : وهي قوى تتكرر خلال فترات زمنية محددة ودورية في السنة الواحدة ، مثلاً ارتفاع أسعار الوقود خلال فصل الشتاء وانخفاضه خلال فصل الصيف . - قوى دورية : وهي القوى التي تتكرر خلال فترت زمنية متباعدة ، مثلاً ميل أسعار الوقود إلى الارتفاع في بعض السنوات ومن ثم الانخفاض في سنوات لاحقة . - قوى عشوائية البرنامج التالي يعمل على فصل التغيرات السابقة ودراستها : Forces.zip