أمير2008

بسيطة اعمل تجميع (جروب) استبدل الكود ب : Option Compare Database Option Explicit Private Sub a_AfterUpdate() Dim dbsNorthwind As DAO.Database Dim rstProducts As DAO.Recordset Dim strSQL As String Set dbsNorthwind = CurrentDb strSQL = "SELECT TOP 1 mm.mm FROM mm GROUP BY mm.mm ORDER BY Abs([mm]-" & Me.a & ");" Set rstProducts = dbsNorthwind.OpenRecordset(strSQL) rstProducts.MoveLast: rstProducts.MoveFirst If Nz(rstProducts.RecordCount, 0) <> 0 Then If rstProducts.RecordCount = 1 Then rstProducts.MoveFirst Me.b = rstProducts!mm Me.c = "" End If If rstProducts.RecordCount = 2 Then rstProducts.MoveFirst Me.b = rstProducts!mm rstProducts.MoveNext Me.c = rstProducts!mm End If End If End Sub واذا كتبت رقم موجود بالجدول سيأتيك الرقم نفسه فقط واذا كتبت كان يقع في منتصف رقمين فسوف تأتيك القيمين واذا كان قريبا من قيمة بالجدول فسوف تأتيك هذه القيمة فقط

ممتاز

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

في حالة عندك أرقام 50 و 60 وأنت كتبت 55 فسوف يأتيك الأقرب للأعلى أولا ثم الأدنى جرب المرفق new2.rar

جرب الفكرة دي من نموذج البيانات الشخيصية تنقل بين الموظفين وعندما تصل للموظف (انهاء + مؤمن أو دخول) ستظهر صورة تظهر وتختفي 11116_Backup.rar

شكرا أستاذ كودي أحلى حاجة في الدوال هذه الدالة العنقودية: https://support.office.com/ar-sa/article/الدالة-Join-e65fbc9a-c499-430d-a51a-bdf22140650f?ui=ar-SA&rs=ar-SA&ad=SA والترجمة العربية روعة ههههههههههههه الانضمام سورسيراي . حاجة جميلة بتوضح فعلا إن الانضمام يجب أن يكون (سورسيراي) وليس شيئا آخر ويجب ن نسافر سويسرا ونضم هناك ههههههههه وهتلاقي هناك شخص كفيف لا يرى يطلقون عليه اسم (الصفيف احادي الابعاد) هههههههههه مش عارف لماذا مايكروسوفت تترجم حرفيا ولماذا لا تستعين بمترجمين عرب على العموم المرجع الانجليزي أفضل وشكرا لك مرة أخرى

انظر الملف المرفق . يوجد جدولين كلاهما بنفس الاسم تماما وهو الرقم:(5) تماثل تام في التسمية ، لا مسافات ولا فراغات وبرغم ذلك متواجدين متجاورين كجداول مستقلة tbls.rar

اسم الجدول بالنقاط ..... quran 02.rar

أنا جربت في استعلام الالحاق ونفع جرب المرفق 347.Medication.rar

في استعلام الالحاق اكتب true كشرط فيآخر حقل Print_This

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

أنا أختلف معك في المسميات فقط على النحو التالي : - تاريخ بداية الأصل المفترض يكون تاريخ الشراء -تاريخ احتساب الاهلاك هو تاريخ تختاره في أي وقت لكي تحسب الاهلاك - رصيد الأصل هو كميته (الموجود منه) - قيمة الأصل هي سعر الشراء - القيمة الدفترية هي صافي قيمة الأصل (القيمة الحالية للأصل) وهي = قيمة الاصل (سعر الشراء) - مجمع الاهلاك والمرفق السابق سويت لك المعادلات لكن وضعت لك تاريخ الشراء في المعادلات استبدله بأي تاريخ تحب

جدول أكسس به 6236 آية قرآنية بالتشكيل لمصممي برامج القرآن الكريم لا تتعجب من اسم الجدول واسم الاستعلام فكلاهما نفس الاسم وهو اسم غير موجود هههههههه على العموم هذه خدعة لكن الكود الغريب هو كود الاستعلام : SELECT * FROM ‍‌; فعلا الكمبيوتر آلة غبية جدا ههههههه quran.rar

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

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

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

ما الفرق بين تاريخ الاهلاك وتاريخ حساب الاهلاك ؟ وما الفرق بين رصيد الأصل والرصيد الدفترى للأصل ؟ الاصول2.rar

شوف يا أبا عبد الرحمن مرفق لك القرآن كاملا في ملف نص حجمه بالكيلو وبه تشكيل على الأحرف وعدد الآيات 6236 كل منها على سطر مستقل طبعاً بسم الله الرحمن الرحيم موجوده في البداية فقط دون بداية كل سورة يمكن تقرر تعمل البرنامج آية آية ويمكن أحد من الزملاء يستفيد quran.rar

صحيح و لكن هذا طلب العميل. وربما لا يتوافر القرآن لديه آية آية بالنص والصوت

يا باشا بدون الاضطراب فلن نصل إلى حل . هههههه أنا عملت تعديلات جديدة غير مسبوقة محلياً خاصة التعديل الخاص بإغلاق النموذج بمجرد الضغط على زر close وعلشان الزر يشتغل كويس معاك لازم تضغط بنعومة لأن الضغط المفاجئ قد يسبب الاضطراب في الملف وأحملك المسئولية http://gulf-up.com/do.php?id=316380

يا باشا ده طلب بسيط عاوزين طلبات معقدة يعني مثلا المستخدم ينظر إلى كلمة في المصحف الالكتروني فتتم القراءة تلقائيا http://gulf-up.com/do.php?id=316155

ممتاز أعجبني [id]<= & [id]

لا لا مفيش مشكلة ولا حاجة ده بنسميه في علم البرمجة دالة السراب بالمعنى المصري ( تهيئات ) . لما المبرمج بيعقد فترات طويلة بالعمل ، يظن أنه يرى أشياء بينما هي غير موجوده مثلا : نموذج بيهتز ...... استعلام مقلوب .....جداول حمراء

SELECT (IIf(IsNull(((SELECT Sum(t1.num) AS STOCK FROM t1 WHERE t1.id <= BAL.id ))),0,((SELECT Sum(t1.num) AS STOCK FROM t1 WHERE t1.id <= BAL.id )))) AS num2, BAL.num, BAL.id FROM t1 AS BAL; غير اسم الجدول إلى t1 والصق هذا الكود في استعلام جديد وسوف يجمع كل ما سبق من الحقل num في كل سجل هذا على حد فهمي لطلبك الثالث

تمام صحيح بسبب الشرط : [T2].[id]=[T1].[id] بداخل Exists وهو موجود أصلا في Select