اذهب الي المحتوي
أوفيسنا

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

  1. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      4

    • Posts

      6,503


  2. SEMO.Pa3x

    SEMO.Pa3x

    الخبراء


    • نقاط

      4

    • Posts

      535


  3. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      3

    • Posts

      9,724


  4. أ / محمد صالح

    أ / محمد صالح

    أوفيسنا


    • نقاط

      3

    • Posts

      4,357


Popular Content

Showing content with the highest reputation on 02 يول, 2021 in all areas

  1. السلام عليكم ورحمة الله وبركاته.. اقدم لكم النسخة الثانية من برنامج ادارة عيادة الطبيب.. تم تطبيق أغلب ملاحظاتكم وأقتراحاتكم في النسخة السابقة النسخة تجريبية تغلق بعد فترة الغرض من طرحها لمعالجة العيوب والأخطاء لكي يتم طرحها فيما بعد.. الرجاء منكم ابداء ملاحظاتكم واقتراحاتكم واضافاتكم وهل النسخة تحتوي على أخطاء؟ لكي اقوم بتحسين النسخة القادمة كلمة المرور لفتح البرنامج = 313 المميزات الحالية: 1- التصميم responsive يدعم جميع الشاشات الكبيرة والصغيرة 2- طباعة الوصفة الطبية 3- اضافة الادوية ومجاميعها والملاحظات 4- تسجيل بيانات المريض والحجوزات 5- تسجيل المصروفات 6- تعديل الاعدادات 7- اضافة نوع الحجز: * فحص = لإضافة الادوية للمريض * استشارة = لإرسال استشارة لطبيب آخر * دخول = لإرسال المريض الى المستشفى تصحيحات كثيرة وتعديل لأخطاء كثيرة قمت بها مع اضافة المزيد من الشروط لحصر وتقليل الأخطاء، شكرا لكل شخص ابدى رأيه وملاحظاته في النسخة السابقة، وايضا أنتضر ملاحظاتكم في هذه النسخة مع الشكر والتقدير doctor.rar
    2 points
  2. تفضل مشاركة مع مروض الاكسس @ابا جودى New1.accdb
    2 points
  3. وهناك طريقة امساك مفتاح الشفت والدخول في البرنامج 🙂 الملاحظات اللي طلبها الدكتور حسنين ، هي ملاحظات مستخدم الاكسس العادي ، مثلي ، عن طريقة استخدام التطبيق😁 بس ملاحظات اخوي خالد تتكلم عن مستوى آخر ، او البُعد التالي ، لأنه خلاص اعطى ملاحظاته "العادية" في موضوع الاصدار الاول 🙂 انا شخصيا لا اريد لهذه المناقشة التوقف عند "نعم يصير" او "لا ما يصير" ، فنحن نريد ان نتعلم طرق سد هذه الثغرات من هامتين ارسلهم لنا الله سبحانه وتعالى من "البُعد الآخر" ، فأنتم الاثنين تتكلمون نفس اللغة (طبعا الدكتور حسنين واخوي خالد فاهميني) 🙂 جعفر
    2 points
  4. السلام عليكم أولا نشكركم و نثمن وجودكم معنا فى منتدى أوفيسنا ، الآن تعدى عدد أعضاء المنتدى 190 الف عضو ، و تعدى عدد المشاركات 590 ألف مشاركة و أصبح الموقع قاعدة بيانات ثرية لمن يرغب فى تعلم الاوفيس و تبادل المعلومات و الخبرات فيما يتعلق بالاوفيس على مختلف مستويات الاحتراف لاستخدام تطبيقات الافيس و برمجتها. و عليه نشكر كل من ساهم و يساهم ممن يقتطعون من وقتهم و جهدهم فى سبيل نشر العلم و مشاركة المعرفة و مساعدة الآخرين سواء كانوا معنا او غابوا عنا وبقت اعمالهم ننهل منها جميعا لنزداد علما و معرفة. و نسأل الله أن يجعله فى ميزان حسناتهم يوم لا ينفع مال ولا بنون. فلا يسعنا أن نوفيهم شكر ما قدموا ومازالوا يقدمون. كما تعلمون تتركز أغلب المشاركات فى الموقع فى أقسام الأوفيس الرئيسية ، و نرى فى هذه المرحلة تشجيع الجميع على التواجد وتبادل المعرفة فى الاقسام المتعلفة بادارة المشاريع و المرونة و البحث العملي و تطبيقات البيانات الضخمة و الذكاء الاصطناعي وهي أقسام يقل عدد روادها و مشاركاتها بصورة كبيرة مقارنة باقسام الاوفيس ، كما يقل عمرها ايضا كثيرا عن أقسام الاوفيس، فبعض هذه الأقسام قد افتتح مؤخرا بينما تعدي عمر بعض اقسام الاوفيس الرئيسية ثمانية عشر عاما واصبحت ثرية بالعلم و مازالت تطرح الجديد فى كل يوم بفضل عطاءكم و مشاركتكم. وسبب هذه الدعوة للمشاركة وهو نفس سبب افتتاح هذه الافسام الجديدة، هو رغبنا فى تقديم ما فيه الفائدة لأعضاء المنتدى، فهذه المواضيع قد إزدادت أهميتها بدرجة كبيرة، و من المتوقع بحسب العديد من الدراسات أن تزيد أهميتها كثيرا فى الفترة القادمة على المستوى المهني وستصبح أساسية للتطوير الذاتي أيا كان مجال عملك. وكما جرت العادة للأسف، فالمحتوى العلملي المتاح بالانجليزية فى هذه المواضيع يتعدى المحتوى المتاح باللغة العربية بصورة كبيرة ، و عليه باذن الله سنعمل سويا على اتاحة ما هو مفيد فى هذه الاقسام لتبادل المعرفة وتحقيق القائدة المرجوة. تم افتتاح قسمين جديدن حديثا ضمن أقسام ادارة المشاريع و هما قسمي (الاستراتيجية و ادارة محافظ المشاريع) و الذي افتتح من ايام قلائل و قسم مخصص لاطار (السيف (SAFe) و المتعلق بتطبيق المرونة على مستوى المؤسسات Scaled Agile Framework و الذي افتتح أمس فقط الأقسام الجديدة كما اعتدنا لا يتم النشر بها مباشرة و لكن يتم النشر بعد اعتماد المشاركات من المشرفين ، فستظهر المشاركات بعد اعتمادها، و بعد فترة باذن الله سيتم فتح النشر المباشر مثل باقي اللأقسام بعدما يعتاد المشاركين فى هذه الأقسام على نظام الموقع. فى انتظار مشاركاتكم و تفاعلكم جميعا مع تحيات فريق الموقع www.officena.net
    1 point
  5. العفو منكم استاذى الجليل ومعلمى القدير ... اذا حضر الماء بطل التيمم
    1 point
  6. 1 point
  7. طيب بص اولا انا لم اقم بعمل فلتر على النموذج حتى افتح التقرير يكفينى فقط الوقوف على السنة المراد عمل الفلتر لها والضغط على زر الامر لفتح التقرير ولانى الان لا املك طابعة هذا هو المخرج بعد استخدام طابعة pdf وطبعا وجب التنبيه لانى تسرعت ان كان الفلتر متعدد لاكثر من قيمة لن تعمل تلك الطريقة ولذلك طريقة استاذى الجليل ومعلمى الاستاذ @kanory افضل اجابة Filters.pdf
    1 point
  8. وهذه طريقة ثانية بعد كوب القهوة ..... ‏‏New1 - Kan.accdb
    1 point
  9. الشكر لله حبيبي لا تنساني من دعواتك الطيبة
    1 point
  10. الله يفتح عليك حذفت الصفر فعلا وخليت الخلية TEXT وظبطت معايا الف الف مليون شكر ا/محمد صالح
    1 point
  11. اهلا اخي الكريم، شاكر لك كرمك لتجربتك برنامجي وابداء الملاحظات.. الحقيقة انا لست قلق من أمر التعديل والصلاحيات وغيره، ذكرت سابقا النسخة ليست كاملة كما انني متأكد انه لا يوجد مايكفي من الخبرات على الأقل هنا لكسر تشفير accde جميع العمليات التي تتم من حذف وتعديل واضافة كلها عن طريق الكود ومحددة بشروط لذلك لا احد يستطيع قراءة الأكواد والتعديل عليها، بالاضافة الى ان النسخة التي لدي تكون صلاحياتها محددة بالكود ولا يمكن تعديل صلاحيات اليوزر إلا عن طريق المبرمج فقط! بالاضافة الى ان النسخة التي سأعطيها للعميل محمية على رقم الهارد ومسجلة من داخل محرر الـ VBA بدون اللجوء للجداول لانها مكشوفة ومعرضة للتعديل وأذا اردت تعقيد الأمر أكثر، سأجعل البرنامج لا يعمل الا بعد تخطيك لفورم الدخول لانها سيكتب قيمة runtime ويتم التحقق منها عند فتح اي فورم اذا كانت True يفتح, العكس يغلق البرنامج تحياتي لك
    1 point
  12. وعليكم السلام 🙂 مشاركة مع اخي الاستاذ محمد 🙂 عليك بإصطياد الخطأ ، ومعالجته 🙂 هذا الموضوع سيفيدك: جعفر
    1 point
  13. جرب هذه المعادلة في D2 =INDEX(codes!B$2:B$30, MATCH(INT(MID(B2, 8, 2)), codes!A$2:A$30,0)) بالتوفيق
    1 point
  14. عن اذن استاذنا ...هل هذا ماتريده ؟ timer.accdb
    1 point
  15. في حدث الـ Form_Timer Private Sub Form_Timer() ClockNow = Time If Format(Now(), "hh") <= 12 Then txt_DayNight = "صباح الخير" Else txt_DayNight = "مساء الخير" End If txt_currentDate = Format(Date, "dddd") & ", " & Day(Date) & " " & Format(Date, "mmmm") & ", " & Year(Date) End Sub وإجعل التايمر = 1000 أي ثانية واحدة
    1 point
  16. تفضل هذا التعديل اولاً / في رأس الصفحة ضع الأوامر التالية Option Compare Database Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ثانيا / انسخ الكود ادناه و ضعه في حدث الأزرار عند النقر On Error GoTo ErrH Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) DoCmd.RunSQL "CREATE TABLE Backup (Backup_NO INT , Backup_Name VARCHAR (50) , Backup_Path VARCHAR (100), Backup_Date Date);" End If Dim MyFile, DstFile As String Dim Syso As Object MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & "-" & Format(Now, "hh-nn-ss") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" Dim db As DAO.Database Dim MaxBackup_NO As Integer MaxBackup_NO = Nz(DMax("[Backup_NO]", "[Backup]"), 0) + 1 Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Backup") With rs .AddNew ![Backup_NO] = MaxBackup_NO ![Backup_Name] = Format(Now, "dd-mm-yyyy") & "-" & Format(Now, "hh-nn-ss") ![Backup_Path] = DstFile ![Backup_Date] = Now() .Update End With rs.Close Set rs = Nothing '================================= Dim ShellApplication As Object Dim CurrentProjectFile As String Dim ZipPath As String Dim ZipName As String Dim ZipFile As String Dim FileNumber As Integer CurrentProjectFile = DstFile ZipPath = CurrentProject.Path & "\Backup\BackupZip" & Format(Now, " yyyy-mm-dd hh.nn.ss") & "\" ZipName = "Backup.zip" ZipFile = ZipPath & ZipName If Dir(ZipPath, vbDirectory) = "" Then MkDir ZipPath End If FileNumber = FreeFile Open ZipFile For Output As #FileNumber Print #FileNumber, Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, vbNullChar) Close #FileNumber Set ShellApplication = CreateObject("Shell.Application") With ShellApplication Debug.Print Timer, "zipping started ..." .Namespace(CVar(ZipFile)).CopyHere CVar(CurrentProjectFile) On Error Resume Next Do Until .Namespace(CVar(ZipFile)).Items.Count = 1 Sleep 100 Debug.Print " ."; Loop Debug.Print On Error GoTo 0 Debug.Print Timer, "zipping finished." End With Set ShellApplication = Nothing Kill DstFile '========================================== MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select
    1 point
  17. تفضل التعديل 2دائن و مدين.zip
    1 point
  18. السلام عليكم بمعنى أنك تريد الاحتفاظ بصفحة واحدة لجدول الحراسة (نموذج) وبمجرد تغيير اليوم والفترة من القوائم المنسدلة، يتم جلب قائمة الحراس لكل القاعات في هذا اليوم والفترة... إذا كان كذلك فقد قمت بذلك في ملفي المرفق أعلاه وينقصه فقط قائمة الحراس الاحتياطيين وتعديل تاريخ يوم الامتحان حسب تاريخ بداية الامتحان المحجوز في ورقة "بيانات المركز"... إذا وافقك هذا الملف أضفت لك معادلات جلب قائمة الحراس الاحتياطيين حسب اليوم والفترة مع تعديل تاريخ اليوم، ويكون كل ذلك بطريقة أوتوماتيكية حسب اختيارك لليوم والفترة من القوائم المنسدلة... والله أعلى وأعلم
    1 point
  19. الحقيقة عمل @د.كاف يار رائع ماشاء الله ولكون هذا الموقع تعليمي فاذا تسمحوا لي اعتقد ان هناك خطأ في الرصيد او انني لم افهم المطلوب بشكل صحيح نتيجة استاذنا الفاضل حسين الدائن المدين الرصيد 0 100 0 150 0 150 0 150 300 100 0 100 222 0 222 في العملية الاولى دائن 0 مدين 100 الرصيد يكون -100 في الثانية دائن 150 ومدين 0 ولكن لدينا مدين 100 من العملية الاولى قيكون الرصيد في العملية الثانية 150-(-100)=50 وهكذا ليصبح الرصيد لكل العمليات 👇 دائن مدين الرصيد 0.00 100.00 -100 150.00 0.00 50 0.00 150.00 -100 100.00 0.00 0 222.00 0.00 222 انا لست محاسب ولا احب عمل المحاسبة فان كان رأيي جانب الصواب فاعتذر مقدما
    1 point
  20. السلام عليكم حتى الآن لم أفهم المطلوب جيدا... أرجو المزيد من الشرح بأمثلة يدويا (النتيجة المرتقبة)...
    1 point
  21. السلام عليكم هل ما تريده موجود في الملف المرفق؟ بن علية حاجي جدول الحراسة 2022.xlsm
    1 point
  22. على حد علمي ، هو ممكن لكن مش ممكن بمعنى: هناك طريقة تنجح نظرياً فتقوم قاعدة البيانات بتغيير اسمها عند الخروج لكن : لا يمكن أن تقوم قاعدة البيانات بتغيير اسمها أثناء فتحها سواء خرجت أو دخلت ، حتى لو أصبحت القاعدة قائمة أو راقدة والطريقة المقترحة أن قاعدة البيانات تقتل نفسها عن طريق قيامها بعمل : 1 - نسخة منها بالاسم الذي تريده سواء من قيمة حقل أو خلافه. 2 - ملف يقوم بحذف النسخة القديمة ويتم تشغيله في زر الخروج. طبعا طريقة انشاء نسخة باسم جديد ستجد ذلك في المنتدى
    1 point
  23. الأخ الكريم qutubsi الأمر لا يحتاج إلى محاولات فقط تحويل الجداول إلى نطاقات وكما هو مكتوب في التعليمات المترجمة: تقوم بتحديد الجدول الموجود في sheet3 في الخلابا العمودين A & B سيظهر تبويب جديد اسمه تصميم الجدول design احتر تحويل إلى نطاق convert to range ويوجد جدول آخر في نفس الشيت في الخلايا D1:E24 كرر معه نفس الخطوات وستعمل معك المشاركة بإذن الله
    1 point
  24. بعد البحث عن سبب المشكلة التي ظهرت لدي وبعد تنبيهي من أخي أبي جودي هنا ظهر معي الخلل بهذا الكود المستخدم في فتح البرنامج With accessApp .Visible = True .UserControl = True .RunCommand acCmdAppMaximize DoCmd.RunCommand acCmdAppMaximize Set db = .DBEngine.OpenDatabase(strPathAppDB, False, False, ";PWD=" & strPasswordDB) .OpenCurrentDatabase strPathAppDB End With وقد قمت بتعديل الكود بهذا الشكل وانتهت المشكلة بفضل الله تعلي With accessApp .Visible = True .UserControl = True .RunCommand acCmdAppMaximize .OpenCurrentDatabase strPathAppDB, False, strPasswordDB End With وجزاكم الله عنا خيرا
    1 point
  25. شكرا استاذي ولاكن يظهر التقرير بعد الطباعة سجل واحد فقط مع فائق الشكر والاحترام
    0 points
  26. السلام عليكم - حياكم الله ممكن معادلة لاستقطاع مبلغ مرة واحدة كل شهر من كل رقم استقطاع مبلغ مرة واحدة كل شهر.xlsx
    0 points
  27. السلام عليكم ورحمة الله بالنسبة لطلبك الجديد في الموضوع أعلاه، تم عمل ذلك في الملف المرفق بمعية معادلة صفيف أرجو أن تفي الغرض المطلوب... بن علية حاجي استقطاع مبلغ مرة واحدة كل شهر.xlsx
    0 points
  28. اخى الفاضل بن علية حاجى السلام عليكم ورحمة الله جزاكم الله كل خير عمل رائع اريد مطلوب اخر فى ملف الاخ عبد الله صباح وهو : اريد الخصم يكون من اخر تاريخ فى الشهر وليس فى اوله نفعنا الله من علمك
    0 points
  29. السلام عليكم ورحمة الله تفضل الملف المرفق لعل فيه ما تريد... بن علية حاجي استقطاع مبلغ مرة واحدة كل شهر.xlsx
    0 points
×
×
  • اضف...

Important Information