jjafferr

السلام عليكم 🙂 اخي 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بت ، وفي الرابط طريقتين لحل المشكلة . جعفر

وعليكم السلام اخي احمد 🙂 بداً اردد قول اخي موسى ، ونقطة وانتهى السطر 🙂 الاخوة عندهم "اقتراحات" وانت غير مُلزم حتى بالرد/النظر فيها ، فلا تزعل 🙂 ولتوضيح الكلام عن الريبون/القائمة ، ان الطريقة المتبعة للبرامج وخصوصا برامج الاوفيس من الاصدار 2007 ، هو الريبون بدلا عن القائمة ، ولكن هذا ليس معناه ان عندك اسبابك في استخدام هذه الطريقة بدلا عن تلك 🙂 جعفر

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

رجاء قراءة الموضوع التالي جعفر

وعفوا ، رجاء تخبرنا كيف تريد النتائج تكون ، ولو تعملها على ملف اكسل ، او اكتبها لنا هنا

وعليكم السلام 🙂 بحثت ووجدت هذا الكود DoCmd.OpenReport "rpt_SalesReportBO_Ar", acViewPreview 'goto last page Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{End}", True جعفر

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

يمكن اعادة تشغيل الكمبيوتر تحل المشكلة 🙂

اذن الموضوع صار خارج نطاقنا ، وصار بينك وبين الشركة 🙂 رجاء اخبرنا النتيجة 🙂 جعفر

اخي انصاري 🙂 للمرات القادمة ان شاء الله ، رجاء مراعاة قوانين المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.