أبو أفنان

أخوتي الكرام تحية طيبة وبعد عند مجموعة كبيرة من الاكواد التي تنفع المبتدي وغيره وقد جمعت هذه الاكواد من فترة طويلة وأريد أن أنشر هذه الاكواد بعد تنقيتها في هذا المنتدى الرائع فما رأيكم ما هي الطريقة الصحيحة في مثل هذه الحاله حيث أن الوورد لا ينفع فكيف أكتبها تحياتي

وهذا كود جميل MsgBox "ÇäÊåÊ ãÏÉ ÇÓÊÎÏÇã ÇáäÓÎÉ ÇáÊÌÑíÈíÉ", vbOKOnly + vbInformation, "Officena" DoCmd.Close DoCmd.Quit End If

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

أخوتي الكرام تحية طيبة لدي مربع تسمية في النموذج بارز وأريد حدث عند الضغط على الماوس يجعله غاطس وحدث أخر عند الرفع عن زر الماوس يجعله بارز لكم التحية

أشكرك أخي محمد دعائي لك بالتوفيق تحياتي

أخي الكريم تحية طيبة حمل الملف بعد التعديل http://www25.brinkster.com/almatanbi/stud2.rar

أخي اكريم لقد عدلت سنة الالتحاق ولكن لم تعمل معي مدة العضوية ولكن ما العلاقة بين تاريخ البداية وبين كل موظف

فعلاً وجدت ضالتي ولكن هل تفظلت وتذكر لنا الكود أحسن الله إليك

أخي الكريم أقصد التعديل على النماذج والتقارير بعد تحويله الى mde هذا الذي أقصده فكيف أمنع ذلك لك تحياتي

أخي أمير عاطف جزاك الله خير على الرابط ولكن أستطعت أن أعدل على مثال أخينا رضا وإذا أردت سوف أرفق الملف بعد التعديل

تفضل الملف بعد التعديل http://www25.brinkster.com/almatanbi/ww.rar ضع هذا في شريط العنوان ثم اضغط انتقال وذلك لتحميل الملف لك تحياتي

تفضل [*]Option Compare Database Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_LOGOFF = 0 Const EWX_FORCE = 4 Private Declare Function ExitWindowsEx Lib "user32" _ (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Sub ÃãÑ8_Click() If Me![ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ6] = "ÎÑæÌ ãä ÇáÈÑäÇãÌ" Then DoCmd.Save DoCmd.Quit Else If Me![ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ6] = "ÇÞÝÇá æäÏæÒ" Then ExitWindowsEx EWX_SHUTDOWN, 1 Else If Me![ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ6] = "ÇÚÇÏÉ ÊÔÛíá" Then ExitWindowsEx EWX_SHUTDOWN, 2 End If End If End If End Sub

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

أشكرك أخينا المشرف الغالي ولكن قمت بعمل استعلام ووضعت فيه المطلوب n1 و n3 و n8 ولكن بمجرد فتح النموذج تظهر البيانات وفيه مشاكل آخرى وقمت بمراجعة الكود وعدلت فيه ليكون كالتالي k.RowSource = "select [n1]&[n3]&[n8]from naem where [n3]like '" & Forms![f7]![a] & "*';" وظهرت جميع البيانات قي القائمة المسماة k ولكن كلها في عمود واحد علماً أنني وضعت عدد الاعمدة في القائمة k ثلاث ووضعت عرض الاعمدة ولكن ظهرت ملتصقة ببعض فهل من حل ولكم التحياتي والتقدير

أخوتي الكرام تحية طيبة هذا كود بحث والنموذج المسمي f7 فيه ثلاث مربع قائمة -غير منظم- k و k2 و k3 k.RowSource = "select [n1]from naem where [n3]like '" & Forms![f7]![a] & "*';" k2.RowSource = "select [n3]from naem where [n3]like '" & Forms![f7]![a] & "*';" k3.RowSource = "select [n8]from naem where [n3]like '" & Forms![f7]![a] & "*';" يكون في القئمة الأولى المسماة n1 K يكون في القئمة الأولى المسماة n3 K2 يكون في القئمة الأولى المسماة n8 K3 والمطلوب هو أن يخرج n1 و n3 و n8 كلها قي القائمة المسماة k

ولكن أخي مصلح جرب ووجدت العكس لعرض الأسماء التي تبدأ بحرف معين أزل علامة النجمة التي في الأول لعرض الأسماء التي تنتهي بحرف معين أزل علامة النجمة التي في الأخير فهل هذا هو الصحيح لك تحياتي

ألف شكر أخي مصلح وجزاك ربي الجنة

الاحبة الكرام تحية طيبة وبعد وجدت هذا الكود وهو يعمل ممتاز جداً ولكن أريد لو أكتب حرف واحد مثلاً حرف ح يخرج جميع الاسماء التي فيها بحرف الحاء والمطلوب أن يخرج الاسماء التي تبدأ بحرف الحاء والكود هو k.RowSource = "select [s]from qwe where [s]like '*" & Forms![f7]![a] & "*' ;" ولكم الحتية

أخوتي الكرام تحية طيبة وبعد لدي جدولين الاول الاباء والثاني الابناء وهناك علاقة بينهما وعملت نموذج تمام التمام والمطلوب نموذج بحث بالاسم بحيث يكتب الاسم في الخانة المحددة ويتخرج نتائج البحث في نموذج فرعي سواء طابق اسم الاب أو الابن أتمنى أن يكون سؤالي واضح ولكم التحية

جزاك الله ألف خير وأحسن إليك

أخوتي الكرام تحية طيبة وبعد لدي نموذج بياناته من جدول ولكثرة بياناته فإنني قمت بتقصيم النموذج الى قسمين ووضعت في النموذج الثاني بعض البيانات وعند رغبة المستخدم للاطلاع على كافة البيانات فقد وضعت زر لفتح النموذج الثاني ووضعت الكود بالشكل التالي 'النموذج المراد فتحه stDocName = "zz" ' الرابط بين النموذجين وهو هنا c1 stLinkCriteria = "[C1]=" & Me![C1] DoCmd.OpenForm stDocName, , , stLinkCriteria ولكن يظهري خطأ في السطر الثالث فما هو الحل حيث أنني أريد في النموذج الثاني أن يفتح فقط تكملة بيانات النموذج الأول

الله يجعلك دائما مطمئن القلب آمين آمين آمين آمين آمين

أخوتي الكرام السلام عليكم ورحمة الله وبركاته وبعد تحية طيبة أريد أن أستفسر عن سعة الجدول الواحد كم سجل يسع ؟ حيث أنه لدي قاعدة فيها أربع جداول رئيسية كل جدول فيه ما يقارب من 60.000 سجل فهل تتحمل القاعدة هذا الكم الهائل من السجلات ؟ وكيف الطريقة لتأمين هذه السجلات من الضياع ؟ وهل لى أن أبدأ بالعمل بهذه القاعد مع وجود هذا الكم الهائل من السجلات وأنا مطمئن ؟ ولكم تحياتي

لك تحياتي أخي WinMaster ونفع الله بك تحية طيبة لك ولجميع المشرفين والاعضاء

أشكرك أخي WinMaster أشكر موصول لمشرفنا الغالي أمير عاطف وosama457 ولك سؤالي أخي WinMaster ما هو اسم النموذج واسم الجدول في الكود تحياتي