اذهب الي المحتوي
أوفيسنا

jjafferr

أوفيسنا
  • Posts

    9980
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    406

كل منشورات العضو jjafferr

  1. هناك العديد من الامثلة على الانترنت ، واليك بعضها: كود: http://www.utteraccess.com/wiki/AddTrustedLocation http://www.tek-tips.com/viewthread.cfm?qid=1718392 https://www.devhut.net/2010/06/23/vbscript-createset-trusted-location-using-vbscript/ معلومات عن كود وبرامج خارجية تقوم بالعمل: http://www.hitechcoach.com/index.php?option=com_content&view=article&id=51:trust-center-in-access-2007-and-2010&catid=61:access-2010 وبرنامج بالمجان: http://www.accessribbon.de/en/?Trust_Center:Trusted_Locations جعفر
  2. وعليكم السلام أخي محمد الصورة على شاشتي بدون اي اهتزاز ، ولكن ، طبيعة الوان الصورة الفاتحة والغامقة تعطي هذا الانطباع الموضوع لا علاقة له بالاكسس ، وانما بالصورة نفسها ، لذا فالحل هو في تغيير الصورة ، او وان كان ولابد من استخدام صورة معينة ، فاعمل مثل ما اخبرتك هنا: ارفق لك هذه الصورة ، وسترى الحركة فيها ، وبعيدا عن الاكسس ، وستلاحظ ان الحركة اكثر في الالوان الفاتحة جعفر
  3. هلا والله أخوي عبدالفتاح
  4. وعليكم السلام مافي داعي تستورد/تجلب الجدول Table1 من قاعدة البيانات db1 الى db2 ، وانما تقدر تربطه فقط جعفر
  5. وعليكم السلام اخي عبدالفتاح مافي داعي للكود من اصله اضف هذا الحقل الى الاستعلام Q_all ، ليحسب عدد حصص المدرسين: sthu88: Nz([sun1]/[sun1],0)+Nz([sun2]/[sun2],0)+Nz([sun3]/[sun3],0)+Nz([sun4]/[sun4],0)+Nz([sun5]/[sun5],0)+Nz([sun6]/[sun6],0)+Nz([sun7]/[sun7],0)+Nz([sun8]/[sun8],0)+Nz([sun9]/[sun9],0)+Nz([mon1]/[mon1],0)+Nz([mon2]/[mon2],0)+Nz([mon3]/[mon3],0)+Nz([mon4]/[mon4],0)+Nz([mon5]/[mon5],0)+Nz([mon6]/[mon6],0)+Nz([mon7]/[mon7],0)+Nz([mon8]/[mon8],0)+Nz([mon9]/[mon9],0)+Nz([tu1]/[tu1],0)+Nz([tu2]/[tu2],0)+Nz([tu3]/[tu3],0)+Nz([tu4]/[tu4],0)+Nz([tu5]/[tu5],0)+Nz([tu6]/[tu6],0)+Nz([tu7]/[tu7],0)+Nz([tu8]/[tu8],0)+Nz([tu9]/[tu9],0)+Nz([wed1]/[wed1],0)+Nz([wed2]/[wed2],0)+Nz([wed3]/[wed3],0)+Nz([wed4]/[wed4],0)+Nz([wed5]/[wed5],0)+Nz([wed6]/[wed6],0)+Nz([wed7]/[wed7],0)+Nz([wed8]/[wed8],0)+Nz([wed9]/[wed9],0)+Nz([thu1]/[thu1],0)+Nz([thu2]/[thu2],0)+Nz([thu3]/[thu3],0)+Nz([thu4]/[thu4],0)+Nz([thu5]/[thu5],0)+Nz([thu6]/[thu6],0)+Nz([thu7]/[thu7],0)+Nz([thu8]/[thu8],0)+Nz([thu9]/[thu9],0) وفي التقرير: اجعل مصدر بيانات الحقل sthu88 تشير الى حقل الاستعلام sthu88 ، واما حقل total ، فاجعل مصدره: =Sum([sthu88]) جعفر
  6. خلاص ولا يهمك 0 ; 0 ; 1.27 او اذا اردت 1.27 ;0 ; 0
  7. المشكلة اني لا اعرف اسم الاعدادات بالعربي غير عرض الاعمدة الى 0 ; 1.27 ; 0 جعفر
  8. غيّر في الاعدادات (لاحظ اول صورة ارفقتها): من .5;.5;.3 الى 0;.5;0 جعفر
  9. تفضل المرفق بعد التعديل 660.1.Test2006.mdb.zip
  10. المنبه لايزال موجودا ، ويعتمد على نوع المتصفح الذي تستعمله ، انا استخدم Chrome وشغال التنبيه تمام جعفر
  11. رجاء تترك ملاحظتك في الرابط ، لأن أخونا ابوخليل صاحب احد الردود ، وان شاء الله سيقوم بالرد عليك جعفر
  12. أخي شفان اذا تشوف طريقتي ، فانا عملت التالي: 1. جعلت 3 اختيارات لكل سطر ، فاصبحت الاختيارات سطرين: السطر الاول: صواب ثم True ثم -1 السطر الثاني: خطأ ثم False ثم 0 2. جعلت الحقل يأخذ قيمته من القيمة الاخيرة -1 او 0 (العمود رقم 3) ، وبهذه الطريقة تفاديت عمل اي تغيير في الكود جعفر
  13. وعليكم السلام هاي سهله ضبط الحقل هكذا: وانسخ القيمة (القيمة في الصورة مقلوبة بسبب الكتابة بالعربي): صواب;True;-1;خطأ;False;0 جعفر
  14. وعليكم السلام في قواعد البيانات ، من الخطأ ان تجمع اكثر من شيء في الحقل ، فيجب ان يكون لكل شيء حقل مستقل لوسمحت تعطينا مجموعة نماذج من البيانات ، لأن لكل نوع طريقة واسلوب جعفر
  15. في هذه الحالة ، لوسمحت ترفق هذه الجزئية من برنامجك والصورة التي بها مشكلة ، وان شاء الله نشوف شو نقدر نعمل جعفر
  16. هذه الرسالة معناها انك تستخدم حروف لا يعرفها وندوز الجهاز!! تأكد ان اللغة الموجدة في الرقم 4 من الرابط ، هي اللغة التي تحتوي على الحروف التي تستخدمها في برنامجك الاكسس جعفر
  17. السلام عليكم كنت استعمل برنامج PowerPoint لعرض مجموعة من الصور ، ولاحظت ان بعض الصور فيها اهتزاز ، الاهتزاز في بعض الصور راجع لخطوط رفيعة بينها الوان اخرى ، وعالجت المشكلة بأحد الطريقتين: 1. زيادة سرعة تحديث الشاشة من 60 Hertz الى 75 ، 2. والطريقة الافضل هي عمل Blur خفيف على الصورة ، حيث انه سيمزج الالوان ببعض قليلا ، وبهذا يمتزج لون الخطوط الرفيعة بالوان الخلفية فيقلل من الاهتزاز. جرب الطريقة الثانية واخبرنا عن النتيجة جعفر
  18. وعليكم السلام أخي حسام واهلا وسهلا بك في المنتدى 1. رجاء مراعاة وضع عنوان للموضوع يدل على محتواه ، حتى يتسنى للجميع معرفته من الوهله الاولى ، 2. قسم الاكسس يوفر لك المساعدة في حل مشاكل البرمجة في الاكسس ، اما اذا اردت الحصول على برنامج جاهز حسب طلبك ، فانصحك بالتالي: أ. البحث في المنتدى عن البرنامج الذي تريده ، فالمنتدى ثري بالكثير من المواضيع والبرامج ، ب. وضع طلبك في قسم الاعلانات الشخصية للأعضاء: https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء/ جعفر
  19. أخي خالد: نعم يمكن تحويل ملف قاعدة البيانات MDB او Accdb الى صيغة تنفيذية exe ، ولكن هذا الملف الجديد الذي بصيغة exe لا يمكنه العمل بدون تنصيب الاكسس او Accsess RunTime. وهذا كان سؤال الاخ محمد جعفر
  20. وعليكم السلام 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 جعفر
  21. وعليكم السلام تفضل هذا الرابط به طريقة غير مألوفة ، وبه رابط آخر للطريقة المألوفة جعفر
  22. وعليكم السلام ماشاء الله ، باين عليه عمل جميل ومتعوب عليه الحمدلله ان مجهودك ومجهود الشباب (طبعا أبوخليل وانا منهم) تم ترجمته بهذه الصيغة الجميلة شكرا جزيلا على مشاركتك ، فنحن لا نعلم ونرى إلا الاسئلة ، ولكن نتيجة الاسئلة مترجمة في برنامج مثل برنامجك ، فنادراً ما نرى جعفر
  23. الحمدلله طريقة عمل فلتر/تصفية/Filter النموذج هو ، انه يضيف الى التصفية كلما طلبت منه تصفيه ، او استخدمت الامر السابق ، لذلك ، واذا اردت تصفية واحدة فقط بإستخدام الزر ، فعليك حذف التصفية السابقة ، ثم عمل تصفية جديدة ، Me.test.Form.Filter = "" Me.test.Form.Filter = "[mdate]>=#" & Date & "#" Me.test.Form.FilterOn = true جعفر
×
×
  • اضف...

Important Information