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

هذا تطبيق ومحاولة رمهانية متمنيا لكم التوفيق Private Sub Form_Current() Me.Parent!total = Me.ActiveControl End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) On Error Resume Next Set rs = Me.RecordsetClone: rs.MoveLast: rs.MoveFirst a = rs.GetRows(rs.RecordCount) If KeyCode = 16 Then For ii = 0 To Me.SelWidth - 1 For i = 0 To Me.SelHeight - 1 xsum = xsum + a(Me.SelLeft + ii - 2, Me.SelTop + i - 1) Next i Next ii End If Me.Parent!total = xsum End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Set rs = Me.RecordsetClone: rs.MoveLast: rs.MoveFirst a = rs.GetRows(rs.RecordCount) For ii = 0 To Me.SelWidth - 1 For i = 0 To Me.SelHeight - 1 xsum = xsum + a(Me.SelLeft + ii - 2, Me.SelTop + i - 1) Next i Next ii Me.Parent!total = xsum End Sub قاعدة البيانات1.accdb

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

شكرا جزيلا استاذي الفاضل ابو ياسين ربي يخليك يارب

وعليكم السلام ورحمة الله وبركاته تفضل: فقط اضف في التقرير تجميع لـ: EmployeeID وانقل التقرير الفرعي داخله newQ.mdb

بارك الله فيك نعم كان يوجد خطاء شكر استاذ ابو ياسين

عندك خطاء بكود بفورم تعديل فاتورة بيع اتبع الاخطاء وبتلاقيه

جرب هذا الملف مصروفاتت Salim.xlsx

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

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

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

تشكر ابو ياسين المشولي

وعليكم السلام ورحمة الله وبركاته تفضل: 1_-_Copyu.accdb

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

تفضل اخى الكريم بعد عمل فولدر بإسم نعم واخر بإسم لا جرب الكود الموجود بالملف واعمل حفظ فى المكان الذى تحدده من الفولدرات التى قمت بعملها بارك الله فيك Backup.xlsm

اهلا بك اخى الكريم فى المنتدى تفضل الملف بدون حماية FindAll.xlsm

جرب هذا On Error Resume Next Call zr_11_Click Set RS = CurrentDb.OpenRecordset("AfwtIar") RS.AddNew RS!Rjmfatwra = Rjmfatwra RS!NoEmp = NoEmp RS!Nwaha = Nwaha RS!Adfah = Adfah RS!Alban = Alban RS!Atarih = Atarih RS!namee = namee RS!Aljmali = Me.n1 RS!Asafi = Me.n2 RS.Update Rjmfatwra = Null NoEmp = Null Adfah = Null Nwaha = Null Namamila = Null Alban = Null Atarih = Null 'namee = Null Set RS = Nothing DoCmd.SetWarnings False DoCmd.OpenQuery "الحاق" DoCmd.SetWarnings True '' 'On Error Resume Next Dim Q As Recordset Set Q = CurrentDb.OpenRecordset("SELECT * FROM HRR;") While Not Q.EOF 'If Q!Xsave = False Then Me.TB.Visible = False Q.Delete 'End If Q.MoveNext Wend TB.Requery Me.TB.Visible = True

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

السلام عليكم فورم ادخال و تعديل وبحث باستخدام اسم نطاق للقائمة المنسدلة هو تفس الفورم السابق ولكن تم تغيير طريقة ادخال القائمة المنسدلة لاي عمود في الفورم تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة وايضا تم تجاوز بعض الاخطاء في الفورم السابق شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في الورقة الواحدة او في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" المرفق 2003 [فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar الاصدار الثالث: http://www.officena.net/ib/index.php?showtopic=51955

شكرا جزيلا استاذ صالح

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

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

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

تفضل لك ما طلبت اسم المستخدم : gasio كلمة المرور :123 زيوت جدول السيارات .xlsm

في وضع تصميم الفورم اختر الحقل ومن خصائص الفورم اختر تنسيق نوع (قياسي)

اتفضل القي نظرتا الى استعلام حقل الرصيد Database1 (1).rar

راجع هذا الشرح

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