jjafferr

اخوي @Ahmos عرض جدا جميل لسبب المشكلة 👍 ياريت تكمل جميلك وتعرض الحل كذلك في المشاركة (مو في المرفق فقط)

الكمبوبوكس كذلك ياخذ بياناته من الجدول او الاستعلام ، فالبيانات متغيره ، حالها حال الاستعلام. والجواب نفسه: بمعنى: اعمل جدول اسمه tbl_Movements ، حقوله : Auto_ID= ترقيم تلقائي Auto_Date= تاريخ ، وقيمته الافتراضية ()Now Employee_ID= رقم (رقم الموظف) Employee_Dept= نص (مكان العمل) Employee_Dept_Date= تاريخ (تاريخ نقل الموظف الى هذه الدائرة) ثم تعمل استعلام qry_Movements ، وفيها المعيار يكون عن طريق التاريخ. وفي النموذج عند نقل موظف من مكان الى آخر (حدث بعد التحديث) ، يجب "الحاق" القيمة الجديدة الى هذا الجدول ، وقيمة تاريخ النقل ، وتعمل مقارنة بين مكان عمل الموظف من هذا الاستعلام ، مع مكان العمل في الجدول الاصل ، ومنه تقدر تعرف من اللي تم تغيير مكانه.

وعليكم السلام معلش ، اشرح لي المطلوب بلغتك ، وباسماء الحقول في مرفقك

رجوعا الى طريقة الاستاذ فادي السابقة ، ولعلاج الرعشة ، اذا تسمحون لي بتعديل فترات استعمال دواء الدكتور فادي 😁 فعلاج الدكتور فادي كان مستمر ، بينما انا قللت فترة الاستعمال الى مرة واحدة لكل سجل فقط 🙂 جرب هذا التعديل: Private Sub Form_Current() if Me.txtCurrentID <> Me.itemcod then Me.txtCurrentID = Me.itemcod end if End Sub

وعليكم السلام ورحمة الله وبركاته احاول افهم قصدك: 1. عندك استعلام بمعايير معينة ، 2. احد حقول الاستعلام تم تغيير قيمته ، وهو نقل موظف الى مكان آخر ، تريد تعرف هذا الموظف؟ اذا كان هذا سؤالك ، فالجواب: لا يمكن ، فالاستعلام يعطيك صورة من بيانات الجدول. نعم يمكن ، اذا عملت جدول خاص بتخزين قيم هذا الحقل بشكل سجل/سجلات ، ويمكن مقارنة هذه السجلات بقيم الجدول الحالي لهذا الحقل. 3. لم افهم ما دور الكومبوبوكس والتقرير.

اخي فادي 🙂 شكرا جزيلا لك على المواصلة للنهاية لإرضاء الزبون 🙂 اخي الدكتور الحلبي 🙂 كلنا في خدمتكم 🙂

وعليكم السلام حول النموذج الفرعي الى نموذج جدولي ، واللي تلقائيا سيتم تظليل السجل لما تنقر على اي حقل فيه 1619.تلوين الفرعى.accdb.zip

السلام عليكم 🙂 الاكسس معروف بنقطة ضعفه مع الصور ، وبغض النظر عن قوة كرت الشاشة. اعطيك الصافي ، للحركة انس الصور ، و استعمل الخطوط والمربعات والدوائر لعمل شكل معين ، لان فيه نقاط x و y واللي الاكسس ممكن يرسمهم فوق صورتك ، وتلقائيا كل نقطة من هذا الشكل سيتحرك (يعني ارسم الشكل المعقد مرة واحدة بإحداثيات x و y ، ومن ثم لما تغير مكان الشكل ، تلقائيا كل نقاط الشكل ستتحرك) ، ومن الرابط التالي تقدر تتعلم كيف تعمل بعض الاشكال الغير معقدة 🙂 هذا موقع (لصاحبته crystal وهي احد محترفي الاكسس) فيه ما لذ وطاب من طرق استعمال الخطوط والمربعت والدوائر: https://msaccessgurus.com/VBA/ReportDraw_Reference.htm?ref=nolongerset.com وبعد ما تاخذ لفة على الصفحة ، اختم الموضوع بتنزيل لعبة تنس الطاولة من : الكود: https://controlc.com/ac9f4c3b الفيديو: جعفر

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

من قدك يا ولد ، جبتها من جذورها 🙂 شكرا جزيلا على المشاركة

لما امس كتبت لك اني ما حصلت على حل ، فقد كنت ابحث عنه طوال اليوم ، ولقيت الكثير من الامثلة والحلول ، ولكن ما قدر اي منها معرفة اسم قائمتك !! هذا الرابط به ما تسأل عنه : https://www.devhut.net/vba-list-application-command-bars/ ولكني لم استطع الحصول على قائمتك حتى من هذا الحل ، لهذا السبب طلبت منك الملف الاصل بصيغة mdb.

في الواقع ، بعض الاحيان العمل اليدوي يكون اسرع من محاولة برمجة المطلوب 🙂 ياريت تفرد لنا موضوع عن هذه التجربة ، مع مال بسيط نستطيع الاحتذاء به وقت الضرورة 🙂

وعليكم السلام ورحمة الله وبركاته المعذرة اخوي ابو خليل ، ما توصلت الى حل !! اذا ممكن ترفق برنامج mdb وفيه شريط القوائم ، حتى ممكن نحاول منه.

الطلبين موجودين في هذه النسحة

مافي داعي تستخدم نقرة الفأرة اليمين ، تقدر تكتب مباشرة في حقل المعادلات. الهدف من مثالي السابق (القائمة المنسدلة Combobox) ، ومن مثالي الاخير (القائمة من النقر على الفأرة بالزر اليمين) ، هو حتى لا يخطئ المستخدم ودخل حرف غلط ، واللي على اساسه لن يعمل البرنامج. هدفي من سؤالي سابقا: هو حتى افكر في طرق اخرى في استعمال Combobbox ، ولكن هذا لا يمكن اذا كانت المعادلات بهوى المستخدم.

السلام عليكم عملت جميع الاحتمالات ، و ان شاء الله افرد موضوع لزر الفأرة اليمين (قيم متغيرة) . البرنامج لا يتأكد من صحة القيم التي تم ادخالها ، للعلم. لا تنسى تنقر على الفأرة اليمين لإدخال الحقول من الجدول Table 1. 1618.1.Cal error2.accdb.zip

شكرا جزيلا اخوي ابو خليل عملت موضوع لهذه الجزئية:

السلام عليكم في احد مشاريعي ، جابوا لي قائمة اكسل فيها تواريخ مكتوبة بكل ما لذ وطاب من الطرق ، مثل: 30/11/2009 ، 2012-06-25 ، 21/6/2015م ، " 9/1/2014" ، 30\11\2009 ، 5/1999/26 ، 25/1999/6 ، 5/1994/ 26 ، وحتى بعضها بالارقام الهندية ، فعملت الدالة التالية ، والتي ترسل لها التاريخ المطلوب تعديله ، والدالة تصلح التاريخ وترجعه. وستلاحظون اني استخدمت الدالة DateSerial ، حتى اعطي اليوم والشهر والسنة بياناتهم يدويا ، بدلا عن استعمال CDate . هذه هي الدالة: Function Date_Rectified(D As String) As Date On Error Resume Next Dim x() As String Dim P1 As String, P2 As String, P3 As String D = Trim(D) D = Replace(D, "(", "") D = Replace(D, ")", "") D = Replace(D, " ", "") D = Replace(D, " ", "") D = Replace(D, " ", "") D = Replace(D, " ", "") D = Replace(D, "*", "") D = Replace(D, "م", "") D = Replace(D, ChrW(1632), "0") 'الرقم الهندي صفر D = Replace(D, ChrW(1633), "1") D = Replace(D, ChrW(1634), "2") D = Replace(D, ChrW(1635), "3") D = Replace(D, ChrW(1636), "4") D = Replace(D, ChrW(1637), "5") D = Replace(D, ChrW(1638), "6") D = Replace(D, ChrW(1639), "7") D = Replace(D, ChrW(1640), "8") D = Replace(D, ChrW(1641), "9") D = Replace(D, "!", "-") D = Replace(D, "/", "-") D = Replace(D, "//", "-") D = Replace(D, "\", "-") D = Replace(D, ".", "-") D = Replace(D, "_", "-") D = Replace(D, "|", "-") D = Replace(D, ",", "-") D = Replace(D, Chr(34), "") If Len(D) = 4 Then 'starts with year, but its 4 digits only:1999 'convert to 1-1-1999 OR EMPTY Date_Rectified = DateSerial(D, 1, 1) Exit Function End If If D = "5/1994/ 26" Then Debug.Print D End If x = Split(D, "-") P1 = x(0): P2 = x(1): P3 = x(2) If Len(P1) = 4 And Len(P2) <> 0 Then 'starts with year, and month exist: 1999-1-2 Date_Rectified = DateSerial(P1, P2, P3) ElseIf Len(P3) = 4 And Len(P2) <> 0 Then 'ends with year, and month exist: 2-1-1999 Date_Rectified = DateSerial(P3, P2, P1) ElseIf Len(P2) = 4 And Len(P1) <= 12 Then 'year in the middle, day and month exist: 5/1999/26 Date_Rectified = DateSerial(P2, P1, P3) ElseIf Len(P2) = 4 And Len(P1) > 12 Then 'year in the middle, day and month exist: 25/1999/6 Date_Rectified = DateSerial(P2, P3, P1) Else 'otherwise Date_Rectified = Null End If End Function

وعليكم السلام في احد مشاريعي ، جابوا لي قائمة اكسل فيها تواريخ مكتوبة بكل ما لذ وطاب من الطرق ، مثل: 30/11/2009 ، 2012-06-25 ، 21/6/2015م ، " 9/1/2014" ، 30\11\2009 ، 5/1999/26 ، 25/1999/6 ، 5/1994/ 26 ، وحتى بعضها بالارقام الهندية ، فعملت الدالة التالية ، والتي ترسل لها التاريخ المطلوب تعديله ، والدالة تصلح التاريخ وترجعه. ومنها تقدر تحصل على السنة 🙂 هذه هي الدالة: Function Date_Rectified(D As String) As Date On Error Resume Next Dim x() As String Dim P1 As String, P2 As String, P3 As String D = Trim(D) D = Replace(D, "(", "") D = Replace(D, ")", "") D = Replace(D, " ", "") D = Replace(D, " ", "") D = Replace(D, " ", "") D = Replace(D, " ", "") D = Replace(D, "*", "") D = Replace(D, "م", "") D = Replace(D, ChrW(1632), "0") 'الرقم الهندي صفر D = Replace(D, ChrW(1633), "1") D = Replace(D, ChrW(1634), "2") D = Replace(D, ChrW(1635), "3") D = Replace(D, ChrW(1636), "4") D = Replace(D, ChrW(1637), "5") D = Replace(D, ChrW(1638), "6") D = Replace(D, ChrW(1639), "7") D = Replace(D, ChrW(1640), "8") D = Replace(D, ChrW(1641), "9") D = Replace(D, "!", "-") D = Replace(D, "/", "-") D = Replace(D, "//", "-") D = Replace(D, "\", "-") D = Replace(D, ".", "-") D = Replace(D, "_", "-") D = Replace(D, "|", "-") D = Replace(D, ",", "-") D = Replace(D, Chr(34), "") If Len(D) = 4 Then 'starts with year, but its 4 digits only:1999 'convert to 1-1-1999 OR EMPTY Date_Rectified = DateSerial(D, 1, 1) Exit Function End If If D = "5/1994/ 26" Then Debug.Print D End If x = Split(D, "-") P1 = x(0): P2 = x(1): P3 = x(2) If Len(P1) = 4 And Len(P2) <> 0 Then 'starts with year, and month exist: 1999-1-2 Date_Rectified = DateSerial(P1, P2, P3) ElseIf Len(P3) = 4 And Len(P2) <> 0 Then 'ends with year, and month exist: 2-1-1999 Date_Rectified = DateSerial(P3, P2, P1) ElseIf Len(P2) = 4 And Len(P1) <= 12 Then 'year in the middle, day and month exist: 5/1999/26 Date_Rectified = DateSerial(P2, P1, P3) ElseIf Len(P2) = 4 And Len(P1) > 12 Then 'year in the middle, day and month exist: 25/1999/6 Date_Rectified = DateSerial(P2, P3, P1) Else 'otherwise Date_Rectified = Null End If End Function

وعليكم السلام اذا الحقل: me.abc="i am small letters" لتكبير الحروف me.abc= Format(me.abc, ">")

1. هل العمليات ستكون / * - + فقط ؟ 2. كم حقل ممكن تستعمل في المعادلة الواحدة؟ هنا استخدمت حقل واحد فقط: urea / 5 وهنا استخدمت 3 حقول: ALT/AST*UREA وفي الطريقة الاولى استخدمت ارقام ، بينما في الطريقة الاخيرة استخدمت حقول فقط ، فرجاء اعطنا مجموعة امثلة لتغطية جميع الطرق. اذا كان جوابك: "مش هتكون ثابنه ، متغيره وفقا لمستخدم البرنامج". فانا من الان اقول لك: ستكون هذه أخر مشاركة لي في هذا الموضوع.

رجاء اعطنا كل انواع المعادلات

السلام عليكم ارجو ان اكون فهمت المطلوب بالطريقة الصحيحة 🙂 1618.Cal error2.accdb.zip

هل هذه خطوات العمل: 1- يختار المستخدم احد قيم الحقل test في الجدول Table2 ، وليكن مثلا ASO ، 2- المستخدم يكتب المعادلة التالية في السجل اعلاه: [Bili]/2 3- البرنامج يأخذ قيمة السجل [Bili] من الحقل [result] في الجدول Table1 ، ويضعها في المعادلة اعلاه ، 4- ونتيجة المعادلة يضعها في سجل [ASO] من الحقل [result] في الجدول Table1 ، يعني قيمة [result] لهذا السجل راح تتغير قيمتها حسب نتيجة المعادلة اعلاه ؟ هل هذا صحيح ؟

هل هذه خطوات العمل: 1- يختار المستخدم احد قيم الحقل test في الجدول Table2 ، وليكن مثلا ASO ، 2- المستخدم يكتب المعادلة التالية في السجل اعلاه: [Bili]/2 3- في حقل result في الجدول Table1 ، تريد ان تظهر نتيجة المعادلة اعلاه ؟ هذا كله سهل ، السؤال هو ، في الخطوة 2 اعلاه ، من اين سيأتي البرنامج بقيمة [Bili] ؟