jjafferr

المشكلة اني لا اعرف اسم الاعدادات بالعربي غير عرض الاعمدة الى 0 ; 1.27 ; 0 جعفر

غيّر في الاعدادات (لاحظ اول صورة ارفقتها): من .5;.5;.3 الى 0;.5;0 جعفر

تفضل المرفق بعد التعديل 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 ، اكتب التاريخ الذي تريده او الاشارة الى الحقل في النموذج. جعفر