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

عفوا ، لم انتبه ان الكود عندك Public فانا وضعته Private استخدم هذا الكود ، بعد ان تم تعديله بإستخدام Public بدلا عن private Public Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long جعفر

تفضل رجاء ملاحظة اني استخدمت نفس طريقة مشاركتي الاولى: ولكن بإستخدام هذا الكود ، الذي يبحث اول سجل مطابق لحقل البحث n2 ، ومنه نأخذ قيمة الحقل Rajmsanf ونعطيها الحقل MYn1 ، حتى يتم تطابق قيم الحقلين ، وعليه يعمل التنسيق الشرطي: ' Dim rst As DAO.Recordset ' Set rst = Me.sfrm_Search.Form.RecordsetClone ' rst.FindFirst "[Rajmsanf] like '" & Me.n2.Text & "*'" ' If rst.NoMatch Then ' Me.sfrm_Search!MYn1 = 0 ' Else ' Me.sfrm_Search!MYn1 = rst!Rajmsanf ' End If ' rst.Close: Set rst = Nothing 'or Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf] like '" & Me.n2.Text & "*'" If Me.sfrm_Search.Form.RecordsetClone.NoMatch Then Me.sfrm_Search!MYn1 = 0 Else Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf End If . والنتيجة . في اعتقادي ان هذا الموضوع اصبح مرجع لتظليل/تلوين السجلات حسب قيمة البحث ، باستخدام التنسيق الشرطي ، واتمنى ان احصل على وقت لكي افرد له موضوع خاص وبشرح مفصل لكل طريقة تم استعمالها (او يقوم احد الاعضاء بهذا العمل مشكورا) جعفر 727.3.الاستاذ جعفر.accdb.zip

اطلع على هذا الرابط

جرب هذا السطر بدلا عن الذي عندك Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long جعفر

الاخوة الزملاء كل عام وانتم بخير بمناسبة قرب شهر رمضان الكريم هدية بمناسبة الشهر الكريم على الزملاء تكملة الاكواد لكل من عنده كود يختص بالفورم فقط صورة للفورم والاكواد حمل ملف الاكسل للاكواد

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

تفضل تستطيع ان تتحكم في مدة التأخير ، والتي وضعتها انا لمدة 10 ثوان حسب طلبك Private Sub cmd_Open_All_Click() Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC Application.FollowHyperlink rst!Site PauseTime = 10 ' Set duration in seconds. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub جعفر

أخي لماذا لا تقوم بعمل تقرير ،، فهذا أسهل حيث أنه يمكنك اختيار حجم الورق المطلوب الطباعة عليه والله أعلم

ربما تم تعريف lngNum على انه رقم في بداية الكود بجب تعريفه بهذا الشكل Dim lngNum فقط

اخي الكريم ومن بعد اذن استاذنا القدير جعفر اليك هذا المثال الجميل اتمنى ان يكون فيه ماطلبت تحياتي بحث.zip

استاذنا الكبير @أ / محمد صالح ياريت لو يتم وضع نسخة تعمل على اوفيس 2003 او 2007 يكون افضل .. كما انني افضل ان تكون عملية اضافة مبلغ خدمة العملاء اختيارية وليست دائمية وذلك لكي تتناسب مع الجميع .. وبارك الله فيك ولما تقدمه من منفعة تحياتي

شوف الموضوع ده ممكن يساعدك على الاقل هذا ما استطيع تقديمه فى الوقت الحالى لضيق وقتى حاول فهم الامثله والتطبيق وان شاء الله لى عوده

واحب اضيف اضافة مع استاذى الجليل ومعلمى القدير ووالدى الاستاذ @jjafferr FindAsUType-update.rar

الف شكر لحضرتك

وعليكم السلام ورحمة الله وبركاته.. أهلا بك أيمن.. مع استخدامك للميكرو المضمن للتصدير فأمامك طريقتان لعمل المطلوب.. الطريقة الأولي: وهي الأجمل عندي وهي إرسال التقرير مباشرة إلى مجلد الحفظ دون اللجوء إلى مربع حوار الحفظ.. ويمكن تطبيق هذه الطريقة بعمل التالي .. نحث قاعدة البيانات لأخذ مسار قاعدة البيانات كمسار افتراضي وذلك بتغير إعدادات قاعدة البيانات كما في الصورة التالية.. هذه الطريقة من أسهل الطرق... الذهاب إلى حدث عند النقر لزر الأمر وتعديل الميكرو كما في الصورة التالية.. إذا كان لديك مجلد فرعي للملفات قم بتضمينه في التقرير قم بإضافة مرجع رقم الموظف إلى مصدر بيانات التقرير بعد قلبه إلى استعلام كما في الصورة التالية الطريقة الثانية في نظري لا تلزمك إليك التعديل Save with record no.zip

ممتاز بارك الله فيكم

السلام عليكم أخي وائل فيه التباس في كلمتي "بطريقتك" !! طريقتك : عمل 6 حقول في الجدول ، وتنظيفها من التشكيلة: 1.بحث شامل ، 2.الموضوع ، 3.عنوان الفائدة ، 4.المرجع ، 5.القائل ، 6.نص الفوائد طريقتي: عمل حقل واحد ، وتبحث في جميع الحقول. وانا اشرت لهذا قبل البدء في العمل أخي كلامك غريب ، وغير مفهوم ، ويُلقي اللوم عليّ!!؟ تفضل أخبرني بطلبك 1. هذا مشروع بحد ذاته ، واليك هذه الروابط 2. طريقة الاكسس ان يعطيك جميع النتائج دفعة واحده ، مثل ما يحصل معك الآن في النموذج بعد النقر على زر البحث جعفر

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

اسعد الله اوقاتكم الاخوة / الاساتذة المحاسبين القانونيين / مراجعي ومدققي الحسابات ( الجارية والختامية ) مرفق ملف " برامج المراجعة الشاملة لجميع البنود " من اعمال الاستاذ : إعداد وتحرير وتصميم: محمد فوزي سلام ارفعه بدون اي تعديل وهو ملف اكسل بدون اكواد او معادلات ( ملف ملاحظات ) ولكنه برأي ( كمحاسب قانوني ) مهم جدا لكل المهتمين بأعمال مراجعة الحسابات اتمنى ان يعجبكم عند دخول السادة المحاسبين سيعرفون ما بداخله بدون شرح وفقكم الله ياسر الحافظ " ابو الحارث " برامج المراجعة الشاملة لجميع البنود.rar