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

وعليكم السلام تفضل أخي الكريم بحث فى كل الشيتات.xlsm

طيب شوف ده كده ..... ابسط مما تتخيل .... 12446-1 (2).accdb

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

السلام عليكم الكود بحاجة إلى النجمتين Like '*" & Me.[TextBox] & "*'"

أهلا بكم.. DLookup (Expr, Domain, Criteria) -- في معامل Expr: يمكن أن نستخدم Last First Count أو أي تابع من توابع أكسس أو تنشئ دالة تقوم بحساب أو فحص شئ ما. -- في معامل Criteria: يمكن أن نمرر إلى الحد الأيسر من المعيار أي من توابع أكسس مثل توابع التاريخ DateDiff أو Format أو Cstr. On Immediate Window ?Dlookup("UCase(First([Last Name]&', '&[First Name]))","Customers","City='Boston'") GRATACOS SOLSONA, ANTONIO ?Dlookup("UCase(Last([Last Name]&', '&[First Name]))","Customers","City='Boston'") AUTIER MICONI, CATHERINE ?Dlookup("'Count Records: '&Count([Last Name]&', '&[First Name])","Customers","City='Boston'") Count Records: 2

اخي ابا جودي شكرا لك لمرورك العطر و جمعة مباركة عليك و على الجميع بالنسبة لأماكن الأزرار فقط استخدمت Controls().Move لا اكثر و لا اقل مع تحديد الموضع و زيادة المسافة من الأعلى داخل الحلقة التكرارية Forms!Form1.Controls(mycomnd).Move

المثال موجود في الرابط وفي الدالة نفسها : 1. To find the last value, include DESC in the OrderClause, e.g.: ELookup("[Surname] & [FirstName]", "tblClient", , "ClientID DESC") 2. To find the lowest non-null value of a field, use the Criteria, e.g.: ELookup("ClientID", "tblClient", "Surname Is Not Null" , "Surname") جعفر

تفضل التعديل صلاحيات كاملة صلاحيات حسب الاختيار الدائن و المدين.zip

يعني الموضوع وقف في الاخر على (نجمتين) بس الحق عليه برضو .. لو حكالي من أولها كان أعطيته عشر نجوم بس يخلصني 😂

وهاد تعديل طفيف تنيسق شرطى انظر عندم عدم وجود نتيجة فى ال sCOR وعند التحديث للقيم وعند التركيز داخل الحقل وبما انك رجل منذ القدم معنا ياريت تختار افضل اجابة ليتم العلم انه تم الرد وتوصلت للنتيجة المطلوبة ولا يحتاج الى متابعة وو... Evaluation-HR- Final.zip

انت انضممت منذ 4 ساعات وعلمت وتيقنت جيدا ايضا ... ماشاء الله عليك ابشر ان شاء الله جارى عمل اللازم

Use the oval shapes from Insert tab > Illustrations > Shapes > Oval. Then use this code Don't forget to change the range to suit your range Sub Test() Dim x, c As Range, r As Long, y As Long, g As Long, b As Long Application.ScreenUpdating = False r = RGB(255, 0, 0): y = RGB(255, 255, 0) g = RGB(0, 176, 80): b = RGB(0, 112, 192) For Each c In Range("C8:F11") Set x = FindImage(c) If Not x Is Nothing Then If c.Value = 1 Then c.Font.Color = r: x.Fill.ForeColor.RGB = r ElseIf c.Value = 2 Then c.Font.Color = y: x.Fill.ForeColor.RGB = y ElseIf c.Value = 3 Then c.Font.Color = g: x.Fill.ForeColor.RGB = g ElseIf c.Value = 4 Then c.Font.Color = b: x.Fill.ForeColor.RGB = b End If End If Set x = Nothing Next c Application.ScreenUpdating = True End Sub Function FindImage(CellToCheck As Range) As Shape Dim wShape As Shape, addr addr = CellToCheck.Address For Each wShape In CellToCheck.Parent.Shapes If wShape.TopLeftCell.Address = addr Then Set FindImage = wShape: Exit Function Next wShape End Function

السلام عليكم استاذ شوقى مشاركه مع اخى واستاذى مهندس @Eng.Qassim جزاه الله خيرا واستكمالا للموضوع السابق بخصوص هذا الموضوع وبالنسبه للترقيم من والى حسب طلبك ثم يقوم منك بطلب تسلسل آخر وحسب ما فهمت من السؤال والاستيضاح الفعلى منك ع الرسائل زميلى العزيز فانه وكما وضحت لك الافضل انشاء جدول خاص بهذه الارقام ولكن دعنا من هذه النقطه الان وع حسب المشكله التى واجهتك بالنسبه للحذف وبعد توضيح انه لا يحبذ الحذف وانما ترك السجل مع وضع حقل من نوع (نعم ولا) للاستفاده منه على الاشاره بان هذا السجل ملغى ونستطيع الفرز عليه ع السجلات المطلوبه وليست الملغيه ولانه فى الوضع العملى اليدوى اذا تم استخراج ايصال برقم وتم الغاء هذا الايصال لا نقوم بقطع هذا الايصال ورميه ولكن نقوم بالتاشير عليه بانه ملغى ويترك مكانه او يدرج اصله مع الاستمارات والصوره تبقى بالدفتر ع حسب نوع العمل فقمت بادراج حقل YN وحقل Nots للملاحظات فالجدول T1 وقمت بادراج مربعى نص بالنموذج T1 وهما txtS و txtE لكتابه بدايه التسلسل ونهايته بالنسبه للقيم الموجوده بهذه الحقول قمت بوضعها فالقيمه الافتراضيه لمربعى النص يمكنك فالوضع الحالى تغيير هذه القيم للتجربه على اى قيم اخرى دون الدخول لوضع التصميم ولكنها لن تكون ثابته فى حاله اغلاق النموذج وفتحه ولهذا يجب انشاء الجدول لعدم الدخول كل مره لوضع التصميم ووضع القيم الجديده وايضا متى تم العمل بهذه الارقام وع حسب ما تريد معرفته وقمت بانشاء استعلام qry لفرز السجلات بناء على txtS و txtE Between [Forms]![T1]![txtS] And [Forms]![T1]![txtE] وقمت بادراج الكود التالى فى نفس الحدث السابق Private Sub Form_BeforeInsert(Cancel As Integer) 'Me.M = DLast("M", "T1", (DCount("*", "T1") Mod 50)) + 1 x = Nz(DMax("m", "qry"), 0) If Val(x) = 0 Then Me.M = Me.txtS ElseIf Val(x) >= Val(Me.txtE) Then MsgBox "برجاء ادخال ارقام القسيمه الجديده" DoCmd.CancelEvent Exit Sub Else Me.M = Val(x) + 1 End If DoCmd.RunCommand acCmdSaveRecord End Sub بالنسبه لخانه الالغاء عندما يتم التاشير عليها سيتم اخفاء السجل من النموذج مباشره اتركك الان مع المرفق للتجربه واذا فى استفسار اتفضل استاذ شوقى بالتوفيق ترقيم تلقائى_2.accdb

You can clear the coulmns D and column E and use the code to get the desired results Sub Test() Const t As Double = 50 With Range("E5") .Formula = "=C5*D5" .Offset(1).Resize(6).Formula = "=C6*D6+E5" End With With Range("D5") .Formula = "=RANDBETWEEN(1,INT(($A$1-SUM(C6:$C$11))/C5))" .Offset(1).Resize(4).Formula = "=RANDBETWEEN(1,INT(($A$1-SUM(C7:$C$11)-E5)/C6))" .Offset(5).Formula = "=RANDBETWEEN(IF($A$1-E9>" & t & "+(C10+C11),INT(($A$1-SUM(C11:$C$11)-E9-(" & t & "-C10))/C10),1),INT(($A$1-SUM(C11:$C$11)-E9)/C10))" .Offset(6).Formula = "=(A1-E10)/C11" End With With Range("D5:E11") .Value = .Value End With End Sub

استخدم هذا الكود مع تعديل مكان الرسائل يالاستعلام المطلوب ..... With Application.Forms For I = .Count - 1 To 0 Step -1 With .Item(I) If .Name <> "Main_Form" And .Name = "F1" Then MsgBox .Name ElseIf .Name <> "Main_Form" And .Name = "F2" Then MsgBox .Name End If End With Next I End With

بناء على طلب احد الاخوة شرح تفصيلى لدالة: DLookup Function الوصف-Description : ترجع الدالة DLookup قيمة حقل واحد إذا لم يكن هناك سجل يلبي المعايير أو إذا كان المجال لا يحتوي على أي سجلات، ترجع الدالة DLookup القيمة Null إذا كان هناك أكثر من حقل ترجع الدالة DLookup التكرار الأول لذلك يجب تحديد معايير تضمن أن تكون قيمة الحقل التي يتم إرجاعها بواسطة الدالة DLookup فريدة قد تحتاج إلى استخدام قيمة مفتاح أساسي للمعايير او قيمة فريدة للتأكد من أن الدالة DLookup ترجع قيمة فريدة بناء الجملة الدالة-Syntax DLookup : يختلف بناء الجملة الخاص بوظيفة DLookup الشكل العام البسيط لبناء الجملة يكون كالتالى DLookup("FieldName" , "TableName") وعندما نريد بناء جملة ترجع قيمة حقل من جدول بناء على قيمة محددة لابد ان يحتوى بناء الجملة على معيار الشكل العام لبناء الجملة كالتالى DLookup("FieldName" , "TableName" , "Criteria") و لابد من الاخذ فى الاعتبار انه سوف نعتمد فى بناء جملة DLookup من هذا النوع الذى يعتمد على معيار على نوع البيانات المستخدم فى هذا المعيار انواع البيانات المستخدمة فى المعيار هى لا تخرج عن الثلاث انواع الاتية (رقم - نص - تاريخ - Numeric - String - Date ) ودائما تلك الجزئية هى مصدر القلق والخطأ والتساؤل ولكى نبسطها DLookup("FieldName" , "TableName" , "Criteria = n") '|Numeric DLookup("FieldName" , "TableName" , "Criteria = 'S'") '|String DLookup("FieldName" , "TableName" , "Criteria = #D#") '|Date بكل بساطه فى بناء الجملة الرئيسي عندما نستخدم معيار يحتوى على نوع بيانات من النوع رقم فقط تم وضع علامة = بعد Criteria ثم الرقم بدون اى اضافات عندما نستخدم معيار يحتوى على نوع بيانات من النوع نص فقط تم وضع علامة = بعد Criteria ثم النص بين علامتين تنصيص مفرده ' عندما نستخدم معيار يحتوى على نوع بيانات من النوع تاريخ فقط تم وضع علامة = بعد Criteria ثم التاريخ بين علامتين هاش # يستخدم ما سبق عندما نكتب قيمة المعيار بطريقة مباشرة وعندما يكون المعيار مستمد من عنصر موجود اما حقل فى استعلام او مربع نص فى نموذج يكون بناء الجملة كالأتى DLookup("FieldName" , "TableName" , "Criteria =" & [ObjectName]) '|Numeric DLookup("FieldName" , "TableName" , "Criteria ='" & [ObjectName] & "'") '|String DLookup("FieldName" , "TableName" , "Criteria =#" & [ObjectName] & "#") '|Date ملاحظة هامة عند التعامل مع التاريخ لابد ان يكون تنسيق التاريخ فى المعيار على الطريقة الأمريكية mm/dd/yyyy -------------------------------------------------------------------------------------------------------------------------- وعندما يكون المعيار مستمد من متغير يتم اسناد قيمة المعيار اليه داخل محرر الأكواد يكون بناء الجملة كالأتى ولا ننسى عند التعامل مع التاريخ لابد ان يكون تنسيق التاريخ فى المعيار على الطريقة الأمريكية mm/dd/yyyy Dim MyVariable As String Dim stLinkCriteria As String MyVariable = 1 stLinkCriteria = "[FldCriteria]=" & MyVariable '|Numeric 'MyVariable = "Mahmoud" 'stLinkCriteria = "[FldCriteria] ='" & MyVariable & "'" '|String 'MyVariable = "03/01/1982" 'stLinkCriteria = "[FldCriteria] =#" & MyVariable & "#" '|Date stLinkCriteria = "[FldCriteria]=" & MyVariable '|Numeric 'stLinkCriteria = "[FldCriteria] ='" & MyVariable & "'" '|String 'stLinkCriteria ="[FldCriteria] =#" & MyVariable & "#" '|Date DLookup("FieldName", "TableName", stLinkCriteria) مثال متقدم : احضار بيانات دفعة واحدة من اكثر من حقل عن طريق المصفوفات من خلال الـ DLookup على طريقة استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr Dim strDLookupFlds As String Dim stLinkCriteria As String Dim MyVariable As String Dim Arry() As String Dim ChosFld As String MyVariable = 1 stLinkCriteria = "[FldCriteria]=" & MyVariable '|Numeric 'MyVariable = "Mahmoud" 'stLinkCriteria = "[FldCriteria] ='" & MyVariable & "'" '|String 'MyVariable = "03/01/1982" 'stLinkCriteria = "[FldCriteria] =#" & MyVariable & "#" '|Date strDLookupFlds = DLookup("[Fld1] & '|' & [Fld2] & '|' & [Fld3] & '|' & [Fld4] & '|' & [Fld5] & '|' & [Fld6] & '|' & [Fld7] & '|' & [Fld8]& '|' & [Fld9]", "[tblName]", stLinkCriteria) Arry = Split(strDLookupFlds, "|") Debug.Print strDLookupFlds ChosFld = Arry(0) Debug.Print ChosFld 'Arry(0) = Fld1 'Arry(1) = Fld2 'Arry(2) = Fld3 'Arry(3) = Fld4 'Arry(4) = Fld5 'Arry(5) = Fld6 'Arry(6) = Fld7 'Arry(7) = Fld8 'Arry(8) = Fld9

ماشاء الله شرح مبسط ورائع وان شاء الله ننتفع به جزاك الله خيرا استاذ @Amr Ashraf 💐 واضيف تعليق لمعلمنا العزيز @jjafferr جزاه الله عنا خير الجزاء وكل اساتذتنا الذين تعلمنا ونتعلم منهم كل يوم بارك الله لنا فيهم وزادهم الله من فضله وعلمه وجزاهم الله خيرا ومرجع من ميكروسوفت https://support.microsoft.com/ar-sa/office/تضمين-استعلام-بداخل-استعلام-آخر-أو-تعبير-باستخدام-استعلامًا-فرعيًا-a8532322-e42f-4f94-bc38-ace7c182916a?ui=ar-sa&rs=ar-sa&ad=sa ومرجع اخر ايضا https://wiki.hsoub.com/SQL/subquery بالتوفيق

لقد تم التعديل وأصبح الشيت جاهز للاستخدام أضعه بين يديك للاستفادة منه 1الفياب.xlsm

Copy the code from my post. Go to excel worksheet and press Alt + F11 to login VBE editor then from Insert menu select Module and paste the code Now back to the worksheet and press Alt + F8 and select the macro called Test. That's all

تفضل 🙂 الدالة اسمها Elookup ، وتُستخدم بالضبط مثل Dlookup ، وفيها متغير اخير يعمل فرز : http://allenbrowne.com/ser-42.html جعفر

كما تعودنا منك ابو جودى شرح منظم وبسيط ورائع. بالنسبة لنقطة ارجاع اول قيمة فيه واحد اجنبى حل الموضوع ده عن طريق عمل function آلية عملها واستدعاءها تشبه Dlookup ولكن فيها معيار زيادة يسمح لك بترتيب البيانات التى ستقوم الدالة بارجاعها. سأبحث عنها فى مكتبتى وارسلها لك لاضافتها فى الموضوع

وعليكم السلام 🙂 ممكن عمل تغيير بسيط على عمل اخوي ابو جودي ، حتى يظهر العمل بأنه اسرع ، وهو عمل التركيز على حقل آخر غير حقل المذكرة nass : . جعفر

=IF(B3="غ","ضعيف",IF(B3>=42,"ممتاز",IF(B3>=36,"جيد جدا",IF(B3>=25,"جيد","ضعيف"))))

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

ان كانت هذه هي المشكلة فحلها بسيط للغاية ان شاء الله ولكن ما اعتقد ان هذا ما يريده بالضبط فان اسماء الأعمدة بالجدول كما بالصورة التي ارفقها هي عبارة عن ارقام ولكن مجارة لما اقترحته استاذي هذا تعديل علي حسب ما تفضلتم به لحين رد استاذ احمد Public Function Subsalary(GradeNumber As Byte, RankNumber As Byte) As Double Subsalary = Nz(DLookup("A" & RankNumber, "Degree", "GradeNO=" & GradeNumber), 0) End Function وهذا التعديل يفترض ثبات البادئة النصية في اسماء كل الحقول Test (1).accdb

بصراحة اضع تقييم مليون على 100 لاستاذي المبدع @ابو جودي عمل اكثر من رائع اضاف لي معلومة لاتقيم الا بكلمة ...ربي يحفضك ويرزقك من حيث لا تحتسب

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

مبدع استاذ @ابو جودي بس نتيجة التقييم ما تظهر؟

اشكرك اخي الفلاحجي تبين انني لازم اضع في حقل الصف والشعبة امر requary لتنشيط النموذج الفرعي تم حل المشكلة

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله كل خير من إرشادات لتسمية الحقول وعناصر التحكم والكائنات فى ميكروسوفت لا يمكنها أن تتضمّن أحرف تحكم (قيم ASCII من 0 إلى 31). واليك الرابط https://support.microsoft.com/ar-sa/office/إرشادات-لتسمية-الحقول-وعناصر-التحكم-والكائنات-120c27fa-7ae1-4182-9baa-dbd183179cc3 هذا والله اعلى واعلم بالتوفيق

شكرا على التوضيح 🙂 جعفر

مشاركه مع اخى واستاذى العزيز محمد استبدل الرسائل بـ DoCmd.OpenQuery "Q2" فقط بالتوفيق

السلام عليكم ,, الاخوة الافاضل , موضوعنا اليوم فى نطاق الاستعلامات وكما بالعنوان سوف نتطرق الى الاستعلامات الفرعية وطريقة استخدامها وامثلة عملية عليها واستخدامها كمعايير فى الاستعلامات الرئيسية. وسأقوم باستخدام النصوص فى الجزء الاغلب من الشرح تطبيقا لطلب استاذنا ابو خليل . بالنسبة للمبتدئين امثالى توضيح بسيط : ماهى المعايير ؟ المعايير هى شرط او اكثر بناءً عليه يتم استدعاء البيانات من الجداول وفى الرابط التالى الكثير من المعلومات والامثلة لكافة انواع الحقول (نص - رقمى - وقت وتاريخ الخ...) https://support.microsoft.com/en-us/office/examples-of-query-criteria-3197228c-8684-4552-ac03-aba746fb29d8 نعود لموضوعنا الاستعلامات الفرعية SubQueries , ماهى ؟ كما يوجد نموذج فرعى وتقرير فرعى هناك استعلام فرعى يتم استخدامه داخل الاستعلامات الاساسية بهدف الحصول على نتيجة يصعب الحصول عليها بالطرق العادية , ولها الكثير من الانواع سأتطرق لما استخدمته فعلياً حتى الآن ونأمل ان احد الاساتذة يثرى الموضوع بمشاركات اخرى لتطبيقات عملية أخرى . جملة الSQL : بالنسبة لطريقة كتابتها لا تختلف كثيرا عن كتابة الاستعلام العادى ويمكن كتابتها بسهولة عن طريق انشاء استعلام بالطريقة العادية ونسخ جملة الSQL الخاصة به مع تطبيق بعض الملاحظات التى سيتم ذكرها فى الامثلة التالية . نبدأ بالمثال الأول : على افتراض ان عندى مجموعة البيانات التالية مجموعة من المنتجات واسعارها : Product UnitPrice Banana $1.00 Choclate$5.00 Juice $3.00 Mango $7.00 Milk $4.00 Water $3.75 وأريد ان اعرف ماهى المنتجات التى تتساوى فى السعر او سعرها اقل من سعر منتج Milk , فى الطريقة العادية سيتم وضع معيار تحت حقل السعر ويكتب فيه <=4 وهو سعر المنتج , ماذا لو لم تعرف سعر المنتج الحالى او السعر يتغير باستمرار ويصعب تتبع التغييرات بالتالى يمكن عمل استعلام يقوم بالحصول على سعر المنتج المطلوب وبالتالى فى حالة تغير السعر نتيجة الاستعلام تتغير معه دون تدخل منك , انظر الى الاستعلام التالى: SELECT TblProducts.Product, TblProducts.UnitPrice FROM TblProducts; هذا استعلام اساسى يقوم باستدعاء المنتجات واسعارها بدون معايير , الق نظرة على الاستعلام التالى : SELECT TblProducts.Product, TblProducts.UnitPrice FROM TblProducts WHERE (((TblProducts.UnitPrice)<=(SELECT TblProducts.[UnitPrice] FROM TblProducts Where TblProducts.[Product]="Milk"))); وهذه صورته فى وضع التصميم لو تلاحظ تم اضافة معيار تحت السعر عبارة عن استعلام آخر مهمته هوا الحصول على سعر المنتج Milk كما لو انك كتبت بدلا منه <=4 , وبالتالى نتيجته ستكون عرض كافة المنتجات التى سعرها يقل عن او يساوى سعر المنتج Milk انظر الى النتيجة : Product UnitPrice Water $3.75 Juice $3.00 Milk $4.00 Banana $1.00 نلاحظ عرض المنتجات التى يكون سعرها اقل من او يساوى 4 (وهى نتيجة الاستعلام الفرعى) . ملاحظات على الاستعلام : الاستعلام الفرعى يجب ان يكون بين قوسين (). من المعلوم ان اى جملة SQL تنتهى بفاصلة منقوطة ; وهى الطريقة التى تخبر بها قاعدة البيانات بأن الجملة قد انتهت, ولكن لو لاحظت الاستعلام الفرعى لا يحتوى على فاصلة منقوطة بين الاقواس ولكن تكتفى بغلق الجملة الاساسية فقط وليس الفرعية. الاستعلام الفرعى يحضر نتيجة واحدة فقط (على الاقل الاستعلامات التى استخدمتها فعلياً). فى حالة وجود مسافة فى اسم الحقل مثلا Unit Price يجب تضمينه داخل اقواس Brackets []. يتبع فى رد يحتوى على مثال آخر . مرفق قاعدة بها جميع الامثلة المشروحة فى الموضوع ,, نسألكم الدعاء بصلاح الحال . Amr - SubQueries.accdb

جزاك الله خير يا غالى.. وشكرا على مشاركتك

بارك الله فيك أخي الكريم شكراً لك

الاستاذ الفاضل محى الدين بارك الله فيك ولا يحرمنا منك ومن اعمالك الرائعة ومن نهر علمك الواسع هذا هو المطلوب بالضبط الف شكر على مجهودك

السلام عليكم استاذى القدير ومعلمى الجليل @د.كاف يار تحية كيبة عطرة ... اعجبتنى الفكرة جدا جدا جدا ولكن لى رجاء ممكن شرح كيفية ضبط اماكن ازرار الامر ان ذادت عن المرفق او قلت

ارفق مثال لكي يتم التعديل عليه او اتبع الطريقة التالية - يجب اضافة عمود اسم و صيغة الصورة في الجدول مثلا :اسم العمود (ImageUral) و القيمة اسم الصورة (Image1.jpg) - في عنصر الصورة في التقرير ضع التالي = [CurrentProject].[Path] & "\images\" & [ImageUral]

تمام .. احسنت في عملك حدث الاغلاق يمكننا تنفيذ امر معين قبل الاغلاق ، ولكن الاغلاق سوف يتم بمعنى سيتم الاغلاق سواء تحقق الشرط ام لا ولا نكتفي عند زر الاغلاق بشرط واحد وانما نطبق جميع الشروط عليه وهي الموجودة في زر الحفظ تم التعديل واليك المرفق ‏‏‏‏devicesdb10.rar

الملف موجود فى مشاركة الباش مهندس @Eng.Qassim ورابط المرفق مرة أخرى Converter Arabic and Unicode (v. 3).accdb

Sub Test() Dim x, r As Long, i As Integer, ii As Integer Application.ScreenUpdating = False For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row x = Split(Application.Trim(Cells(r, 2).Value)) ii = 0 For i = LBound(x) To UBound(x) If x(i) <> "" Then Cells(r, 3 + ii).Value = Val(x(i)): ii = ii + 1 Next i x = Split(Cells(r, 5).Value, Space(2)) ii = 0 For i = LBound(x) To UBound(x) If x(i) <> "" Then Cells(r, 6 + ii).Value = Trim(x(i)): ii = ii + 1 Next i Next r Application.ScreenUpdating = True End Sub

علشان تقدر تتعامل بسهولة شوف الشرح المصور

شكرا استاذي @أبو عبدالله الحلوانى على هذه المعلومة لان لوكانت الكلمة بالعربي فلن يعمل الكود في حدث عند التغيير الا اذا تم تحويلها الى Unicode معلومة من ذهب ... جزاك الله خيرا استاذي انظر لملف استاذي @ابو جودي وستفهم كيف يتم تحويل الكلمة العربي الى unicode Converter Arabic and Unicode (v. 3).accdb

إذا جرب هذا التعديل ووافني بالنتائج وهذا هو الكود بعد التعديل Private Sub B_1_Change() If Me.B_1.Text = ChrW(1584) & ChrW(1603) & ChrW(1585) Then FrameSx = 1 ElseIf B_1.Text = ChrW(1571) & ChrW(1606) & ChrW(1579) & ChrW(1610) Then FrameSx = 2 ElseIf B_1.Text = ChrW(1575) & ChrW(1606) & ChrW(1579) & ChrW(1610) Then FrameSx = 2 Else FrameSx = 0 End If End Sub test1.accdb

مثال آخر شبيه بالسابق : فى هذا المثال افترضت ان المنتج يتم تحميله على مراحل فى نفس الطلبية ومطلوب انى اعرف اول تاريخ تسليم للمنتج داخل طلبية ما أو العكس اخر تاريخ تم تسليم المنتج للعميل فيه , انظر الاستعلام التالى QryOrdersFollowUp(Dates) : SELECT QryOrders.OrderID, QryOrders.Client, QryOrders.Product, QryOrders.OrderQty, Nz((select Sum(QtySold) From TblSales AS T Where T.Product = QryOrders.[Product] And T.Client = QryOrders.[Client] And (T.zDate >= QryOrders.[StartFrom] And T.zDate <= QryOrders.[EndsOn])),0) AS QtyDelivered, [OrderQty]-[QtyDelivered] AS Remains, Nz((select Min(Zdate) From TblSales AS T Where T.Product = QryOrders.[Product] And T.Client = QryOrders.[Client] And (T.zDate >= QryOrders.[StartFrom] And T.zDate <= QryOrders.[EndsOn])),"None") AS FirstDelivery, Nz((select Max(Zdate) From TblSales AS T Where T.Product = QryOrders.[Product] And T.Client = QryOrders.[Client] And (T.zDate >= QryOrders.[StartFrom] And T.zDate <= QryOrders.[EndsOn])),"None") AS LastDelivery FROM QryOrders; والنتيجة كالتالى : لاحظ انه لا يوجد مشكلة فى حالة عدم وجود تسليمات للمنتج فى طلبية ما لعميل ما سيتم كتابة None مكان التاريخ . وهناك الكثير من الامثلة ولكن هذا ما طبقته بالفعل وتأكدت من نتائجه .. اتمنى المشاركة من الاساتذة الكبار وخاصة استاذنا @jjafferr له صولات وجولات فى هذا المضمار 😅 انتهى الشرح دمتم بخير .

تم التطبيق على ملفاتك أخي @ahmus في حال الاتصال يفتح لك النموذج الرئيسي على طول . وفي حال عدم الاتصال يظهر لك : لا : يغلق لك البرنامج . نعم: يفتح لك مستعرض الملفات وتختار منه ملف الجداول : ثم بعدها تظهر لك رسالة النجاح ... ويفتح لك النموذج الرئيسي : اثناء انقطاع الشبكة - 3.rar

السلام عليكم ورحمة الله معذرة لانى فهمت الموضوع خطأا ان العمل على خلية واحدة و لاتى وجدت الامر مختلف وصعب فقررت ان ارسل لك الملف ذاته بعد ان تم عمل اللازم تم اضافة عمود مساعد بورقة البدلاء لتسهيل عمل المعادلة اليك الملف شيت تحضير -111 (2).xlsm

انا اقل طالب علم بدات ابو جودى والان ابو جودى وحتى مماتى سوف اضل ابو جودى

مفيش اخ يدخل ويقولى السلام عليكم هو طلبى مش مفهوم ايه الحل يا اخوانى عارف الجو شديد البرودة

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