ابوخليل

السلام عليكم اخي عبد الواحد لم اكتب شيئا يدل على الضجر وإنما الانسان يكون مستعجل أو مشغول وعملك يأخذ وقتا فأعطيتك الحلول السريعة كي تحاول معها . نعود فنقول التأسيس الصحيح يجنبك المشاكل المستقبلية دعنا نأخذها واحدة واحدة . أولا : ترتيب القيادات لعلك تذكر حين واجهتك مشكلة في تصفية القيادات وحاولت معك في حلها ولم افلح ثم وجدت الحل أنت ، اذكر حينها أني اقترحت عليك فصل اسم المحافظة والمركز والمدينة في عمود مستقل ولو رجعت اليها الآن لوجدتها. الآن حين قمت بعمل جدول لمسميات القيادات وجعلت الجدول ارئيسي يستقي منه اصطدمت بزيادة البيانات ، والصورة المرفقة تبين لك الواقع . 2 تاريخ الأقدمية: لا اعلم ان كان بالامكان عمل كود يقوم بالفرز من عمودين ان لم يجد في الاول ذهب الى الآخر . وبإمكانك طرح سؤال منفرد بمثال بسيط يحتوي على جدول واحد به عموين وتواريخ . ولكن ان اردت عمل عمود خاص بذلك فهو كالتالي : نفرض ان حقل التاريخ الافتراضي هو f وحق بداية التعيين هو b والحقل الجديد الذي سيجرى عليه الفرز هو N فالمسألة كالتالي : عند حدث فتح النموذج نكتب me.N = me.f if isnull ([f]) then me.N = me.b end if

وعليكم السلام ورحمة الله وبركاته اخي سوف اعطيك ما عندي من اجابةحسب رؤيتي وان بقي شيء أو هناك حلول أخرى فالزملاء هنا لن يتوانو عن المساعدة حقيقة انت جالس تجمع وجبتها مرة واحدة . 1- بالنسبةلترتيب الاقدمية حسب التاريخ فهذه المسألة ليس عندي حل لهاإلا بإنشاء عمود جديد في الجدول ويوضع الشرط عند فتح النموذج ( أ=ب وإذا كان ب خالي فـ أ=ج ) 2- تاريخ الاحالة على المعاش الكود شغال عندي % 3 القيادات يلزم لكل قيادة رقم يعني انت لمتضع جدول للقيادات 4 الترقيم لعلك تريده في التقارير كل ما عليك هو انشاء مربع نص غير منضم واكتب داخله =1

السلام عليكم اجعل هذه في التنسيق yyyy/mm/dd وانظر الصورة

انظر الصورة

اهلا اخوي رياض كل يوم ازداد علما ازداد علما بجهلي انا لي مدة استعمل هذا السطر لاخراج مربع الحوار Public Function SHowPrintDialog() DoCmd.RunCommand acCmdPrint End Function وبعدين تعال ... لا تقيسني على نفسك... الله يحفظك ، انا شيبة .. والحاسب كله تعلمته عن كبر ... يعني المعلومة آخذها اليوم ومن بكرا يخلف الله . ولكن الروح شبابية ، يعني الواحد يشغل نفسه بشي ينفع أحسن .

وفيك فاليبارك الله أخي حاتم اهنئك على حب الاطلاع والمتابعة وأشكرك على المشاركة والتشجيع فأنت المشرف حقا .

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

السلام عليكم مشكور اخي رياض وزيادة الخير خير من غير استعلام هذا كود للبحث في التاريخ كنص يبحث بالرقم الواحد فإذا اراد الشهر والسنة فقط يكتب رقم الشهر والشرطة المائلة والسنة Private Sub find_date_Change() Dim ctc As String * 1 Dim sts As String * 1 ctc = """" sts = "*" Me.find_date.Tag = Me.find_date.Text Me.RecordSource = "SELECT * FROM tbl1 WHERE tbl1.date1 LIKE " & ctc & sts & (Nz(Me.find_date.Tag)) & sts & ctc & "" If Me.RecordsetClone.RecordCount = 0 Then Me.Detail.Visible = False Me.RecordSource = "" Else Me.Detail.Visible = True End If Me.find_date = Me.find_date.Tag Me.find_date.SetFocus SendKeys "{f2}" End Sub

السلام عليكم اظن يا أخي جدول المواد لا يمكن انشاؤه بهذه الطريقة ، جرب واجعل كل مادة في حقل افتح الجدول على التصميم واكتب اسماء المواد في الحقول باللغة الانجليزية واكتب لها تسمية توضيحية وبالنسبة للمراحل وما يخصها من مواد فيتم التحكم به عن طريق النماذج الآن اربط جدول المراحل بكلا الجدولين ، وجدول الاسماء بجدول المواد هذا رأي ومن يرى خلاف ذلك أو لديه زيادة أن لا يبخل على أخينا بالفائدة .

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

الله يسعدك يا عبد الواحد شوف .. حقيقة .. لا أعلم بماذا أجيبك .. انت قلت : (( عندى 29 محافظة مرتبه ترتيبا معينا ( القاهره - حلوان - الجيزه-6 اكتوبر القليوبية 0000الخ ) ماهو الضابط في هذا الترتيب ؟؟ هناك حل حسب تصوري وهو أن تعطي هذه المحافظات ارقام من 1 الى 29 ثم يكون الفرز حسب هذه الرقام .

السلام عليكم طبعا لازم تتعجب ليه الغالب يحضون بالرد وانا لا ؟؟ غالب الاخوان هنا يعملون على الاصدار 2003 وكم كذا مرة اضع الاصدارين على جهازي لمساعدة من يتعاملون مع الاصدار 2007 ولكن لا يستمر الوضع طويلا حيث تنشأ المشكلات مما اضطر احيانا لازالة الاصدارين جميعا ثم العودة لتركيب احدهما وهو في الغالب 2003 آمل ان يكون اتضح لك الأمر تقبل تحياتي ،،،

وهذا نفس المثال طورته قليلا يتم استبعاد رقم واحد عند كل وقوف وسأحاول تطويره كي يقف من نفسه آليا . اخبرني ان كانت الفكرة مقبولة . برنامج القرعة2.rar

دمّر أكثر من 180 موقعاً دنماركياً وكان حديث الصحافة العالمية وفاة أشهر "هكر" سعودي في حادث مروري الأربعاء 03 فبراير 2010 1:41 ص ​سلطان المالكي- سبق- متابعة: توفي قبل أيام أشهر "هكر" سعودي، إثر حادث مروري بمحافظة حفر الباطن، ويُعرف الهكر الأشهر باسم "علوش الحربي"، واسمه الحقيقي سلطان سليمان الحربي وهو من أبناء حفر الباطن، ولقي حتفه وهو في طريقه لعمله الذي التحق به مؤخراً بقاعدة الملك خالد العسكرية بحفر الباطن. السؤال لجميع الاخوة هل هو زميلنا المبدع ، حقيقة ليس له أثر من مدة ... ولكن اللقب أثارني الرجاء ممن يعلم شيئا عن ذلك افادتنا مشكورا .

السلام عليكم ضع المجلد المرفق على سطح المكتب لترى كل شخص امامه صورته ، أو اجلبهامن جديد ان وضعت المجلد في مكان آخر وتنبيه انتهاء الخدمة سيستقبلك عند بدء فتحك للبرنامج ، والنموذج ستارت أب يوجد فيه مشكلة لا ادري من أين ومن اجل الوقت استبدلته بآخر ، واعذرني في سؤالك الأخير حيث لا أعرف نظام الترتيب الاقليمي المطلوب . my email address: mzm1430@gmail.com gyad.rar

بالنسبة الى طلبك الأول افتح نموذج main_data على عرض التصميم وفي المحرر الصق هذه الأسطر : Private Sub Form_Current() On Error Resume Next Me.img.Picture = "" Me.img.Picture = Me.figura End Sub وبالنسبة لطلبك الثاني فالحل موجود فعلا في مثالي السابق كل ما عليك هو نقل مربع النص المخفي SQS والكود الخاص به والموجود في frmA ونقله الى النموذج الرئيسي لديك انظر الصورة

هذا الكود ضعه في المكان الذي تريد لاحظ اني وضعته في حدث بعد التحديث لحقل التلقيح Private Sub التلقيح_AfterUpdate() If Me.[العملية] = "1" And Me.[التلقيح] = "1" And (Me.[التاريخ]) <= Now() Then Me.[المراقبة] = "1" Me.[تاريخ_المراقبة] = Me.[التاريخ] + 18 ElseIf Me.[العملية] = "1" And (Me.[التاريخ] + 28) > Now() Then Me.[تاريخ_المراقبة] = Me.[التاريخ] + 36 ElseIf Me.[العملية] = "1" And (Me.[التاريخ] + 50) > Now() Then Me.[المراقبة] = "2" Me.[تاريخ_المراقبة] = Me.[التاريخ] + 60 End If End Sub

تفضل على طلبك : باعتبار تاريخ موعد التجديد مسجل مسبقا ، ويمكن استبداله بتاريخ نهاية العقد فهذا عملك وأنت أدرى دمت بخير gyadat.rar

السلام عليكم المشكلة من المعيار الموجود في الاستعلام Qu_m انظر الى الصورة المرفقة .

قد يكون برنامجك كبير الحجم اتبع الخطوات التاليية : 1-من شريط الادوات اذهب الى ادوات / ادوات مساعدة لقواعد البيانات / ضغط وإصلاح قاعدة البيانات 2- قبل ارفاق الملف قم بضغطه بأحد برامج الضغط winrar أو winzip

وعليكم السلام 1)بعد كتابة البيانات وعند الحفظ يطلب منى تعيين المفتاح الاساسى فما فائدته وكيفية عمله ج - المفتاح وظيفته تمييز كل سجل عن الآخر حيث يحوي اسما أو رقما فريدا لا يتكرر فيمكنك الوصول الى هذا السجل بعينه وبيسر حتى ولو بلغ عدد السجلات الآلاف 2)هل يمكن جمع اخر ثلاث اعمدة فى الاعدادى ووضع الناتج فى عمود الجملة ج - نعم يمكن 1+1 = 2 انظر النموذج في المثال المرفق 3)هل يمكن عمل قناع للبيانات الموجودة بالملف ومنها يمكن تحديد اسم المدرس ومدرسته وهكذا ج - القناع في الاكسس لتحديد نوع البيانات المدخلة ، واظن انك تريد طريقة خاصة في البحث لتحديد شيء معين ، وكل هذا ممكن فطرق البحث والوصول الى البيانات عديدة . 4)هل يمكن عمل احصائيات ج - يمكن !! لفته / جميع المبدعين في الاكسس لهم سابق خبرة في أكسل أو الفيجوال بيسك وما عداهم فهم مقلدون ككاتب هذه السطور توجيه الرياضة2.rar

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

السلام عليكم تم اضافة حقل للجدول الرئيسي (نعم فقط ) هذه فكرة بإمكانك الزيادة أو الحذف gyadat.rar

السلام عليكم ان اردت ادراج رموز الرياضيات مع الكتابة يلزمك تحويل نوع البيانات للحقل في الجدول الى كائن وكذلك مربع النص في النموذج تبدله الى اطار كائن منظم ، حيث تأتي الكتابة ضمناً من خصاص الكائن في اعلى الاطار . عند عرض النمذج لادخال البيانات اظغط بزر الفارة الأيمن ثم اختر كائن ، ومن مربع الحوار اختر Microsoft Equation 3.0

ضعه في حدث نقر الزر واستبدل "Report" باسم التقرير لديك واستبدل id بالحقل الفريد لديك في كلا الموضعين وهذا مثال يوضح لك ذلك db1.rar