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

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

مرفق مثال بسيط حسب فهمي للموضوع وحاولت اني ابسطه باكبر قدر ممكن لعله يحقق المطلوب او ينتفع به احدهم ايضاح اذا رغبت البحث فقط بالحرف الاول احذف * من بداية المعيار في الاستعلام تحياتي Database8.accdb

اعتذر للخطا تعديل للكود Function vbCEILING2(ByVal Number As Variant, Significance As Double) As Double If Sgn(Number) <> Sgn(Significance) Or Sgn(Significance) = 0 Or Not IsNumeric(Number) Then Exit Function End If If (Val(Number) / Significance) > Fix(Val(Number) / Significance) Then vbCEILING2 = (Fix(Val(Number) / Significance) + 1) * Significance Else vbCEILING2 = Fix(Val(Number) / Significance) * Significance End If End Function

السلام عليكم ورحمه الله وبركاته اخى الفاضل @ahmedsaadzeed لماذا لا تتابع مواضيعك التى تفتحها وتقوم بانشاء مواضيع اخرى لنفس الطلب ؟

استبدله جميعا بهذا الكود ..... Dim Output_Path As String Output_Path = CurrentProject.Path & "\bb" & "-" & Format(Now(), "dd-mm-yyyy") & ".xlsx" DoCmd.TransferSpreadsheet acExport, , "data", Output_Path Application.FollowHyperlink CurrentProject.Path & "\bb" & "-" & Format(Now(), "dd-mm-yyyy") & ".xlsx"

أخي، بعد فحص جديد انتبهت أن عملية القفز مطلوبة لاختيار ملاحظ عشوائيا. ولكن قمت بالتعديل على الشرط ليكون كالتالي: - ابقاء أحد الشرطين القديمين وهو منع تكرار الملاحظ لنفس الفترة. - منع دخول الملاحظ لفترتين متتاليتين. - أن لا يزيد عدد حضوره عن 3 على أساس أن حصة الملاحظ من الفترات = 26 فترة مقسومة على 10 ملاحظين لتكون النتيجة 2.6 فترة لقد قمت بتعطيل جزء في آخر الكود ، افحص النتائج أولا، وإذا وجدت أي ملاحظات وقبل أن ترجع لي فعل الجزء المعطل وافحص النتائج من جديد. موفقين ملاحظة_03.xlsm

برنامج الموارد البشرية HR "مفتوح المصدر" يحتوى على التالي : -بيانات الموظف . -الإجازات . - الأذنونات . - تسجيل الحضور يدوياً . - الخصومات . - السلف . - المكافأت . - تقيييم الموظف . - ساعات إضافية . - تقارير. - متابعة الحضور والانصراف . - تسجل الحضور والانصراف بشكل آلي . - تسجل الحضور بشكل يدوي . وخيارات أخرى . وهذا البرامج من تطويري وجدت جداوله في موقع خارجي . لا تنسونا من خالص الدعاء ،،، HR.rar

السلام عليكم اخوانى الاساتذة وجدت هذا الموضوع الرائع للاستاذ جعفر اخى وحبيبي هنا حاولت التنفيذ على نموذج لدى نجحت حزئيا احتاج دعم منكم اخوانى للتنفيذ هنا هنا احتاج جمع منه تلقائيا بحوار منه بالاسفل وكذلك له والرصيد = له-منه ارفقت نموذج مصغر للنموذج بارك الله فيكم اخوانى نموذج مصغر.accdb

طيب .... هذه نسخة مبسطة كما ذكرت ويمكن الابداع في طريقة تنفيذها ...... 1- النموذج المراد تعديله ... 2- نسخة لإعادة التجربة . طبعا يمكن اضافة اضافات لبرنامج التحديث اخذ مثلا نسخة احتياطية قبل التنفيذ ..... ايضا يمكن اضافة التعرف على برنامج العميل من حيث النسخة وهل البرنامج محدث او لا الى إخره من الابداعات والمهارات ................................... kan_PRO.rar

ابشر ابا الحسن ... احاول اعمل نموذج مبسط لتحديث نموذج لدى العميل وايضا اضافة حقل في جدول لدى العميل ...

استاذنا ممكن مرفق للبرنامج استاذى الحبيب بارك الله فيك

شكرا لكم استاذ @husamwahab وشكرا لجهودكم، ياريت الجميع يفعل كما فعلت، فعلا الفحص يحتاج دائما إلى التنويع في البيانات. خيرا فعلت. تم التصحيح. تم تبديل المرفقات أكثر من مرة، العملية متعبة وخصوصا لما تقارن مع مخرجات الاكسل، وكما قلت سابقا في موضوع آخر أن الاكسل يستخدم نوع رقمي أوسع من النوع double الموجود في الفيجوال، وهذا يسبب فقدان جزء ضيل جدا من قيمة الكسر وهذا ما يسبب الفروقات. لو نهمل المقارنة مع الاكسل الأمور تكون أسهل ولا تحتاج إلى مزيد من المعالجات والتحايل أحيانا. CeilingFunction4Access_03.xlsm 4ExcelFunctions4Access_03.xlsm

وعليكم السلام 🙂 في مثل هذه الحالات ، اول شيء يجب عمله هو عمل نسخة من البرنامج، حفظها في مكان آمن، وعدم لمسها لأي سبب 🙂 اقترح استعمال البرامج التالية على نسخة من برنامجك: . . واذا حبيت ان الشباب يساعدوك ، فيمكنك رفع برنامجك على احد مواقع الرفع المجانية ، وارفاق الرابط هنا 🙂 جعفر

تفضل أخي من احد المشاركات بالمنتدى بعد إضافاتي ووافني بالرد من فضلك هل هو مبتغاك قائمة منسدلة.rar

تفضل أخي يارب يفيد بما طلبته نموذج مصغر.accdb

تسلم يا غالي ❤️ سيتم التجربة ومتابعتك بالنتيجة مع تحياتي 👍

بالخدمة استاذ جرب هذا الكود =DMax("Val([code1])","Q_code1","[code1]<> 'null'")

السلام عليكم استاذ ابو احمد موضوع جميل ومفيد تسلم ايدك تم متابعة الاكواد وهي اكواد جميلة واحترافية لكن اعتقد يوجد مشكلة في كود CEILING هذه محاولة ارجو ان تكون موفقة وعذرا للاطالة 4ExcelFunctions4Access_2.rar

بالتاكيد نلتمس لك العذر اخى الفاضل ونوضح لك بان عليك بمراجعه قوانين المنتدى للاستفاده القصوى منه قوانين الموقع ثم انه لم اقل بمتابعه المواضيع المقترحه لان معنى المقترحه اى انه احد الاخوه اقترح عليك موضوع لمراجعته ولكن عليك بمتابعه مواضيعك التى قمت بفتحها لطلب المساعده وان لم تجد ردود على السؤال يكتفى برفع الموضوع برد فيه بكلمه للرفع ليظهر باعلى الصفحه الاولى تقبل تحياتى ونتمنى لك الاستفاده بالتوفيق اخى

%10 كل سنة

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

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

Sub EXPORT_TO_EXCEL_01() '.. EXPORT TO EXCEL USING DOCMD RUNSQL DoCmd.RunSQL "SELECT [ID],[Fullname],[tel] INTO SHEET_NAME IN'" _ & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM data" End Sub Private Sub Command3_Click() On Error Resume Next 'DoCmd.OutputTo acOutputTable, "Data", acViewPreview DoCmd.SetWarnings False EXPORT_TO_EXCEL_01 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... " On Error GoTo 1 Application.FollowHyperlink CurrentProject.Path 1: DoCmd.SetWarnings True End Sub

عليكم السلام والرحمة السبب هو ان نوع الحقل نصي وعليه فان 9 مثلا تعتبر اكبر من 1000000000 تفضل هذاالكود ارجو ان يكون طلبك =DMax("Val([code1])","Q_code1")

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

والله انا سعيد جدا بالسادة الافاضل أعضاء الجروب الذين يقومون بالمساعدة من علمهم

تجد هنا مرادك ان شاء الله احترامى

ولك مثله واكثر اخي احسن الله اليك فعملك اكثر نفعا مما تظن تحياتي وتقديري

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

أخي انا استخدم هذا البرناج ومغظم كوداته مأخوذه من منتدانا أفيسينا أدرسه جيداً وركب برنامجك عليه أو استخدمه كما تشاء MahdiPermissions.rar

مبرمج متقاعد لله درك فقد أسهمت في أكمال مشروعي الانساني وهو يخدم فئة الايتام وذوي الاحتياجات الخاصه لاني متطوع بجمعيه مرخصه يسهل الاكمال التلقائي في البحث السريع وسرعه تنفيذ طباعه النماذج والمعاملات الخاصه بهم فالعدد 1100 مما أجد صعوبه في البحث في الارشيف عن ملفاتهم الصحيه والاعاشة والتعليمه الخ ,, بارك الله فيك و نفع الله بك وبعلمك وزادك علماً وعملاً

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

محاولة متواضعة في المثال المرفق، من خلال النموذج ندخل التاريخ و السعر و الحال، و بواسطة الآستعلام يظهر التاريخ الجديد و الثمن الجديد بزيادة 10% عن السنة الجديدة السعر الجديد.accdb

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

تفضل هذه المواضيع من الرابط الذي اعطيتك: . . . وتوقفت عن البحث في البقية

برنامج يعتمد نفس الكود منقول للتجريب shiftkey2000.mdb

وعليكم السلام اخي adomar9911 🙂 واهلا وسهلا بك في المنتدى 🙂 لو بحثت في المنتدى ، ستجد الكثير من المواضيع الشبيهه بطلبك ، وهنا اضع بين يديك هيئة البحث : https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=بحث+اثناء+الكتابة&sa=Search وهذا مثال لي: جعفر

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

انظر .....

تفضل تقدر تغلق البرنامج وتفتح برنامجك وادع لصاحب البرنامج الذي قام بعمله لإلغاء مفتاح الشفت.rar

شكرا لمروركم جميعا استاذى واخى الحبيب الاستاذ مجدى مروركم يعد تكريما وتشريفا لى استاذ abdelfattahbadawy استاذ arsalanamin بارك الله فيكم وجزاكم الله خير

شفافيــــــــــــTransparent Formsــــــــــــة النماذج Transparent Forms.mdb