jjafferr

تفضل المرفق بعد التعديل 660.1.Test2006.mdb.zip

المنبه لايزال موجودا ، ويعتمد على نوع المتصفح الذي تستعمله ، انا استخدم Chrome وشغال التنبيه تمام جعفر

رجاء تترك ملاحظتك في الرابط ، لأن أخونا ابوخليل صاحب احد الردود ، وان شاء الله سيقوم بالرد عليك جعفر

أخي شفان اذا تشوف طريقتي ، فانا عملت التالي: 1. جعلت 3 اختيارات لكل سطر ، فاصبحت الاختيارات سطرين: السطر الاول: صواب ثم True ثم -1 السطر الثاني: خطأ ثم False ثم 0 2. جعلت الحقل يأخذ قيمته من القيمة الاخيرة -1 او 0 (العمود رقم 3) ، وبهذه الطريقة تفاديت عمل اي تغيير في الكود جعفر

وعليكم السلام هاي سهله ضبط الحقل هكذا: وانسخ القيمة (القيمة في الصورة مقلوبة بسبب الكتابة بالعربي): صواب;True;-1;خطأ;False;0 جعفر

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

في هذه الحالة ، لوسمحت ترفق هذه الجزئية من برنامجك والصورة التي بها مشكلة ، وان شاء الله نشوف شو نقدر نعمل جعفر

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

السلام عليكم كنت استعمل برنامج PowerPoint لعرض مجموعة من الصور ، ولاحظت ان بعض الصور فيها اهتزاز ، الاهتزاز في بعض الصور راجع لخطوط رفيعة بينها الوان اخرى ، وعالجت المشكلة بأحد الطريقتين: 1. زيادة سرعة تحديث الشاشة من 60 Hertz الى 75 ، 2. والطريقة الافضل هي عمل Blur خفيف على الصورة ، حيث انه سيمزج الالوان ببعض قليلا ، وبهذا يمتزج لون الخطوط الرفيعة بالوان الخلفية فيقلل من الاهتزاز. جرب الطريقة الثانية واخبرنا عن النتيجة جعفر

وعليكم السلام أخي حسام واهلا وسهلا بك في المنتدى 1. رجاء مراعاة وضع عنوان للموضوع يدل على محتواه ، حتى يتسنى للجميع معرفته من الوهله الاولى ، 2. قسم الاكسس يوفر لك المساعدة في حل مشاكل البرمجة في الاكسس ، اما اذا اردت الحصول على برنامج جاهز حسب طلبك ، فانصحك بالتالي: أ. البحث في المنتدى عن البرنامج الذي تريده ، فالمنتدى ثري بالكثير من المواضيع والبرامج ، ب. وضع طلبك في قسم الاعلانات الشخصية للأعضاء: https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء/ جعفر

تمام

وعليكم السلام تفضل: جعفر

أخي خالد: نعم يمكن تحويل ملف قاعدة البيانات MDB او Accdb الى صيغة تنفيذية exe ، ولكن هذا الملف الجديد الذي بصيغة exe لا يمكنه العمل بدون تنصيب الاكسس او Accsess RunTime. وهذا كان سؤال الاخ محمد جعفر

وعليكم السلام 1. يجب تعطيل X النموذج من اعدادات النموذج ، 2. عمل زر لإغلاق النموذج ، 3. استعمال هذا الكود: كود زر اغلاق النموذج Private Sub cmd_close_Click() Call Form_BeforeUpdate(False) End Sub Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo err_Form_BeforeUpdate Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or _ ctl.ControlType = acOptionGroup Or _ ctl.ControlType = acComboBox Or _ ctl.ControlType = acListBox Then If Len(ctl.Value & "") = 0 Then MsgBox "رجاء ادخال بيانات في الحقل " & vbCrLf & ctl.Name ctl.SetFocus Exit Sub End If 'Len End If 'ctl Next DoCmd.Close Exit_Form_BeforeUpdate: Exit Sub err_Form_BeforeUpdate: If Err.Number = 2501 Then Resume Exit_Form_BeforeUpdate Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

وعليكم السلام تفضل هذا الرابط به طريقة غير مألوفة ، وبه رابط آخر للطريقة المألوفة جعفر

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

الحمدلله طريقة عمل فلتر/تصفية/Filter النموذج هو ، انه يضيف الى التصفية كلما طلبت منه تصفيه ، او استخدمت الامر السابق ، لذلك ، واذا اردت تصفية واحدة فقط بإستخدام الزر ، فعليك حذف التصفية السابقة ، ثم عمل تصفية جديدة ، Me.test.Form.Filter = "" Me.test.Form.Filter = "[mdate]>=#" & Date & "#" Me.test.Form.FilterOn = true جعفر

وعليكم السلام وتأكيدا لما تقول ، وبإختصار: لا يمكن استعمال الاكسس بدون تنصيب الاكسس او Accsess RunTime. جعفر

نعم شيء من هذا القبيل Me.test.Form.Filter = "[mdate]=#1-2-2017#" Me.test.Form.FilterOn = True جعفر

تفضل Function Control_Names(frm As Form) Dim ctl As Control Dim ctl2 As Control For Each ctl In frm.Controls If ctl.ControlType = acSubform Then 'subform For Each ctl2 In frm(ctl.Name).Form Debug.Print "Forms!" & frm.Name & "!" & ctl.Name & "!" & ctl2.Name Next Else 'normal Form objects Debug.Print "Forms!" & frm.Name & "!" & ctl.Name End If Next ctl End Function وتناديها call Control_Names(me) جعفر

هلا ومرحبا

بدون عرض الخلايا الفارغة: في الاستعلام ، في حقل التاريخ ، في سطر Criteria ، اكتب التاريخ الذي تريده او الاشارة الى الحقل في النموذج. جعفر

سؤالك كان ، وعليه وضعت لك الرد: اما الآن فانت تقول غير هذا: جعفر

وعليكم السلام اعمل زر في النموذج ، وضع عليه هذا الكود ، وسيعطيك جميع اسماء الكائنات في النموذج: Dim ctl As Control For Each ctl In Me.Controls 'If ctl.ControlType = acTextBox Then MsgBox "Forms!" & Me.Name & "!" & ctl.Name 'End If Next اما اذا اردت معرفة كائنات نموذج آخر ، فضع الكود التالي في وحدة نمطية: Function Control_Names(frm As Form) Dim ctl As Control For Each ctl In frm.Controls 'If ctl.ControlType = acTextBox Then MsgBox "Forms!" & frm.Name & "!" & ctl.Name 'End If Next End Function ثم تناديها من اي نموذج ، وترفق اسم النموذج الذي تريد معرفة كائناته call Control_Names("frm_Main") واذا اردت معرفة كائنات جميع النماذج في قاعدة البيانات ، فضع الكود التالي في وحدة نمطية: Function DB_Form_Control_Names2() Dim AccObjects As Object Dim frm As Form Dim ctl As Control For Each AccObjects In CurrentProject.AllForms Set frm = Forms(AccObjects.Name) For Each ctl In frm 'If ctl.ControlType = acTextBox Then MsgBox "Forms!" & frm.Name & "!" & ctl.Name 'End If Next Next End Function وتناديها من اي نموذج هكذا: call DB_Form_Control_Names2 جعفر