ابوخليل

اهلا اخوي رياض كل يوم ازداد علما ازداد علما بجهلي انا لي مدة استعمل هذا السطر لاخراج مربع الحوار 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

Dim stDocName As String stDocName = "Report" DoCmd.OpenReport stDocName, acPreview, WhereCondition:="id = " & Me.id

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

logo.rar

رررررر.rar