ابو جودي

مبارك عليك استاذي @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

جرب عمل الاتى فى خصائص التقارير pop up=yes , modal=yes

اين المرفق

السلام عليكم ورحمة الله وبركاته مشاركة مع اساتذتى الافاضل كنا قد تطرقنا الى موضو ع شبيه لذلك وهذا >---->> رابط الموضوع واليكم المرفق بتطبيق الكود من الموضوع الذى تم التنويه عنه بعاليه والشرح تفصيلا موضوح بالموضوع مدة عمل الموظف.accdb

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

صح استاذى الجليل ومعلمى القدير 👍 اى اهم شئ جودة السبك

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

اولا ضع الكود الاتى فى وحدة نمطية Public Function ChnageDateFormat(Optional dtDateFormat As String = "dd/MM/yyyy") Shell "cmd.exe /c REG ADD ""HKEY_CURRENT_USER\Control Panel\International"" /v sShortDate /d """ & dtDateFormat & """ /F", vbHide End Function ثانيا طبق الكود الاتى بعد اسنخدام الاداة فى قاعدتك التى اشرت اليها بذلك تتخطى عقبة تنسيق التاريخ ChnageDateFormat() --------------------------------- فى حالة اردتم تغيير التنسيق الى تنسيق أخر مثلا yyyy/MM/dd ChnageDateFormat("yyyy/MM/dd") ملاحظة الحرف M الدال على تسيق الشهر لابد ان يكون Capital Letter اى يكتب كبير M وليس صغير مثل m

ههههههه مجانا لا ........... كده احمل بدون تقكير

انت تأمر يا دكتور إتفضل شوف فى المرفق النموذج اللى باسم frmOptionGroup ( √ ) أو ( x ) - الفرز -علامة.mdb

وعليكم السلام فعلا طريفة مميزة ولكن ليست جديدة