كل الانشطه

استاذ @طير البحر مشكور وبارك الله فيك هدية مقبولة . وفقك الله .

اخي 😭 انا الان في نفس موقفك وفي نفس المشروع اذا عند نسخة من المشروع او فكرة او اي شي يساعد انا محتاج مسا عدتك وشكرا اخوك من اليمن

يوجد لدي ثلاثة جداول الاطباء والمرضى والمواعيد باسم (Appointment) في اكسس 2016 جدول الاطباء يحتوي البيانات الاساسيه وايضا وقت الدوام والانتهاء ب الساعات مثلا من الساعه 8 ص الي 6 مساء وجدول المواعيد يجود فيه ساعه الموعد وتاريخ الموعد وقمت بإنشاء نموذج للموظفين ونموذج للمرضى واستعلام لجميع بيانات المواعيد والمرضى باسم (therapist_appointments) وقمت بعمل نموذج للمواعيد. بطريقه عرض عناصر متعددة بشرط تاريخ الموعد وزر للحذف وزر للطباعه باسم (Appointment) وقمت بإنشاء نموذج اخر للمواعيد بأسم therapist_FRMمصدر بياناته استعلام داخلي فيه من جدول الموظفين اسم ورقم الموظف ووقت البدايه والنهايه للدوام. وتم اضافة جميع عناصر الاستعلام الي النموذج therapist_FRM ومن اداه اختيار اسم طبيب والاداه باسم (Therapist_ID) بعدما يتم اختيار طبيب يوحد كود بعد التحديث لهذا الاداة وهو. Private Sub Therapist_id_AfterUpdate() Dim rs As Object Dim strcriteria As String strcriteria = InputBox("Enter Therapist ID") strcriteria = Me.Therapist_ID If strcriteria > "" Then Set rs = Me.RecordsetClone With rs.FindFirst "[Therapist_ID] like " & strcriteria & "* " If .NoMatch Then MsgBox "incorrect date, please enter the right ID for the Therapist", vbExclamation, "Not Found" Else Me.Bookmark = .Bookmark End If End With Set rs = Nothing End If Me.Therapist_ID.Enabled = False Me.Command51.Visible = True End Sub يتم اختيار تاريخ. وعند اختيار الوقت يقوم بعمل دوارة حسب بدايه ونهايه الدوام بعد اختيار الوقت يتم اضافة اسم الطبيب والتاريخ والوقت الي النموذج الفرعي Appointment وبعدها اختيار اسم المريض بعد الاختيار يقوم ب المقارنه اذا لم يوجد سجل مشابه في جدول المواعيد وبعدها قمت بإضافة النموذج المواعيد كنموذج فرعي . الذي اسمه (Appointment)الي نموذج therapist_FRM وايضا قمت بعمل مربع نص لاختيار التاريخ باسم (app_date) ومربع سرد وتحرير لاختيار. الوقت باسم (app_time) طبعا لايوجد لهم مصدر عنصر التحكم لمربع الوقت والتاريخ كود. عند الادخال في مربع تحرير وسرد لعرض الوقت هو Private Sub app_time_Enter() On Error Resume Next Dim i As Date, n As Integer, oRS As DAO.Recordset, sSQL As String Dim dLowerbreak As Date, dUpperBreak As Date, dDuration As Date Dim dLowerPrecision As Date, dUpperPrecision As Date app_time.RowSourceType = "Value List" app_time.RowSource = "" If IsNull(start) Then Exit Sub Else i = start If Me.NewRecord = True Then DoCmd.RunCommand acCmdSaveRecord End If sSQL = "SELECT Therapist_ID, Dateofsession, Timeofsession" sSQL = sSQL & " FROM therapist_appointments" sSQL = sSQL & " WHERE Therapist_ID= " & Me.Therapist_ID & _ " AND Dateofsession= #" & Me.app_date & "#" Set oRS = CurrentDb.OpenRecordset(sSQL) dDuration = TimeValue("00:30") dLowerbreak = txtEnd - TimeValue("00:00") Break is a field dUpperBreak = txtEnd + TimeValue("00:00") If oRS.RecordCount = 0 Then Do If i <= dLowerbreak Or i >= dUpperBreak Then app_time.AddItem i End If i = i + dDuration Loop Until i >= txtEnd Else Do If i <= dLowerbreak Or i >= dUpperBreak Then dLowerPrecision = i - TimeValue("00:00:05") dUpperPrecision = i + TimeValue("00:00:05") oRS.FindFirst "[Timeofsession] Between #" & dLowerPrecision & "# And #" & dUpperPrecision & "#" If oRS.NoMatch Then app_time.AddItem i End If i = i + dDuration Loop Until i >= txtEnd End If oRS.Close End Sub وكود بعد التحديث لنفس الاداء هو. Private Sub app_time_AfterUpdate() On Error Resume Next Me.Appointment.Locked = False Me.Appointment.Form!patient_ID.Locked = False Appointment.SetFocus DoCmd.GoToControl "Timeofsession" DoCmd.GoToRecord , , acNewRec Appointment.Form.Controls("Timeofsession") = Me.app_time Appointment.Form.Controls("dateofsession") = Me.app_date Appointment.Form.Controls("Patient_ID").SetFocus Appointment.Form.Controls("Patient_ID").Dropdown End Sub وقمت بعمل كود في النموذج المواعيد الفرعي (Appointment ) في اداة سرد وتحرير لاختيار اسم المريض والتي اسمها (Patient_ID) في حدث بعد التحديث يقوم بمقارنه الوقت التاريخ الجديد اذا لم يوجد سجل او سجلات مشابه للتاريخ والوقت يظهر ان الموعد محجوز الكود هو Private Sub Patient_ID_AfterUpdate() If DLookup("Dateofsession", "Appointment", "Timeofsession=" & Forms!therapist_frm.Form!Appointment!Timeofsession & "And Therapist_ID=" & Forms!therapist_frm.Form!Appointment!Therapist_ID & "") = Me.Dateofsession And DLookup("Patient_ID", "Appointment", "Timeofsession=" & Forms!therapist_frm.Form!Appointment!Timeofsession & "And Therapist_ID=" & Forms!therapist_frm.Form!Appointment!Therapist_ID & "") <> Me.patient_ID Then MsgBox "this time is taken", vbCritical, "Wrong time" DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Else MsgBox "Appointment saved" End If End Sub المشكله يمكن تكرار اكثر من موعد بنفس التاريخ والوقت https://drive.google.com/file/d/1HM3jw5uOuNxGyzwDEHqPkttLsCTeQlMv/view?usp=drivesdk

جزاك الله خير الجزاء يا غالي

شكرا جزيلا.. لعبة البادل

يعطيك الف عافية بادل

شكرا جزيلا.. بادل

شكرا على المشاركة.. لعبة بادل

جميل شكرا.. لعبة بادل

استاذ @soik225998 تفضل المرفق والشرح بعد التعديل.اضغط على الاسم بالصب فورم (البيانات)........ اذا كان هذا طلبك لا تنسى الضغط على افضل اجابة . ملحوظة : انا مسحت بعض الصور نظراً لكبر حجمها حتي يمكن رفع البرنامج . تجريبي_3-1.rar

اخواني الأعزاء بعد السلام ورحمة الله وبركاته معلش أنا بتعبكم معاي كثيرا مرفق ملف به نموذج لعمل ترحيل للصفوف والقوائم لكن به مشكلتين : عند استدعاء الصفوف في التقرير كلهم تمام ماعدا الصف السادس ( يظهر في اول صف ولد وبعدها يأتي البنات ثم باقي الأولاد ) ونفس النظام عند استدعاء القوائم ما حل هذه المشكلة ؟ المشكلة الثانية عايز لما استدعي الصف يكتب في اعلي التقرير ( بيانات الصف كذا ) وكدذلك عند استدعاء القوائم يكتب في أعلي التقرير ( قائمة فصل كذا مثلا ( 3/1 ) ولكم جزيل الشكرNew Microsoft3.rar

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

والله يا أخي هحاول افصل حاجات من الملف وهرسله لحضرتك وشكرا جزيلا لمجهوداتكم

اخى kkhalifa1960 جزاك الله خير هذا عمل رائع وإضافة جميل وتعلمتها منها الكثير .. وأسف جداً على الإطالة ولكن المطلوب عند الضغط على الأسم تظهر الصورة الخاصة بالشخص

الدالة، تتطلب النص وترتيب الدرجة في النص 1 للأول 2 للثاني: Option Explicit Function GetDeg(ByVal inText As String, DegSeq As Byte) As Variant Dim Pos1 As Integer, Pos2 As Integer Dim Deg As Variant GetDeg = "" If DegSeq < 1 Or DegSeq > 2 Then Exit Function Do While InStr(1, inText, " ") > 0 inText = Replace(inText, " ", " ") Loop Pos2 = InStr(1, inText, " درج") If Pos2 = 0 Then Exit Function If DegSeq = 2 Then Pos2 = InStr(Pos2 + 1, inText, " درج") If Pos2 = 0 Then Exit Function End If Pos1 = InStrRev(inText, " ", Pos2 - 1) If Pos1 > 0 And Pos2 > 0 Then Deg = Mid(inText, Pos1 + 1, Pos2 - Pos1 - 1) End If If IsNumeric(Deg) Then GetDeg = Val(Deg) End Function ضفه في ملفك أو انشئ ملف جديد ووحدة نمطية جديدة والصق الشفرة/الكود

استاذ @soik225998 اذا كان هذا طلبك لا تنسى الضغط على افضل اجابة .

اخي @2saad لاحظ انك غير مهتم بحل المشكلة رغم متابعة عدد كبير من الأساتذة في الردود وتعدد الحلول. وما زلت تسأل دون إرفاق ملفك الذي تعمل عليه . شكراً بالنيابة عن المتابعة.

شكرا لكم جميعا وبارك الله فيكم لس سؤال أخي عبدالقدوس 48 لما بفتح ملفك المرفق يأتي نموذج بالتقريب السؤال : كيف اطبق هذ الملف علي ملفي ؟

إذا كنت من مستخدمي Ultahost، فمن المحتمل أنك تواجه مشكلات تتعلق بخوادم الأسماء والتي يصعب عليك إصلاحها. إذًا، ما هي خوادم أسماء Ultahost؟ أو كيفية إعداد خوادم أسماء مخصصة وكيفية توجيهها إلى المجال؟ إليك بعض الشكوك ذات الصلة التي قد تكون لديك فيما يتعلق بـ Ultahost والتي سنناقشها في هذه المقالة. ما هي خوادم الأسماء UltaHost؟ يقوم Ultahost NameServers بترجمة أسماء النطاقات التي لا يتذكرها الإنسان إلى عناوين IP. من أجل تحديد موقع خوادم أسماء Ultahost، يحتاج المرء إلى اتباع الخطوات المذكورة. انتقل إلى منطقة عملاء Ultahost وقم بتسجيل الدخول إلى حسابك. أدخل التفاصيل الخاصة بك واضغط على تسجيل الدخول. عند تسجيل الدخول إلى حسابك، ستصل إلى لوحة التحكم حيث ستجد الخدمات التي اشتريتها ونطاقك والأنشطة الحديثة الأخرى التي تم تنفيذها في حسابك. ا نتقل إلى شريط القوائم المتوفرة في الزاوية اليسرى من الشاشة للضغط على خيار المجالات. أثناء الضغط على خيار المجالات، انقر فوق إدارة خيار DNS. عند النقر فوق ملف إدارة DNS الخيار ، اضغط على تحرير منطقة DNS خيار اسم المجال. أثناء النقر فوق ملف زر التحرير، يمكنك إيجاد خوادم أسماء Ultahost تحت مناطق DNS شرح. من خلال الإجراء المذكور أعلاه، يصبح تحديد موقع خوادم الأسماء في ultahost أمرًا سهلاً، مما يترك لنا الآن مهمة إعداد خادم الأسماء المخصص وتوجيهه إلى اسم المجال. كيفية إضافة اسم المجال إلى مدير DNS؟ انتقل إلى مدير DNS وانقر على + إضافة منطقة DNS خيار لإضافة اسم المجال. وبعد ذلك قم بكتابة اسم النطاق الخاص بك اسم منطقة DNS القسم وانقر على تؤكد الزر ثم سيتم إضافة المجال الخاص بك إلى مدير DNS. وفي الختام المعلومات المقدمة أعلاه، حول الجوانب الفنية المتعلقة بتحديد موقع خوادم الأسماء وتكوينها، هي معلومات حقيقية وتم اختبارها. إذا كانت لديك بعض التعليقات المتعلقة بهذه المقالة، فنحن ممتنون للغاية وسنبذل قصارى جهدنا أيضًا لتنفيذ التغييرات أيضًا

مرفق برنامج للمقابلات ( meeting ) مجزء الي : ملف البيانات به الجداول ملف الارسال وسيتم من خلاله ارسال البيانات ملف الاستقبال هو ملف الالحاق الذي سيستقبل فية البيانات وهو الملف الذي سيتم فيه المساعدة عند استقبال سجل تم الحاقة بالملف وتم الموافقة علية من خلال الرئيس يتم التأشير عليه وتلوينة بالون الاخضر واذا تم الرفض بالون الاحمر والانتظار بالون الاصفر meeting.rar

في مشاركتي ، ستجد ان الزر مسح يعمل بالوظيفتين الأول اذا كان JPG في الجملة الشرطية ، والثاني بعد Elsr لسحب سكانر PDF 😊 وغداً إن شاء الله سأرفق لك الجزء المتعلق بالصور فقط.

جزاك الله كل خير ، جاري التجربة 🤗

أ / محمد صالح عند محاولتي لتطبيقها بجدولي ظهرت مشكلة انها ليست معادلة ولا يمكن اضافتها.. هل يمكننك تعديلها لي وشكراااا امحفظتي.xlsx

جزاك الله خير اخي طارق

الأساتذة الأفاضل في هذا المنتدى المبارك بالمرفقات جدول موضح به حركة شراء وبيع اسهم كل شي تمام ولكن عند محاولتي تطبيق آلية احتساب العمولة في حالة الشراء او البيع لم استطع استكمال هذه الجزئية حسب الشرط هذا 👇🏼 : ﺑﺎﻟﻨﺴﺒﺔ ﻵﻟﯿﺔ ﺣﺴﺎب العمولة = عدد اﻻﺳﮭﻢ * 0.0199 ﺳﻨﺖ = ﻗﯿﻤﺔ اﻟﻌﻤﻮﻟﺔ ﺑﺤﺪ أدﻧﻰ 1.99$ وﺑﺤﺪ أﻋﻠﻰ 2.99% ﻣﻦ ﻗﯿﻤﺔ الصفقة . ارجو شاكرا لكم مساعدتي في هذه الجزئية وجزاكم الله كل خير . علما اتي وجدت تعليقا بخصوص هذا الموضوع في المنتدى لكن عند اضافته لايقبله ملف اكسل على انه معادلة هذه هي المعادلة ان امكن تعديلها او ارسال معادلة غيرها شاكرين لكم =IF(F8*0.0199<1.99,1.99,IF(F8*0.0199>=0.299*D8,0.299*D8,F4*0.0199)))) على اعتبار ان D8 قيمة الصفقة محفظتي.xlsx