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

ما باقي بالعمر الكثير ...... وانا بدعبس بملفاتي حصلت مجموعة برمجيات كنت سويتها سابقاً منها هذا المرفق وهو يعمل لدي أحد أصدقائي وللحين مابه مشاكل .. باسوورد تحديث الجداول (1001) وباسوورد الوحدات النمطية أو الشفت (tariq1991) .... أنا برفق الفولدر كامل . القاعدة (WaitingMain 2010) بحجرة التسجيل . القاعدة (Role_CheckUp) بحجرة الكشف العام . القاعدة (Role_Consultation) بحجرة الاستشارات . القاعدة (Role_MedicalAnalytics) بحجرة العلاج الطبيعي . القاعدة (Role_Pharmacy) بالصيدلية . القاعدة (Role_Physiotherapy) بمعمل التحاليل . القاعدة (Role_Radiology) بحجرة الاشعة . .القاعدة (Role_Surgery) بحجرة العمليات . ولابد كل القواعد على شبكة واحده لأن الكل مرتبط بحجرة التسجيل . . واي استفسار أو طلب أنا حاضر . Khalifa Hospital.rar

أطال الله بقاءك ومتعك بالصحة ، وختم لنا ولكم بالصالحات

يبدوا حصل التباس من صاحب الموضوع .. ولأن العمل لم يكتمل بعد تم ازالة تأكيد الحصول عل الاجابة ..

1-في البرنامج الجديد المعتمد على النت يتم استيراد نموذج الحضور من النسخة السابقة .. ويتم تسميتها بما يدل عليها 2- اضافة زر في الشاشة الرئيسية تحت زر الحضور الموجود ونسميه مثلا التوقيع او التحضير المحلي 3- في حدث النقر على الزر لفتح النموذج المحلي نضع شرط ادخال كلمة مرور ..................... عندما ينقطع النت ويمتنع التوقيع يغلق النموذج ويفتح النموذج المحلي اعتقد ان العملية بسيطة وسهلة .. صح ؟ ام لديك فكرة اخرى للتنفيذ ؟

هل هذا ما تريده ؟ Database2.rar

نعم فكرت وطلعت النتيجة قبل ردك استاذ ولكن خلاف ماتفضلت به انت تصحيحي كان If Loan_ID > 0 Then If t = "Cridi" Then s = DSum("[Payment_Made]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And month([Payment_Month])=" & M & " And Year([Payment_Month])=" & Y & " And [Loan_Type]='Cridi'") End If If t = "Elec" Then s = DSum("[Payment_Made]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And month([Payment_Month])=" & M & " And Year([Payment_Month])=" & Y & " And [Loan_Type]='Elec'") End If If t = "Inkhirat" Then s = DSum("[Payment_Made]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And month([Payment_Month])=" & M & " And Year([Payment_Month])=" & Y & " And [Loan_Type]='Inkhirat'") End If Else If Loan_ID < 0 Then If t = "ErrVerment" Then s = DSum("[Payment_Made]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And month([Payment_Month])=" & M & " And Year([Payment_Month])=" & Y & "And [Loan_Type]='ErrVerment'") End If End If End If علما ان الانخراط حاليا بدون مبلغ فلو افترضنا ان به مبلغ لاختلط الامر من جديد فتعديلك كان حلا وسدا لجميع الثغرات في المستقبل عموما بارك الله فيكما وربي مايحرمنا من فضلكم وعطائكم الغير محدود

الاستاذ منتصر وجهك الى مكان الخلل فالمفترض انك تحاول تفكر وتغير طيب كما اشار استاذنا بالضبط .. غير فقط السطرين المشار اليهما : الاول بهذا : If Loan_ID > 0 Then والثاني بهذا ElseIf Loan_ID <= 0 Then مشكلة دفع2.rar

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

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

Microsoft Access 2019 Programming by Example with VBA, XML, and ASP https://www.mediafire.com/file/ommdwpjia97lgrq/Microsoft+Access+2019+Programming+by+Example+with+VBA,+XML,+and+ASP.pdf/file

السلام عليكم بعض الكتب المهمة في مجال برمجة الاكسيس 1-https://www.mediafire.com/file/t8ja3t1t3og4hgf/Mastering__Access_2007_Development.pdf/file Mastering Access 2007 Development 2-https://www.mediafire.com/file/2nk78jlfnhdde8s/Microsoft_Access_2010_VBA_Programming_Inside_Out_-_A._Couch_%28Microsoft%2C_2011%29_BBS.pdf/file Microsoft Access 2010 VBA Programming Inside Out 3-https://www.mediafire.com/file/gnxslmgsuepdr6o/Professional_Access_2013_Programming.pdf/file Professional Access 2013 Programming

من مقتنياتي : Microsoft Access 2010 Bible https://drive.google.com/file/d/1ccVfMNH4xnGQLctqcMyObKG23JYiQ2yb/view?usp=sharing وفي المرفقات : الدوال الخاصة ببرنامج الآكسس.doc VBANotesForProfessionals.pdf 🙂

وعليكم السلام ورحمة الله تعالى وبركاته تحويل الورقة بالكامل الى لغة عربية دون تغير لغة الجهاز -v3 .xlsb

1) أولا يسعدنا أخي @saad abed أننا إستطعنا مساعدتك 2) نعم إلغاء الرسائل وتحديث الشاشة يسرع الكود بشكل كبير Sub SupApp(ByVal disable As Boolean) With Application If disable Then .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False .Calculation = xlCalculationManual Else .ScreenUpdating = True .EnableEvents = True .DisplayAlerts = True .Calculation = xlCalculationAutomatic End If End With End Sub وقد تم تطبيق ذلك في الكود باستخدام SupApp(True) لأنها توقف التحديث البصري للشاشة وتمنع ظهور رسائل التنبيه مثل هل تريد حفظ التغييرات؟ وتوقف الأحداث البرمجية مثل الأكواد المرتبطة بفتح الملفات وكدالك تعطل إعادة الحساب التلقائي للصيغ هذا ما يحسن من سرعة الكود ويقلل من وقت تنفيذ العمليات بشكل ملحوظ خاصة عند معالجة عدد كبير من الملفات

مش فاهم تمت الاجابة للبرنامج أم لمن !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!