ابوحمود

الأخ أشرف لقد راجعت الكود مرة أخرى ولم أجد ما قلت اعتقادي أنك لم تنتنبه لملاحظتي في الأعلى :"اجعل اختيار لوحة المفاتيح سلوك إدخال الحقول بدون تحريك ." وما قمت أنت بإلغائه هو خاص بإظهار رسالة عندما لا يجد الشخص المطلوب فمثلا إذا كان جميع الأسماء لا يوجد فيها اس…

الأخوة حياكم الله . الأخ طالب علم مازالت أحاول في طلبك وقد نجح ولكن مازل فيه بعض النقص . الأخ ابن مسقط عيب الكود أنني لم أستطع أن أجعله يظهر رسالة إذا لم يجد اسم بعد ضغط Enter بل يظل صامتا . هل لديك حل لذلك . سأكتب لكم طريقة للبحث ببداية الاسم أو بجزء منه أو ب…

الأخ ابو هادي حياك الله ، والله يعطيك العافية . سبق كتابة عدة طرق في هذا الموضوع انظر الرابط : http://arabteam.nicmatic.com/vb/showthread...16775#post16775 ولك تحياتي

انظر هذا الرابط فسوف تجد فيه مايفيدك : http://arabteam.nicmatic.com/vb/showthread...3?threadid=3609 ولك تحياتي

الأخ benga أنا كثير النسيان ولا أدري هل استلمتها والبريد هالوقت ما فيه شيء ، أعد الإرسال أحسن . ولك تحياتي

الأخ سين ميم مافهمت موضوع الألوان اللي جعلت له الرابط ليتك توضح خلنا نستفيد منك . مع العلم أني حاولت طباعة علاقات قاعدة فأنشئ تقرير جديد وضع فيه مربع قائمة وخطوط سوداء ومربعات عناوين ملونة يمكن تغيير ألوانها . ولك تحياتي

الأخوان ابن مسقط أشرف طلال حياكم الله وأشكركم على تجاوبكم مع الموضوع . الأخ أشرف ملاحظة جيدة منك جعلتني أعدل الكود ليبحث في حقل تتكرر فيه البيانات . اجعل اختيار لوحة المفاتيح سلوك إدخال الحقول بدون تحريك . Private Sub ابحث_عن_KeyUp(KeyCode As Integer, Shift As…

وعليك السلام ورحمة الله وبركاته أهلا وسهلا بك عضو جديد وحياك الله ونفعك ونفع بك . ولك تحياتي

الأخ benga تقبل الله صلاتك ورفع درجتك وأسكنك الجنة . ولك تحياتي

الأخ سين ميم ما هو الأمر الذي يحتاج تنفيذه عندك خمس دقائق في نماذج أكسس . ولك تحياتي

لا والله ما عندي فكرة . ولك تحياتي

الأخ عاصم فيما أعرف أن الكود خاص بنسخ الملفات ولا علاقة له بالتنزيل إلا إذا كنت تقصد النسخ وأبسط طريقة للتأكد من نجاح العملية البحث عن الملف بعد نسخه إلى المجلد المطلوب باستخدام FileExists . الأمر الآخر أيضا ابحث عن المجلد العربي C:Windowsسطح المكتب بأحد الطرق…

— للبحث عن ملف : Set fs = Application.FileSearch With fs .LookIn = "C:My Documents" .FileName = "DO.*" If .Execute > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For I = 1 To .FoundFiles.Count MsgBox .FoundFiles(I) Next I Else MsgBox "…

أظن ولا أدري أنه اللي يجي على بعض البضائع مخطط مكتوب بخط صغير لا تراه العين المجرده وتقراه أجهزة خاصة . ولك تحياتي

لإنشاء مربع نص عندما تكتب فيه يقوم بالبحث في حقل آخر موجود على النموذج بعد كتابة كل حرف فإذا وجد ما يطابق القيمة ينتقل إليه مباشرة ، في حدث عند مفتاح للأعلى ضع الكود التالي مع تغيير الأسماء : ' اسم مربع النص الذي يكتب فيه ابحث_عن واسم الحقل المبحوث فيه الاسم .…

الأخ أشرف المخالفة خطأ مني وهي اسم القائمة عندي أثناء التجربة عدلها إلى اسم القائمة لديك . للحفظ ضع في حدث عند مفتاح للأعلى If KeyCode = 121 And Shift = 0 Then DoCmd.Save End If ولإغلاق النموذج ضع في حدث عند مفتاح للأعلى If KeyCode = 27 And Shift = 0 Then DoCm…

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

الأخ أشرف لقد نسيت هذا السطر وهو يوضع في أول الوحدة النمطية : Const DB_Boolean As Long = 1 فعذرا . والنموذج صممه في القاعدة التي ترغب في التحكم بـ Shift فيها ثم لا قيمة لها إذا شئت احذفه حتى لا يستخدمه المستخدم . ولك تحياتي

الأخ خضرترزي أشكرك كثيرا على هذه المعلومات القيمة . وفقك الله ولك تحياتي

الأخ طلال إن شاء الله الخميس والجمعة منهي النموذج . ولكن فيه بعض العيوب سأوضحها إذا انتهيت لعلنا نجد لها حل . ولك تحياتي