jjafferr

اسمه Digital ، وعند البحث عن خط digital ، اول رابط حصلت عليه https://www.1001fonts.com/digital-7-font.html جعفر

السلام عليكم 🙂 عمل مبدع ، وكود نظيف وسهل التتبع 🙂 الشيء الوحيد اللي عدّلت فيه هو ، عند النقر على ايقاف الساعة ، كانت تختفي ، فقمت بإيقاف السطر 🙂 Me.txtRemainTime = Null جعفر

السلام عليكم 🙂 متابع 🙂 جعفر

الطلب كان :

اخي biskra ، النموذج المطلوب منبثق مشروط (Popup=Yes, Modal=Yes) ، وهذه هي المشكلة 🙂 جعفر

وعليكم السلام 🙂 تفضل . ولكن لا يمكنك التعامل من تحرير/تعديل/اضافة/اغلاق إلا مع اخر نموذج تم فتحه ، هل ثمن استعمال منبثق مشروط !! . وكنت سأشير الى الموضوع الذي وضع اخوي ابو ابراهيم رابطه 🙂 جعفر 1530.Four_Forms.mdb.zip

الآن فقط انتبهت انك: تبحث في حقلين عن طريق حقلين ، شيء جميل جعفر

حياك الله اخوي 🙂

وعليكم السلام ورحمة الله وبركاته 🙂 اولا خليني اوضح ، سجلات قاعدة البيانات مو مثل الاكسل ، تقدر تغير مكان الخليه بتحريكها من مكانها ، في قاعدة البيانات نستخدم الفرز كطريقة لتحديد مكان السجل (سطر السجل) بين السجلات. بالنسبة لطلبك ، 1. فالاسهل عمل حقل تسلسل ولنسميه Seq ، ونعمل تحديث لبيانات هذا الحقل ، ليتناسب مع الاسم الذي تم اختياره (طبعا هذا حسب اعتقادي بأنك لا تريد تكرار السجل) ، 2. ما فهمت قصدك بالبدء من السجل الثاني ، طيب وشو يكون في السجل الاول ؟ جعفر

السلام عليكم 🙂 اخي UserUser2 انظر الفرق بين طريقة وضعك الكود: . بينما اذا استعملت الطريقة الخاصة لتنسيق الكود . ووضعت الكود في النافذة المنبثقة: . سيكون الكود بهذا التنسيق الجميل ، والجميع يقدر يقراءه 🙂 Private Sub Form_Timer() Dim Hours As String Dim Minutes As String Dim Seconds As String Dim MilliSec As String Dim msg As String Dim ElapsedMilliSec As Long ElapsedMilliSec = Me.Text15.Value - (GetTickCount() - StartTickCount) + _ TotalElapsedMilliSec Hours = Format((ElapsedMilliSec \ 3600000), "00") Minutes = Format((ElapsedMilliSec \ 60000) Mod 60, "00") Seconds = Format((ElapsedMilliSec \ 1000) Mod 60, "00") MilliSec = Format((ElapsedMilliSec Mod 1000) \ 10, "00") Me!ElapsedTime = Hours & ":" & Minutes & ":" & Seconds & ":" _ & MilliSec If Me!ElapsedTime = "00:00:00:00" Then Me.[test Name].BackColor = RGB(225, 0, 0) PlaySound Application.CurrentProject.Path & "\sounds\test.WAV" DoCmd.Restore TotalElapsedMilliSec = TotalElapsedMilliSec + _ (GetTickCount() - StartTickCount) Me.TimerInterval = 0 TotalElapsedMilliSec = 0 Me!ElapsedTime = "00:00:00:00" Me!btnStartStop.Caption = "start" Me.btnReset.Enabled = True End If . جعفر

وعليكم السلام 🙂 اما انا ، فاعمل كل شرط على سطر مستقل ، مثل ما قال اخوي خالد ، وخصوصا لما تكثر الشروط ، وتختلف بين النص والرقم والتاريخ 🙂 . جعفر

اذا كان قصدك عند الخروج من النموذج ، وفيه حقول فارغة ، فالجواب نعم ، وهذا هو الهدف من الكود !! جعفر

وعليكم السلام اخوي خالد 🙂 ومرة اخرى انزلت المرفق وجربت افتح الاستعلام ، ونفس المشكلة ، ما يفتح الاستعلام بنفس سرعة كمبوترك "القديم" 😁 الظاهر انك كنت تشمشم مواضيع الدكتور محمد الحلبي ، ووصلت لهذا الموضوع 🙂 جعفر

وارفقت المرفق في مشاركتي السابقة 🙂 جعفر

دكتور @الحلبي اسمح لنا ناخذ راحتنا شوي 🙂 كلنا نستعمل كود اخونا @ابوبسمله ، اللي اعاد ترويضه اخونا @Moosak ، واخونا @مبرمج متقاعد 🙂 طيب ايش رايكم في اخبارنا بجميع الحقول الفارغة ، وبرسالة واحدة : Option Compare Database Private Sub Form_BeforeUpdate(Cancel As Integer) Dim I_am_Empty As String, Set_Focus_On_Me As Control Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If Len(ctl.Value & "") = 0 Then I_am_Empty = I_am_Empty & vbCrLf & ctl.Name Set Set_Focus_On_Me = ctl End If End If Next ctl If Len(I_am_Empty & "") <> 0 Then Cancel = True MsgBox "رجاء تعبئة الحقول الفارغة التالية" & I_am_Empty Set_Focus_On_Me.SetFocus Set ctl = Nothing: Set Set_Focus_On_Me = Nothing Exit Sub End If End Sub . جعفر عدم الحفظ.zip

السلام عليكم 🙂 وبتعديل على كود اخوي موسى : الرسالة تخبرك اي حقل فارغ ، تلغي عملية الحفظ ، ويكون التركيز على الحقل الفارغ : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If Len(ctl.Value & "") = 0 Then MsgBox "رجاء تعبئة الحقل الفارغ " & ctl.name Cancel = True ctl.setfocus exit for End If End If Next ctl End Sub . وانا كذلك مثل اخوي خالد ، لم اقم بتجربة الكود 🙂 جعفر

وعليكم السلام اخي هيثم 🙂 برنامجك المرفق اخذ منك وقت تعمله ، والمشكلة اخذت منك وقت حتى تفكر في حلها ، ولم تجد لها حل ، فليش تبخل علينا بوقتك وتشرح لنا طلبك بالتفصيل وبالصور 🙂 في وقت كتابتي هنا ، 33 عضو دخلوا في موضوعك ، ولم بفهموا المطلوب ، فانتقلوا الى موضوع آخر 🙂 اما انا فانزلت المرفق ، وكذلك ما فهمت المطلوب !! ساعدنا علشان نساعدك 🙂 جعفر

وعليكم السلام 🙂 نعم يمكن ، مثلا : 1. اعمل نموذج فيه البيانات التي تريد (يعني يعمل تصفية حسب اللي تكتبه في الحقل X) ، ولنسميه frm_1 ، واخذ في بالك يكون حجمه يتناسب مع المكان اللي تريده يظهر في النموذج الآخر ، 2. في النموذج الرئيسي ، في الحقل اللي تكتب فيه ، ولنسميه X ، في الحدث "عند التغيير" ، افتح النموذج frm_1 منبثق ، واستعمل الامر MoveSize لتجعله تحت الحقل X ، 3. وكلما كتبت شيء ، اعمل Requery للنموذج frm_1 ، 4. اعمل طريقة لإغلا ق النموذج frm_1 عند الانتهاء منه. 5. انا لن اقوم بهذا العمل 😁 جميع هذه الخطوات = عمل مربع التحرير والسرد ، فليش تقوم بهذا العمل من اول وجديد 🙂 اذا كنت تريد تصفية معينه ، فالمنتدى مليء بهذه المواضيع ، وكل اللي عليك عمله هو استعمال خاصية البحث في المنتدى 🙂 جعفر

كنت خائف ان تكون بعض المتغيرات محجوزة في الاكسس ، ولكن التغيير سهل ، تغيير الكل مرة واحدة 🙂 بس لازلت غير راضي عن 3 متغيرات للدالة ، لازم ارجعها الى متغيرين اثنين كما الدالة السابقة ، انا مشغول لخشمي ، فمحتاج شوية وقت ، إلا اذا احد الخبراء اراد ان يساهم 🙂 جعفر

السلام عليكم 🙂 في النسخة 3 ، جعلت الاختيار الاول اختياري : Function mySendKeys(Optional ByVal v As sk_SendKeys, Optional ByVal op_value As String = "", Optional ByVal Wait As Boolean = True) As String . هذا يسمح لنا بمرونة اكثر ، فمثال اخوي ابو احمد عن الانتقال الى الصفحة رقم 6 (في الواقع هي 6-1=5) مثلا : وبعدني مو راضي ، اكيد فيه مجال للتحسين جعفر SendKeys_mySendKeys_3.zip

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

وعليكم السلام اخوي ابو احمد 🙂 لي الشرف ، وشكرا على جميل كلماتك 🙂 في الواقع كنت اشتغل عليه طول الوقت ، واردت ان اضيف عليه ميزة Intellisense (وهي نفس الطريقة التي تُظهر بقية الاوامر لما نكتب النقطة بعد docmd ) ، والتي هي غير موجودة في دالة SendKeys الاصلية ، فأخذ مني كل هذا الوقت 🙂 وارفقت المرفق في الموضوع السابق 🙂 جعفر

السلام عليكم 🙂 ووالديك ان شاء الله 🙂 ولجعل الهدية تتناسب مع مناسبة العيد الوطني لبلادنا ، اود ان تقوموا بتجربة اللمسات التي لم تكن موجودة في SendKeys 🙂 جعفر SendKeys_mySendKeys.zip

وعليكم السلام 🙂 1. لم اصادف او اسمع مثل هذه المشكلة ، ولكن المعتاد هو عمل البرنامج على النسخة الاقدم من اكسس ، حتى تعمل على النسخ الاحدث ، بمعنى ، اذا اردت استعمال برنامجك على جميع نسخ الاكسس ، فاعمل برنامجك بصيغة MDB ، اما اذا اردت الاستفادة من مزايا صيغة ACCDB ، فاستعمل نسخة 2007 (او حتى اذا اردت استعمال صيغة 2010 ، فلا تستعمل مزايا 2010 ، لأن هناك مستخدمين عندهم النسخة الاولى من 2007 وبدون تحديثات ، فلن تعمل معهم. 2. كذلك لم اصادف او اسمع مثل هذه المشكلة !! نعم ، اذا عندك مكتبات 32بت فلن تعمل في الاكسس 64بت ، وفي الرابط طريقتين لحل المشكلة . جعفر