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

تفضل 🙂 في الاستعلام ، ننادي الدالة Add_Fields ، ونرسل لها رقم المعرف id : . وهذه هي دالة جمع بيانات حقول السجل الواحد : Function Add_Fields(id As Long) As Double Dim rst As DAO.Recordset Dim fld As Field Dim T As Double 'get this Name Record from the table Set rst = CurrentDb.OpenRecordset("Select * From [tblAmlyat] Where [id]= " & id) T = 0 'initial Total 'loop through the fields For Each fld In rst.Fields 'Debug.Print fld.Name & vbTab & fld.Value 'skip the Full_Name field name If fld.Name <> "id" Then 'add the field values T = T + fld.Value End If Next fld 'now send this Total to the query Add_Fields = T 'clear memory rst.Close: Set rst = Nothing End Function جعفر 1382.Db3.mdb.zip

بسم الله عليك يا دكتور حسنين ، لا يكون صاير عندك انفصام في الشخصية 🙂 انتم النهر ، وانما انا شربة ماء فقط 🙂 جعفر

السلام عليكم.. في درس اليوم سنقوم بحساب نسبة الربح من سعر الشراء وسعر البيع وسنقوم بحساب سعر البيع من خلال نسبة الربح -------------------------------------------------------------------------------------- المثال الأول: إذا تم شراء سلعة بسعر 450 دولار، وبيعها بسعر 500 دولار، فما هي نسبة الربح؟ الحل: القانون الرئيسي لنسبة الربح: (الربح/سعر الشراء)×100% أولاً: نحسب قيمة الربح لكي نعوضها في القانون في الأعلى الربح = سعر البيع - سعر الشراء 500-450 = 50 دولار. وبالتعويض في القانون الرئيسي: نسبة الربح = (50/450) × 100% = 11.11% -------------------------------------------------------------------------------------- أما لو اردنا حساب سعر البيع من خلال نسبة الربح: المثال الثاني: إذا تم شراء سلعة بسعر 10 دولار وكانت نسبة الربح 25%، فما هو سعر البيع؟ الحل: القانون الرئيسي لحساب سعر البيع من خلال نسبة الربح: (سعر الشراء * نسبة الربح) / 100 + سعر الشراء وبالتعويض في القانون الرئيسي: النتيجة = (10 * 25) / 100 + 10 = 12.5 تحياتي لكم..

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

عليكم السلام.. تفضل: Public hide_SubReport As Boolean Private Sub cmd_print_Click() DoCmd.OpenReport "tablAA" hide_SubReport = True DoCmd.OpenReport "tablAA" hide_SubReport = False End Sub Option Compare Database Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If Form_frm_print.hide_SubReport = True Then tbBB.Visible = False Else tbBB.Visible = True End If End Sub إخفاء التقرير الفرعي في الطباعة.accdb

السلام عليكم 🙂 هل هذا المطلوب؟ جعفر Drag_Forms.zip

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

مشاركة مع استاذي @kanory اخي الكريم لا يكتفي باسم النموذج لان انسخ النموذج كاملا لان بداخلة تعديلات قام بها كانوري ههه الرد في نفس اللحظة الحمد لله انحلت مشكلتك

حياك الله اخي الكريم ... التعديلات في الاتي ::::::::: الجداول : TableFields الاستعلامات : qry_Items_Dates_31 qry_Items_Pages_3 النماذج : frm_Main التقارير : rpt_Items_Dates_3 rpt_Items_Pages_3 ======================================= بالتوفيق ,,,,,,,,,

اعتقد يمكن التعديل على السطر If fld.Name <> "id" Then باضة الحقول التي لاتدخل في التجميع

اشكرك حبيى / @ابا جودى

عند الرجوع إلى المثال المرفق في مشارتك الأولى وجدت أن جميع النماذج في وضعية المشروط (المتحكم ) وليس المنبثق! وهذا خطأ. لا يجب استخدام النموذج المشروط إلا في حدود ضيقة جداً.. وعليه يجب إعادة هذه النموذج إلى الوضع الطبيعي.. وإذا أردت استخدام هذه النماذج كأبناء فيجب استخدام وضعية المنبثق فقط.. يمكن تمرير اسم النموذج في فرع الشجرة إلى الإجراء التالي Sub OpenForm(FormName) Dim result As Long Dim chwnd As Long DoCmd.OpenForm FormNmae chwnd = Screen.ActiveForm.Hwnd result = SetParent(chwnd, Me.Hwnd) End Sub إرفاق جدول أسماء النماذج يساعد في التطبيق...

وهنا رابط آخر لأخونا @ابا جودى هدية : التحكم في الطابعة وخصائصها طباعة التقارير - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

الاستاذ / @محمد طاهر لقد ارسلت لكم الرسالة من الايميل الاخر ارجو ان تطمنى هل وصلت الي سيادتكم الرسالة جزاكم الله كل خير استاذنا العظيم / @jjafferr انا مقدر ذلك وعارف ان هذه اجراءات والمفروض ان افرح لذك حتى اكون فى امان من حساب لم يدخل عليه احد شاكر لكم وجزاكم الله كل خير

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

هممم انت تنظر لها: تريد الحقل اللي فيه المبلغ فقط ، مثلا السجل الاول = 6093.69 ، وانا انظر لها: نجمع الحقول (وليس نعرضهم جنب بعض) ، مثلا السجل الاول = 6093.69 +0 +0 = 6093.69 ، والنتيجة ، الطريقتين تعطي نفس النتيجة 🙂 هل كلامي صحيح ؟

حياك الله 🙂 تفضل: (تمت الاجابة) اختيار طابعة لطباعة التقرير بشرط الرقم الوظيفي - قسم الأكسيس Access - أوفيسنا (officena.net) ولقيت عندي هذا المثال المرفق ، ولا اعرف شيء عنه 🙂 جعفر SelectAnd ResetPrinter2k.zip

فضلا جرب المرفق ادناه بعد اضافة المعادلة =SUMIF('وارد-صادر'!A:F;A3;'وارد-صادر'!E:E) Alyosr IncomingsTest2.xlsx

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

وعليكم السلام 🙂 اعمل نموذج ، واعمل فيه زر لطباعة التقرير ، واستعمل هذا الكود فيه ، ولانه لا يمكن فتح التقرير مرتين في وضع المعاينة ، فنستخدم طباعة التقرير مباشرة : Private Sub cmd_tablAA_Click() DoCmd.OpenReport "tablAA", , , , , "All" DoCmd.OpenReport "tablAA", , , , , "No_Sub" End Sub بهذه الطريقة نرسل قيمة في المتغير OpenArgs ليكون موجودا في التقرير ، في المتغير الاول نطبع التقرير مع التقرير الفرعي ، وفي المتغير الثاني سنطبع التقرير بدون التقرير الفرعي. في التقرير ، التقرير الفرعي موجود في قسم التفصيل من النموذج الرئيسي ، . على حدث "عند التنسيق" لهذا لقسم التفصيل ، نكتب هذا الكود : Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If Me.OpenArgs = "No_Sub" Then Me.tbBB.Visible = False Else Me.tbBB.Visible = True End If End Sub جعفر 1381.إخفاء التقرير الفرعي في الطباعة.accdb.zip

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

رجاء الرد على هذا السؤال

السلام عليكم لقد وصلتني الرسالة بالفعل و لكن من البريد المسجل لهذا الحساب الذي اضفت منه المشاركة السابقة المطلوب الرسالة من البريد الخاص بهذا الحساب : https://www.officena.net/ib/profile/143710-حلبي/ و هذا فقط اجراء روتيني كاسهل وسائل التاكد من كونك نفس صاحب الحساب ،

السلام عليكم.. في بلدي العراق لدينا أقل عملة نقدية وهي 250 دينار عراقي احفظو هذا الرقم جيداً لأننا سنعود اليه اردت ان اقوم بعمل برنامج للأقساط فكان مبلغ القسط الكامل هو ( 10,000 عشرة الآف دينار عراقي ) وكانت مدة الأقساط هي ( 3 شهور ) اذن نقوم بتقسيم المبلغ على المدة لكي يظهر لنا قيمة القسط لكل شهر وعند التقسيم ظهرت الكارثة مبلغ غريب!!!!!!!!!! فلا هو 250 دينار ولا هو 500 دينار لا يمكن دفعة.. ماهو الحل؟؟ قمت بكتابة كود لحل هذه المشكلة، للأمانة الكود ليس من كتابتي 100% بل بنسبة 60% Public Function RoundTo(d, roundRate, RoundType) As Double d = Math.Round(d, 7) If d <> 0 And roundRate <> 0 Then d = Ceiling(d) Dim num As Double num = d Mod roundRate If num > 0 Then If RoundType = 1 Then d = d + roundRate - num ElseIf RoundType = 2 Then d = d - num ElseIf RoundType = 3 Then If num >= roundRate / 2 Then d = d + roundRate - num Else d = d - num End If End If End If End If RoundTo = d End Function Public Function Ceiling(ByVal x As Double, Optional ByVal Factor As Double = 1) As Double ' X is the value you want to round ' Factor is the optional multiple to which you want to round, defaulting to 1 Ceiling = (Int(x / Factor) - (x / Factor - Int(x / Factor) > 0)) * Factor End Function الاستخدام: Private Sub cmd_calc_Click() Dim TotalPrice, Result As Long Dim Duration, i As Integer TotalPrice = 10000 Duration = 3 i = 1 Result = TotalPrice / Duration Do While i <= Duration MsgBox RoundTo(Result, 250, 2) i = i + 1 Loop End Sub ستظهر لنا النتيجة على شكل لووب مقسمة لإجزاء سيتم جبر النتيجة من 3,333333 الى 250 فتكون: 3,250 الف دينار لـ 3 دفعات ويمكنكم إستخدام الكود حسب العملة لديكم، بإستبدال 250 لإصغر قيمة عملة لديكم. تحياتي لكم

تم الحل الحمدلله وذلك باضافة هذا الكود بعد امر تشغيل الدالة Call acbopenFormpolesa chwnd = Screen.ActiveForm.Hwnd SetParent chwnd, Me.Hwnd هكذا وبارك الله في الجميع

رائع 🙂 ما شاء الله عليك اخوي أبو إبراهيم ، دائما ، ما معتمد على قدرات الاكسس فقط ، وانما تستفيد من بقية قدرات الاوندوز 🙂 جعفر

أهلا بكم .. يمكن استخدام إجراءات واجهة برمجة التطبيقات لوندوز WIN32API لتحقيق هذا الغرض الإجراء المطلوب Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long التطبيق Private Sub Command0_Click() Dim result As Long Dim chwnd As Long DoCmd.OpenForm "form2" chwnd = Screen.ActiveForm.Hwnd result = SetParent(chwnd, Me.Hwnd) End Sub Or Private Sub Command2_Click() Dim chwnd As Long DoCmd.OpenForm "form3" chwnd = Screen.ActiveForm.Hwnd SetParent chwnd, Me.Hwnd End Sub الشروط يجب أن يكون الأبناء (النماذج والتقارير) في وضعية الإنبثاق المثال mdi_with_access.accdb

ماشاء الله لا قوة الا بالله فناااان من طراز عريق

تعديل المسميات يكون داخل الاستعلام

انت تعرف ان مشكلتك هي ان النموذج الرئيسي "منبثق" ، وعليه ، وكل اللي نعمله هو مرواغة الاكسس حتى يقبل نموذج "منبثق" فوق نموذج منبق !! سؤالين: 1. كم نموذج ستفتح فوق النموذج المنبثق الرئيسي ؟ 2. ليش تستعمل نموذج منبثق ؟ انا نادرا ما استعمل نماذج منبثقة ، والطريقة اللي استعملها في برامجي: لا ، طريقتي ما تصلح لهذا الكم من النماذج الفرعي !! وياريت ترفق لنا هذه الجزئية من برنامجك ، لأنه في طريقة على بالي اريد اجربها ، ولا اريد اجربها إلا على برنامجك الاصل 🙂 بكل بساطة: طريقة فتحك للنموذج المنبثق معناها انك تفتح النموذج المنبثق A ، وتغلق النموذج المنبثق B ، فعليه ، يكون النموذج المنبثق A هو النموذج الوحيد المفتوح ، فنقوم بتغييره من نموذج منبثق الى نموذج عادي : me.modal=false وعليه يمكن فتح جميع النماذج الاخرى بالطريقة العادي 🙂 لهذا السبب ، اريد النموذج الذي يفتح النموذج Form1 ، وبعض النماذج الاخرى مثل Form2 و Form3 . . جعفر

السلام عليكم جميعا استاذ @jjafferr استاذ @ابا جودى استاذ @ازهر عبد العزيز انا جربت هذه الطريقة (النماذج غير منبثقة) على اربعة شاشات دقة (1280*1024) و(1024*768) و(1366*768)و (1920*1080) وكانت النتيجة ممتازة جدا (كل شيء تمام والنماذج تعمل مليء كل الشاشات) * عن تجربتي الخاصة من الصعب الحصول على ذلك من خلال جعل النماذج منبثقة وتعمل بصورة صحيحة على كل الشاشات باختلاف دقتها تحياتي للجميع

تفضل تابع الصورة ادناه

اتوقع انك تقصد مثل هذي الصورة الكود في الاستديو VB.NET Me.IsMdiContainer = True With [Form Name] .MdiParent = Me .Show() End With لا يوجد شيئ مستحيل في البرمجة و سأحاول ان اصل للطريقة في الاكسس و كذلك المكتبة المناسبة لهذه الفكرة

هذا شرح مبسط سويته على ملف بوربونت شرح.pptx

تم ذلك الرسم البياني.zip

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

هذا التطبيق الرائع لا غنى عنه ... وطبعا الجواب من العنوان.. هدية الى أحبابي ملاحظة هامة للأمانة وحفظاً للحقوق هذا العمل الرائع أنا فقط قمت بالتطوير واضافة بعض التغيرات التي تناسبني ولا أتذكر لمن أو من أين حصلته فالدعاء لصاحبة جزاه الله كل الخير ونسأل الله تعالى أن يجعل هذا العمل علم ينتفع به ويكتبه له في موازين حسناته صدقة جارية ان شاء الله المرفق Full Control Of Print Report.mdb

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

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

السلام عليكم ورحمة الله وبركاته هل استطاع احد من رواد المنتدى الكريم بمنع استيراد الجداول والاستعلامات من قاعدة البيانات المحولة mde بانتظار ردكم

كيف يمكنني إدخال عدة سجلات ضمن رقم 1 وعند اختيار جديد يعطيني رقم 2 وأدخل عدة سجلات وهكذا الرجاء الرد العاجل إن أمكن فالموضوع في غاية الأهمية

قرات في هذا المنتدى موضوع عن الحماية برقم المعالج وهناك مثال مرفق للاخ رضا عقيل ولكن لم استطع الوصول الى فك البرنامج ومشاهدة الوحدات النمطية وتصميم النماذج بالرقم ان الاخ رضا قد تكرم بإعطاء الباسورد للوحدات النمطية فهل هناط طريقة تتبع ؟ وهذا رابط الموضوع http://www.officena.net/ib/index.php?showtopic=177

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

ان هذا الرقم يتغير في كل مرة اقوم فيها بعمل format وهذا عن تجربة ، وبناءا عليه توقف برنامج كان يعمل مسبقا فهل يوجد حماية عن طريق رقم البورده ، او رقم المعالج ، ولكن تعمل علي نظام win98 لانه اكثر الانظمه انشارا (هنا في الصعيد )انا اعلم بان xp سيصبح نظام تشغيل سابق ، فاتمني من الله عز وجل ان يكون هناك طريقه لمعرفة رقم المعالج او رقم البورده بنظام ويندوز98

الأخوه الأفاضل كيف يمكننا زيادة عدد حقول الاكسس الموجوده بالجدول ليسع أكثر من 255 حقل فى الجدول نفسه . وأنى أعلم جيداً بأن تقسيم الجداول يجعل القاعدة تعمل بشكل أفضل وأسرع ؟ ولكن من الافضل لى معرفة كيفية زيادة الحقول بالجدول بالعدد الذى أريده ؟. فى انتظار ردكم .

تعلمنا كيفية فتح قاعة بيانات لها كلمة مرور عن طريق هذا الكود Dim wrkJet As Workspace Dim ABA As Database Set wrkJet = DBEngine.Workspaces(0) Set ABA = wrkJet.OpenDatabase("c:\back.mdb", False, False, ";PWD=aman2") ولكن ما هو كود انشاء قاعدة بيانات جديدة وتحديد لها كلمة مرور

أخوتي الكرام السلام عليكم ورحمة الله وبركاته وبعد تحية طيبة أتنمى أن أجد إجابة على سؤالي في أسرع وقت وفي هذه الساعة لأنه لدي عمل وتسليمه غداً الاحد في ا أخوتي لا تبخلوا على وسؤالي: جدول مكون من الاسم الدرجة اختبار 1 درجة اختبار 2 النقاط 1 النقاط1 مجموع النقاط .......الخ ............ وعملت استعلام لهذا الجدول ( طبعاً في الاستعلام جداول كثيره ولكن سؤالى خاص بهذا الجدول). الاسم والدرجة وتدخل عن طريق الجدول و أريد أن يظهر في النقاط ما يلي: إذا كانت الدرجة أقل من 60 تكون النقاط 1.00 ومن 60الى 64.99تكون النقاط 2.00 ومن 65 الى 69.99 تكون النقاط 2.5 ومن 70الى 74.99 تكون النقاط 3.00 ومن 75الى 79.99 تكون النقاط 3.5 ومن80الى 84.99 تكون النقاط 4.00 ومن 85الى 89.99 تكون النقاط 4.5 ومن 90الى 94.99 تكون النقاط 4.75 ومن 95 الى 100 تكون النقاط 5.00 هذا ما يتعلق بالنقاط وبحقل مجموع النقاط يكون مجموع النقاط أرجوا أن يكون السؤال واضح وإذا لم يتضح سوف أرفق ملف فيه الاستلام ولكن كيف إرفاق الملف

الإخوة الفضلاء في منتدى اكسس لا استطيع وصف مشاعري بعثوري على هذا الموقع النافع والمفيد وصدقوني أنني كرجل فقد شيئا غاليا ثم عثر عليه ولي أسئلة أرجو منكم مساعدتي في حلها ولمن حلها دعوة صالحة في ظهر الغيب ،ومشكلتي كالتالي : 1- قمت بتصميم برنامج للصادر والوارد ،وأرغب من آكسس أن يقوم بترقيم الصادر نيابةعني من الرقم الذي أختاره أنا على أن يبدأ برقم ( 1 ) مع بداية كل عام هجري وليس ميلادي 2- كيف يمكنني أن أجعل التاريخ ( توماتيك ) يتغيريوميا وذلك في النماذج ،فمثلا إذا صدرت معاملة وقمت بإدخال بياناتها في نموذج الصادر فكيف أجعل خانة تاريخ الصدور هي التي تقوم بوضع التاريخ نيابة عني على أن يظهر التاريخ في التقارير نيابة عني . 3- كيف يمكنني ربط رقم صادر بمعاملة واردة لتسديد قيدها أسأل الله تعالى أن يحرم وجوهكم على النار