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

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

السلام عليكم الحل الأسرع ، بلا أكواد إن كان كما لاحظت في اسم الشهرة لابد من وجود حرف معين في النص مثل ":" أو "[" فلنعمل فلتر علي هذا الحرف ثم تأخذ نسخة وتضعها بعمود "اسم الشهرة" ثم تغير الفلتر لكيلا يحتوي علي هذا الحرف ثم تأخذ نسخة وتضعها بعمود "الاسم الكامل" وأخيرا تمسح الأصل أنظر المرفق توزيع بيانات عمود علي عمودين.xlsx

السلام عليكم برنامج صغير فاتورة احترافية واضافة الاصناف بكبسة زر مفتوح المصدر لامكانية التعديل عليه اتمنى لكم الفائدة اتفضلوا يهمني سماع رأيكم فاتورة احترافية1.accdb

أستاذ كبير متل ما بنعرفك دائما استاذ سليم تسلم إيديك و دمت ذخرا

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

اتفضل اخي رمهان AZAZ.accdb بالتوفيق اخي

لم يفتح معي ملف الضغط ان امكن ملف الاكسس مباشرة

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

اتفضل هذا حسب فهمي للسوال Dim d As String If Not IsNull(DLookup("[txtD1]&[txtD2]", "tbl1", "[txtD1]=forms!FSERSH!txtD1 and [txtD2]=forms!FSERSH!txtD2 ")) Then MsgBox "هذا التاريخ سبق ادخالة في طباعة المسيرات" Me.ID1 = DLookup("[ID1]", "tbl1", "[txtD1]=forms!FSERSH!txtD1 and [txtD2]=forms!FSERSH!txtD2 ") Me.txtD1 = Null Me.txtD2 = Null Me.txtD1.SetFocus Exit Sub End If AZAZ.rar

السلام عليكم اخي الكريم بما انه يهمك سماع رأينا فاليك بعض الملاحظات التالية لتصبح الفاتورة اكثر احترافية 1- يجب ان يكون عمود الاجمالي قابل للكتابه فيه بحيث لما اكتب فيه يقوم البرنامج بتعديل السعر ولما اكتب بالسعر يعدل البرنامج الاجمالي 2- يجب ان يكون في الاصناف الوحدات وهو امر ضروري جدا بحيث نستيطع تحديد اني اريد بيع قطعة او دستة او كرتونة من نفس الصنف 3- يجب ان تحتوي الفاتورة على تحديد عملات فمن الممكن ان نستخدم اكثر من عملة في الفواتير 4- يجب ان تحتوي الفاتورة على طريقة الدفع نقدي ام اجل او بشيك او بورقة تجارية 5-يجب ان تحتوي الفاتورة على مستودع توضع فيه البضاعة المشتراة او المباعة 6- يجب ان يكون في الفاتورة مربع نص يحوي اجمالي الفاتورة و صافي الفاتورة والحسم والاضافات 7- يجب ان يكون في الفاتورة دفعة نقدية اولى في حال كانت الفاتورة اجلة فقد يدفع الزبون مباشرة جزء من الفاتورة 8- يجب ان يحوي جسم الفاتورة على عمود ملاحظات لاقلام الفاتورة فقد يحتاج المستخدم ان يسجل ملاحظة عن كل صنف في الفاتورة 9- يجب ان تحوي الفاتورة على زر حذف للفاتورة كاملة وليس لاصناف الفاتورة مع رسالة تنبيه للحذف فقد يضطر المستخدم لحذف فاتورة ما 10 - مربع التحرير والسرد سيء جدا في البحث في حال وجود عدد كبير من الاصناف وعدد كبير من الزبائن فهو يبحث في الاحرف الاولى من الاسم اتمنى ألا اكون قد اثقلت عليك بملاحظاتي فانا محاسب ومتعامل مع الفواتير بشكل كبير فارجوا ان تكون ملاحظاتي لك حافزا على تحسين عملك وتقدم انجازاتك في المنتدى تحياتي لك

بعد وضع هذا الكود فى موديول Option Explicit Function cleanup(s As String) Dim i As Long Dim c, t As String For i = 1 To Len(s) c = Mid(s, i, 1) Select Case Asc(c) Case 1 To 239 t = t & c End Select Next i cleanup = t End Function عليك بكتابة هذه المعادلة فى الخلية المراد حذف التشكيل منها فعلى سبيل المثال ,اذا كان النص المراد حذف التشكيل منه موجود فى الخلية A2 فعليك كتابة المعادلة مثلا فى الخلية B2 وهى =CLEANup(A2) بارك الله فيك

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

فعلا افضل الحلول ابسطها الف شكر يا باشا

تشكر استاذنا عبداللطيف. ممكن لو تكرمت تشرح لي كيقية عمل التقرير. مع فائق شكري

قم بنحديد الصفحتين معاً و باشر بالكتاية الطريقة 1-افتح اي صفحة تريد 2-اضغط باستمرار على مفتاح Ctrl و حدد صفحة ثانية (او اكثر كما تريد) ثم اترك مفتاح Ctrl 3- كل ما تكتبة يظهر في الصغحات المجددة 5 -لالغاء تحديد محموعة صفحات حدد اي صفحة خارج هذه المجموعة او Right Click على اسم صفحة من المجموعة (تظهر لك نافذة ) اختر منها Ungroup

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

تفضل جرب هذا أعتقد بعد هذا لا يوجد طلبات اخرى برنامج حسابات عامه-2.xlsx

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

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

تفضل كود يفي بالغرض ملحوظة إذا أردت نقل الكود لملف آخر أو إلى ورقة عمل أخرى قم بتغيير اسم ورقة العمل التي بالكود الملونة باللون الأحمر إلى اسم ورقة العمل المراد العمل عليها If ActiveSheet.Name <> "ورقة1" Then Exit Sub فرز باربع معايير.xlsm

تفضل يا اخى عمر إيهاب قوائم الفصول معهد بلبيس.xls

جرب هذا الملف salim_data_val.xlsx

:: من بعد اذن الأستاذ عبد الله قدور والاخ ابو زاهر .... تفضل DoCmd.RunSQL "UPDATE invoice INNER JOIN helpbuy ON invoice.fatora_no = helpbuy.fatora_no SET invoice.mvdate = [helpbuy]![xdate],invoice.supplier = [helpbuy]![supplier], invoice.paytyp = [helpbuy]![pay] WHERE (((invoice.fatora_no)=[Forms]![invoicebuy]![fatora_no]));" 177_UP.accdb

هكذا يكون الاستعلام بالكود DoCmd.RunSQL "UPDATE invoice INNER JOIN helpbuy ON invoice.fatora_no = helpbuy.fatora_no SET invoice.mvdate = [helpbuy]![xdate], invoice.supplier = [helpbuy]![supplier], invoice.paytyp = [helpbuy]![pay] " & vbCrLf & _ "WHERE (((invoice.fatora_no)=[Forms]![invoicebuy]![fatora_no]));"

بعد اذن استاذي وصديقي الغالي@عبد الله قدور اعتقد هذا طلبه والله اعلم فضلا وليس امرا : يرجى ان يكون الاستعلام بالكود لاني سوف اكرره في نماذج اخري ولا اريد تكرار الاستعلام العادي حتي لا تكبر معي قاعدة البيانات هههههههههه نفس طريقتي تحياتي 177.accdb

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

لا تنس وضع المعادلة بين علامتي {} الناجمتين فقط عن ضغط المفتاحين CTRL+F9. بعد ذلك انقر على المعادلة بزر الفأرة الأيمن وقم بتحديث الحقل.

نعم هذا عن طريق word وليس Excell والسلام

ربما يشتبه الأمر على البعض الأداة الموجودة في المشاركة الأولى وتحديثها يقومان بفك كلمات المرور لشيتات الإكسل التي نقوم بها من أجل حماية المعادلات والتنسيقات من تبويب مراجعة --> حماية ورقة العمل Review --> protect sheet ولا تقوم بفك كلمات الفتح أو محرر الفيجوال بيسك فقد تطرق لهذا الأمر الكثير من الأصدقاء في موضوعات كثيرة في هذا الصرح الكبير أوفيسنا شكرا لكل من مر على هذا الموضوع نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

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

برنامج المتابعة اليومية للطلاب يحتوي عل التالي : 1- الغياب اليومي للطلاب 2- تسجيل الملاحظات لكل طالب اثناء الحصة من تأخر - آداء الواجبات - السلوك الذي يصدر من الطالب اثناء الحصة .... 3- طباعة تقارير لكل طالب على حده 4- طباعة تقارير خاصة بكل شعبة 5- طباعة احصائيات عن الغياب والسلوكيات المختلفة لكل طالب. 6- استمارة تحويل الطالب على لجنة السلوك بالمدرسة 7- يمكنك حفظ السجل على شكل ملف اكسل. اتمنى ان يحيز اعجابكم ويساعد المعلمين على متابعة الطلاب Follow-Up.rar