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

الكود اللازم Private Sub Text2_Change() If CheckBox1 = True Then Text2.PasswordChar = "*" Else Text2.PasswordChar = "" End If End Sub

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

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

السلام عليكم ورحمة الله وبركاته عملت جدول أسمه ( TabDateAndTime ). فيه الحقول التالية: * . [TDateM] وهو حقل من نوع ( Date/Time ) ويمثل التاريخ الميلادي. * . [TDateHj] وهو حقل من نوع ( Date/Time ) ويمثل التاريخ الهجري. * . [TTime] وهو حقل من نوع ( Date/Time ) ويمثل الوقت. المشكلة: الجميع يلعم بأن التاريخ والوقت في أكسس يعتمد على التاريخ والوقت الكمبيوتر. فيما أعني ذلك لو أفترضنا جهاز العميل التاريخ والوقت غير مضبوطة بالتاريخ والوقت الصحيح سيكون هناك خطأ بالبيانات. المطلوب: 1. طريقة ضبط التاريخ والوقت على الأنترنت. 2. طريقة تحويل التاريخ الميلادي إلى هجري في الحقل الخاص بالتاريخ الهجري. مرفق لكم مثال 2013 + 2003 حتى يكون متوافق. وتقبلوا خالص التحيةو والتقدير ،،،، DateAndTime.rar

جزاك الله خيراً شكرا لك استاذى جعفر تم عكس الامر باضافة فى زرار Up Me.test.Form.Filter = "[mdate]>=#" & Date & "#" Me.test.Form.FilterOn = false لى عودة فى موضوع أخر

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

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

الف الف الف شكرا اخي الغالي هذا هو المطلوب جزاك الله خيراا

وعليكم السلام تفضل هذا الرابط به طريقة غير مألوفة ، وبه رابط آخر للطريقة المألوفة جعفر

وعليكم السلام وتأكيدا لما تقول ، وبإختصار: لا يمكن استعمال الاكسس بدون تنصيب الاكسس او Accsess RunTime. جعفر

جرب هذا الملف t1 Salim.rar

استعمل الملف الذي رفعتة لك لان اسماء الصفحات متغيرة او ربما كانت عناوين الخلايا التي تبدأ فيها البيانات عندك في الصفحة Mainمتغيرة

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

سلام عليكم الا يوجد حل

نعم شيء من هذا القبيل Me.test.Form.Filter = "[mdate]=#1-2-2017#" Me.test.Form.FilterOn = True جعفر

تفضل Function Control_Names(frm As Form) Dim ctl As Control Dim ctl2 As Control For Each ctl In frm.Controls If ctl.ControlType = acSubform Then 'subform For Each ctl2 In frm(ctl.Name).Form Debug.Print "Forms!" & frm.Name & "!" & ctl.Name & "!" & ctl2.Name Next Else 'normal Form objects Debug.Print "Forms!" & frm.Name & "!" & ctl.Name End If Next ctl End Function وتناديها call Control_Names(me) جعفر

اتفضل استخدمت هذه الكود للاستخراج اي للبحث Private Sub SEr_Click() Me.s2 = DLookup("[name_e]", "Emp", "no_e= " & [s1]) Me.s3 = DLookup("[ms_j]", "Emp", "no_e= " & [s1]) Me.s4 = DLookup("[rs_t]", "Emp", "no_e= " & [s1]) Me.s5 = DLookup("[no_e]", "Emp", "no_e=" & [s1]) Me.Tarix = Nz(DMax(Format("[d_g]", "yyyy/mm/dd"), "egaza", "no_e=" & [s1] & "and [n_e]='" & "ÚÇÏíÉ" & "'"), "") Me.Mide = Nz(DLookup("[m_g]", "egaza", "[no_e]=" & [s1] & " And [Tarix]=" & Format("[d_g]", "yyyy/mm/dd")), 0) End Sub وهذا لخصم الرصيد من الاجازة Private Sub أمر30_Click() Dim SQL As String SQL = "UPDATE Emp SET Emp.rs_t = [Emp]![rs_t]-[Forms]![H]![Mide] WHERE (((Emp.no_e)=[Forms]![H]![s1]));" DoCmd.SetWarnings False DoCmd.RunSQL (SQL) DoCmd.SetWarnings True MsgBox "تم الخصم من الرصيد" End Sub اليك المرفق LM.rar

هذا بعض الاضافة الى مربع نص اهداء.rar

جزاك الله خيرا استاذ بن عليه حاجى

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

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

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

السلام عليكم الاخ الكريم / خالد الشاعر بارك الله فيك تقبل خالص تحياتي

استاذ حماده جزاك الله كل خيراً

الدروس من الدرس الرابع ... الي ... الدرس السادس كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar الدروس من الدرس السابع ... الي ... الدرس التاسع المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء تقبلوا خالص تحياتي

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

برنامج حسابي متكامل لإدارة حسابات الشركات الصغيرة والمتوسطة بسهولة وكفاءة كبيرة . فالبرنامج تم تصميمه من واقع العمل الفعلي لامساك ومتابعة حركة المخازن وإجراءات التحويلات بين الفروع ومتابعة حركة كل مخزن وكل صنف على مستوى الشركة وأيضا على مستوى الفرع الواحد , كم يقوم البرنامج بإمساك حركة العملاء والموردين ومتابعة الأرصدة وإعداد الكشوف اللازمة لمتابعة حركة الأرصدة وربط الحركة باسم المندوب لتقيم الأداء . ويقوم أيضا البرنامج بإمساك حركة الصرف والتوريد من الخزينة سواء للإيرادات أو للعملاء والموردين أو لحركة المصروفات وإعداد تقارير الرقابة ومتابعة الخزينة لكشف حركة الصرف والتوريد النقدي , ويقوم أيضا بإمساك حركة الشيكات الصادرة للموردين أو الواردة من العملاء ويتميز بإمكانية تظهير الشيكات الواردة للموردين بكل سهولة وإجراء كل العمليات المحاسبية اللازمة لضبط ميزان المراجعة والميزانية وإعداد كشوف متابعة الشيكات ,ويقوم البرنامج بإعداد قائمة الدخل والميزانية على احدث النظم المحاسبية . فباستخدام البرنامج يستطيع شخص واحد فقط إمساك حسابات الشركة بالكامل ولو تعدادات العمليات فالبرنامج عبارة عن دورة محاسبية متكاملة يستطيع العمل عليها اى شخص دون الحاجة إلى خبرة أو معرفة تامة بالمحاسبة فقط العمل على البرنامج وفهم عملياته. للشرح والتفاصيل تفضلوا بزيارة www.mostafaosman.page.tl ACC.xlsb

السلام عليكم ورحمة الله وبركاته أخي الكريم قد يكون بالامكان استرجاع ملفك، لكن لا ادري نسبة الاسترجاع يعتمد نظام الاوفيس على إنشاء ملفات مؤقتة TMP مخفية عادة تكون في مجلد MY DOCUMENTS وبفتحها بواسطة برنامج الاكسيل يمكن تصفح ملفات تم العمل عليها سابقا هذه الطريقة تتوقف على تاريخ تسجيل الملف المؤقت في النظام ولا ندري ما تم تخزينه تستخدم هذه الطريقة أحيانا بعد الفورمات أو الحذف النهائي للملف

السلام عليكم ورحمة الله وبركاته/- بارك الله فية ورحم الله والديك واتمني لك بذل المزيد من الجهد والمثابرة للرفع من مستويات شباب امتنا العربية والاسلاميه وياريت لو فيه احد من الاساتذه ان يتطرق كل مرة الى برنامج بالشرح ولكم فائق تحياتي وتقديري واحترامي[/ size] :clapping :