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

تفضل هذا المثال ارجو ان يكون مفيدا لك Desktop.rar

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

أخي الكريم فقط غير اسم المتغير Dim i As Long, k As Long الى اي اسم اخر مثلا Dim ixx As Long, K As Long وايضا غير هذا السطر For i = 1 To k For ixx =1 To K وايضا هذا السطر Next i Next ixx بالتوفيق

طيب بلاش الكود .... جرب المرفق عسى يكون المطلوب ... kan_a.accdb

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

بإستخدام تنسيق التاريخ Format([Date1];"mmm") اشكرك يا بش مهندس كانت مجرد فكرة شكرا لك على هذا التحفيز و هذه الكلمات الطيبة من اخ كبير فكريا و علميا

تفضل هذا التعديل Nouveau Microsoft Access Database (2).accdb سؤال جدا منطقي هذه الطريقة غير عملية جداً

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبكاته ************ بمناسبة العاشر من رمضان وانتصار العرب على اليهود أقدم لكم هذا الملف الرائع /////////////// عبارة عن قاموس لدوال الاكسل ومجموعة من الأمثلة أتمنى أن تستفيدو منه ++++++++++ للعلم الملف باللغة الانجليزية للمؤلف Peter Moneley وهذا الاصدار الرابع وآخر تحديث له في سبتمبر 2009 حمل من هنــا باسوورد فك الضغط mr-mas.com

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

بالخدمة استاذي العزيز

بارك الله فيك

تفضل التعديل Nouveau Microsoft Access Database (3)-2.rar

ارفق لك طريقة ليست عملية لكن قد تفيد في بعض الاحيان وربما يطورها اخرون نستطيع ان نسميها صناعة ال Chart بالطرق المحلية 😄 Graph.accdb

مشكور أستاذ حسام كيف أقوم بهذه العملية عن طريق dsum ?

الحمد لله رب العالمين

بالخدمة استاذي العزيز

😌 لم اتذكرها او حتى افكر فيها الف شكر لحضرتك

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

تفضل التعديل والمشكلة هو انك لم تضع معيار او شرط للاستعلام لكي يتعامل مع السجل المطلوب نقله ففي كل مرة تنفذ عملية النقل يتم النقل للسجل الاول فقط ولاحظ ان النقل يتم لكامل السجل الاول وليس فقط ID test-1.rar

اه بالضبط كدا

المطلوب غير واضح لي هل تقصد حذف سجل معين من سجلات المبيعات وإعادة رصيد الصنف إلى ما كان عليه قبل عملية البيع ؟؟؟

لا يوجد طريقة تجعل التذييل يظهر مباشرةً بعد آخر صف في الجدول إلا إذا اعتبرنا تعديل اعدادات الصفحة لتتناسب مع عدد الصفحات بدون هذا السطر حلا مناسبا فمثلا ظهرت السجلات في صفحتين وسجل واحد او اثنين في الصفحة الثالثة يتم ضبط اعدادات الصفحة page setup في جزء fit to صفحة 1 بالعرض و 2 بالطول بالتوفيق

السلام عليكم مشاركة مغ الاساتذة الاعزاء انظر للرابط اتمنى ان يكون المطلوب

بالخدمة استاذي العزيز

تفضل هذه المحاولة حسب فهمي لطلبك 2300-3-1.rar

انا بخدمتك ان كان هذا لا ينافي قواعد المنتدى

جزاكم الله خيرآ ونفع بكم

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

ما شاء الله على هذا الابداع استاذي @د.كاف يار.. بالحقيقة فكرت كثيرا بالمسالة ولم اجد حلا الا بتغيير النموذج او اعمل استعلام للتاريخ والسعلر ياخذ بياناته من فنكشن لكن لدينا مثل يقول يجعل للفأرة اذان Puts ears to the mouse

اضافة لما تفضل به استاذي محمد ابو عبد الله اذا كان لديك جدول فيه مفتاح اساسي وترقيم تلقاتي (Table1) ومرتبط بجدول اخر (Table2) وتريد ان تحذف جميع البيانات من الجدولين وتعيد الترقيم من الصفر استخدم الكود التالي في حدث عند النقر على زر الحذف DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM Table2" DoCmd.RunSQL "DELETE * FROM Tabl1" DoCmd.RunSQL "INSERT INTO Tabl1 (ID) VALUES (0)" DoCmd.RunSQL "DELETE * FROM Tabl1" DoCmd.SetWarnings True Me.Requery Refresh

بالخدمة استاذ ورحم الله والديك تفضل التعديل الخاص بعدد السجلات التي سيتم نقلها ملاحظة : الكود منقول للامانة مع بعض التعديلات و يرجى التاكد من فاعليته Access-Import-2.rar

تفضل التعديل ارجو ان يكون طلبك Access-Import-1.rar

ممكن بس فين رمز كنترول الصواب Application.SendKeys("^z") ولكن تذكر أن هذا السطر يساوي Application.undo وهما معا يقومان بالتراجع خطوة واحدة قبل تنفيذ الكود vba

الترحيل كود vba

يبدو أن حضرتك لم تقرأهذا الجزء

اخوتي الأعزاء السلام عليكم أسأل الله أن يصلح لنا ديننا الذي هو عصمة أمرنا ويصلح لنا دنيانا التي بها معاشانا وأن يجعل الحياة زيادة لنا في كل خير وأن يجعل الموت راحة لنا من كل شر ) قولوا أميييييين ،،، قلتم أمين،،،، إذاً فأنني يا أحبابي في الله لأني أحبكم أهديكم هذا الرابط النفيس والمليء بمقاطع الـفيديو (YOUTUBE) وبها شروحات مستفيضة للأكسل بأسلوب شيق فتفضلوا هذا الرابط : http://www.youtube.com/watch?v=NcpNlKqiIoY...player_embedded والسلام عليكم لاتنسونا بالدعاء بظاهر الغيب

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

وإياك أخي الكريم نفعنا الله وإياكم به

وإياك أخي هشام وأضيف عليها ربنا يبعد عنك بوش وأعوانه هههههه كل عام أنتم بخير

سعيد بمرورك أخي يحيى هذا لا يقارن بما تقدمه من كتب رائعة لخلالاصات مواضيع الإخوة

أخي الفاضل استخدم متصفح حديث مثل ie8 انترنت اكسبلورر 8 أنا شخصيا أستعمل Google Chrome 3.0.187.1 وكل شيء مية مية

رائع أخي يحيى بانتظار الجهود العربية