ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته اولا : كل الشكر لكل اساتذتى الكرام الذين ادلو بدلوهم وشاركوا معلوماتهم فى هذا الموضوع ثانيا: وتلبية لدعوة الدكتور @الحلبي لمشاركة افكارى المتواضعة سوف اقوم بعمل موضوع مستقل واتيكم بالرابط اصبر وابشر وانتظر

اتفضل للعلم انا ما غيرت شئ بس فتحت التنسيق الشرطى فى وضع التعديل وقمت بالاغلاق دون التعديل على اى شئ واشتغل كل شئ حقيقة لا ادرى سبب المشكلة ارسال (2).rar

اتفضل ملفك بعد التعديل GSTION.accdb

وعليكم السلام ورحمة الله وبركاته اتفضل طلبك تم من خلال التنسيق الشرطى ارسال.mdb

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

طيب استخدم الاكواد الاتية زر أمر التالى With Recordset If .AbsolutePosition = .RecordCount - 1 Then MsgBox "Sorry, this is the last Record. To create a new Record one click the Add New Record button.", vbInformation Exit Sub Else DoCmd.GoToRecord , , acNext End If End With زر أمر السابق With Recordset If .AbsolutePosition = 0 Then MsgBox "Sorry, this is the First Record", vbInformation Exit Sub Else DoCmd.GoToRecord , , acPrevious End If End With وبكده تنتهى مشكلة الرسالة المزعجة احنا ما يرضينا زعلك

استاذى الجيل ومعلمى القدير الاستاذ @مبرمج متقاعد انتم الاروع وتم حل مشكلة موضوع تغير اللون مع التركيز ولا تزعل تطبيق لون (4).accdb

وزى ما بينحكى بالمثل لكل شيخ طريقة واثراء للموضوع استخدمت نفس الطريقة للنموذج المستمر تطبيق لون (3).accdb

اهلا بحضرتك اشتاقت اليكم نفسى كثيرا هذا تصوير للمرفق

وعليكم السلام ورحمة الله تعالى وبركاته اتفضل طلبك تدلل تطبيق لون.accdb

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

على النعمه انت 100 الميه وشكلك بتقول كلام كبير قوى بس انا ولا فاهم اى شئ .. أعذرنى الله اعلم بحالى لو انا قدرت افهم قليلا المشكلة مش فى قاعدة الاكسس ولا الاكتيف اكس اللى فى المكتبات الداخليه للاكسس مطلقا المشكلة ان الملف الدفعى نفسه اللى يسجل مكتبات الـ Dll الخارجية التى يتم الاستعانه بها هو الذى يعمل بالاصدار NET Framework 4.6 افتح الملف الدفعى باسم Register فى المرفق من المجلد Tools انا استخدمت هذا السطر لتسجيل المكتبات C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe وذلك لتفادى كل المشكل التى واجهتها بشبح الاصدار الاول حى يعمل على انطمة 7 و 10 و 11 >> 32 /64 لا تبدأ بالاعتراض اصبر وتريس احمد ربنا انك لم تشارك فى هذا الموضوع الشبح اسال اللى حضر واللى قرأ واللى اغمى عليه من عدم النوم بالايام والليالى

انت تانى وشبح الفاتورة الإلكترونية مصدقنا خلصنا منها يا رااااااااااااااااجل

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

بسم الله وعلى بركة الله نبدأ اول شئ ؟ خلينا نخلص الاشياء اللى راح تحتاج الى التجهيز بالأكسس بس علشان نقدر نفهم الموضوع من اخوانا الكرام ياللى فاهمينه صح واعذرونى وتحملونى فى الغياب والانقطاع المفاجئ والذى قد يكون متكرر فى الفترة المقبلة الى أن يأذن الله تعالى ويتمم شفاء والدى على خيـر هو وكل مريض هذا حمل الولد الوحيد لأبيه سوف اتابع بقدر الامكان اولا بصراحة دخلت على الفيديو الخاص بشرح الباش مهندس @Amr Sobhy الذى اشار اليه وهو مشكورا وضع معه مرفق يحتوى على قاعدة أكسس و مجلدات كثيرة بكل صدق مررت سريعا وان شاء الله لى إن أذن ربى لى عودة ولكن مبدئيا حتى افهم الموضوع جيدا سوف تدور نقاشات واستفسارات كثيرة وحتمية بعد التمعن جيدا فى الفيديو فقط قمت بتجربة قاعدة الاكسس والتى تحتاج تسجيل للمكتبة التى اخبرنا عتها الباش مهندس @Amr Sobhy سوف ارفق لكم القاعدة بتعديل بسيط حتى يمكن التسجيل للمكتبات واضافتها اليا من الملف الدفعى بمجرد فتح قاعدة البيانات كما قمنا بها مسبقا فى الجزء الأول ملاحظة هامة تم تعديل الملف الدفعى ليعمل كمسئول من تلقاء نفسه بمجرد فتح قاعدة بيانات الاكسس حتى يتمكن الجميع بما فيهم من ليس له دراية بطريقة تسجيل المكتبات بتشغيلها كمسئول متطلبات التشغيل : Framework الاصدار 4 ------------------------------------------------------------------------------- يمكن تحميل الملف الاتى هو يقوم بالتحديثات اللازمة سواء ويندوز 7 , 10 , 11 إذهب الى موقع التحميل : من هنا ( تحميل مباشر من mediafire .. من رفعي انا على حسابي الشخصي بالموقع ) ميزات برنامج All in one Runtimes: سهل الاستخدام و مفيد للغاية في تقليل الزمن الضروري للبحث عن الأدوات كلٍ على حدا. مجاني بشكل كامل و يقدم الكثير من الفائدة و يمكنه حمايتك من المواقع التي قد تصيب جهازك بفيروسات سيئة عند التحميل منها. يعمل بشكل ذكي حيث يقوم بتحديد ما يحتاجه حاسبك و لن يقوم بتثبيت كل الأدوات بشكل عشوائي. يقدم مجموعة كبيرة من الأدوات الضرورية في حاسبك و أهمها: .NET Framework 4.6 + Updates Java Runtime Environment 8 DirectX 9.0c Extra files General runtime files Microsoft Visual C++ Runtimes (v2005 – v2015) Microsoft Visual J# 2.0 SE Microsoft Silverlight 5 Shockwave Player 12 (Internet Explorer Plugin) ------------------------------------------------------------------------------- لكبر حجم المرفق تم تقسيمه على قسمين برجاء وضع القسمين معا فى نفس المسار ليتم فك الضغط بنجاح 626302988_VBA_ZatcaIntegrationV2.part1.rar 1345862990_VBA_ZatcaIntegrationV2.part2.rar

السلام عليكم ورحمة الله تعالى وبركاته وبعد اذن استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr تسهيلا على اخونا السائل على اعتبار ان الحقل اسمه ff اولا باستخدام دالة Switch Switch(IsNull(Trim([ff])),3,[ff]="Na",3,[ff]="ناجح",1,[ff]="فاشل",2) ثانيا باستخدام دالة iif IIf(IsNull(Trim([ff])),3,IIf([ff]="Na",3,IIf([ff]="ناجح",1,IIf([ff]="فاشل",2)))) وطبعا انا افضل دالة Switch لا يصير منها لخبطة مع كثرة عدد الحروف بالكود وبخاصة مع كثرة المتغيرات واستخدام الاحرف العربية اللى تشقلب الكود رأسا على عقب وتجيب لمحرر الاكواد صداع

لو امكن مرفق مبسط من قاعدتين لمحافظتين

ارجع القيم الخالية الى 0 من خلال دالة NZ يعنى مثلا NZ([FieldNameA],0)*NZ([FieldNameB],0) وان تعذر عليكم التطبيق ضع مثالكم الذى يحتوى على تلك المشكلة

تم الرد فى هذا الموضوع

على سبيل المثال حاولت تمرير اسم النموذج من خلال متغير Dim x 'As Object x = Form_frmInvoice Set frm = New x ولن فشلت التجربة

السلام عليكم مشاركة مع اساتذتى العظماء هذه افكارى المتواضعة هذه الاكواد داخل موديول Public clnfrmName As New Collection Public frm As Form Public intCounterOpenForm As Integer Dim xPos As Integer Dim yPos As Integer Dim lngCount As Long Dim lngI As Long Function OpenAForm() Set frm = New Form_frmInvoice frm.Visible = True intCounterOpenForm = intCounterOpenForm + 1 frm.Caption = frm.Name & "(" & intCounterOpenForm & ")" clnfrmName.Add Item:=frm, Key:=CStr(frm.Name & "(" & intCounterOpenForm & ")") xPos = xPos + 300 yPos = yPos + 300 frm.Move xPos, yPos Set frm = Nothing End Function Function CloseAllForm() lngCount = clnfrmName.Count For lngI = 1 To lngCount clnfrmName.Remove 1 Next intCounterOpenForm = 0 xPos = 0 yPos = 0 End Function كنت اتمنى تطوير اخراج الفكرة بشكل عملى اكثر حتى لا يرتبط الكود باسم النموذج على ان يكون كود مرن ويتم استدعاءه بالشكل التالى OpenAForm("اسم النموذج المراد فتحه اكثر من مرة") ولكن عجزت بصراحة فى هذا السطر Set frm = New Form_frmInvoice Open Form more than once.accdb

وفى هذا الموضوع تجد اجابة هذا السؤال باستفاضة

سوى الاعدادات كما بالصورة

استخدم الكود الاتى Private Sub Form_Close() On Error GoTo QuitApp_Err DoCmd.Quit acSave QuitApp_Exit: Exit Sub QuitApp_Err: MsgBox Error$ Resume QuitApp_Exit End Sub

اتفضل 1437.موسسة1 V2.accdb