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

jjafferr

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    10011

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

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

  • Days Won

    408

 نوع المحتوي 

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

  1. jjafferr
    أحسن الله الينا وادام نعمه علينا جميعا ان شاء الله ، ومن احببنا جعفر
  2. jjafferr
    السلام عليكم أخوي ابوخليل لما تطلع لك نافذة الطباعة: . 1. تقدر تختار عدد صفحات الطباعة: . 2. عندك الخيارات ، حجم الصفحة ، الهوامش (لاحظ الهوامش عندي بالبوصة Inch حسب اعدادات الكمبيوتر) ، والكتابات في اعلا الصحة واسفلها ، وجميع هذه الاعدادات تضبطها لمرة واحدة فقط ، وسيحفظها الكمبيوتر للمرات التالية: . جعفر هذه صورة من الكود الموجود في البرنامج: . 1. نستطيع تغيير نوع الخط Font من هنا ، 2. وحجم الخط ، 3. انا كنت اعمل على عمل حد وبرواز حول الحقول ، ولون البرواز الاسود هو dddddd# ، ثم قمت بتعطيل هذا الكود ، واستبدلت اللون باللون الابيض FFFFFF# ، واستعملت هذا الكود جعفر
  3. jjafferr
    بالفعل ، هذا الموضوع نموذج جدا راقي لتعدد الآراء والاجابات ، حتى انا لم يخطر ببالي طريقة الاستاذ رمهان ولا طريقتك ، فهما مكسب لي الآن ومافي اجابة صح او غلط ، فكل الطرق تعمل ، واختيار الجواب هي حسب حاجة المبرمج والظروف حوله والمستفيد من هذا كله هو كلنا جعفر
  4. jjafferr
    السلام عليكم هذه طريقة عمل صفحة الانترنت webBrowser ، ويجب ان نتأكد من اختيار : . وهذا الكود يقوم بالعمل: Private Sub cmd_ie_Click() ' 'make Reference to Microsoft Internet Controls 'c:\windows\sysytem32\ieFrame.dll ' Dim web As SHDocVw.InternetExplorerMedium Set web = New SHDocVw.InternetExplorerMedium Dim HTML_File As String 'url header webBody = "<html style='width: 100%; height: 100%;'>" & vbCrLf webBody = webBody & "<head><style>" & vbCrLf '1 here we can change the Font Type, and Font size webBody = webBody & "table {font-family: arial, sans-serif; font-size:15px;border-collapse: collapse; width: 100%;}" & vbCrLf '2 here we can change cell border size, border color, Text alignment 'with black border 'webBody = webBody & "td, th {border: 1px solid #dddddd; text-align: center; padding: 8px;}" & vbCrLf 'without black border webBody = webBody & "td, th {border: 1px solid #FFFFFF; text-align: center; padding: 8px;}" & vbCrLf webBody = webBody & "</style></head><body>" & vbCrLf webBody = webBody & "<table style='width: 100%; height: 100%;'>" & vbCrLf 'How many Rows For i = 1 To Me.Rows 'to create the Table Row webBody = webBody & "<tr>" 'How many columns For j = 1 To Me.columns 'make each cell webBody = webBody & "<th>" & Me.co1.Column(1) & "</th>" Next j 'close the Table Row webBody = webBody & "</tr>" & vbCrLf Next i 'close the HTML code webBody = webBody & "</table></body></html>" 'Debug.Print webBody 'save the HTML file HTML_File = Application.CurrentProject.Path & "\524.webBody.html" Open HTML_File For Output As #1 Print #1, webBody Close #1 'make an IE web.Navigate HTML_File 'wait until the page if fully loaded Do While web.ReadyState <> READYSTATE_COMPLETE Loop web.Stop 'print preview web.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT web.Quit Set web = Nothing End Sub . ولأن العمل كان بالـ HTML ، وانا لا افهم فيه ، فأخذ مني هذا الوقت الكود يعمل ملف مؤقت في مجلد البرنامج ، اسمه 524.webBody.html ونستطيع ان نحذفه برمجيا كلما اغلقنا البرنامج. جعفر 524.2.rep2.mdb.zip
  5. jjafferr
    وعليكم السلام أخي صالح بالفعل فكرة جديدة ، وخارج عن المتعارف بس لو تسمح لي اقترح التالي: اعمل الحقول يدويا في التقرير ،وضبط المسافات ، واعطها ارقام مسلسله ، وعلى اساس العدد المطلوب ، اجعل بقية الحقول مخفية جعفر
  6. jjafferr
    تمام ، يعني انا مسؤوليتي العدد فقط جعفر
  7. jjafferr
    وعليكم السلام هذه عندي من سنين ، ولا اعرف من اين اتيت بها ، ولم استعملها ، ولا اعرف استعمالها ، ولا ولا .... ، يعني لا تسألني اي شئ عنها جعفر ShapedForm2k.zip wipeeffects2k.zip
  8. jjafferr
    أخي الحسام احب ان اشكرك على ردودك السريعة ، واجاباتك الواضحة ، فانت ساعدتني على حل الاشكال جعفر
  9. jjafferr
    الحمدلله بعض الاوقات الامر currentdb.execute ما يشتغل لسبب او آخر ، وهو يعمل عمل مجموعة مختلفة من اوامر تشغيل الاستعلامات ، ولكنه يعمل ولا يخبرك اذا كان في اخطاء في الاستعلام ، بينما الامر الآخر docmd.runsql او docmd.openquery ، فانها تخبرك اذا في خطأ ، وتعطيك رسائل التحذير ايضا ، والتي يجب ان نتغلب عليها ، هكذا: docmd.setwarnings false docmd.runsql ("UPDATE esfatora SET done =" & Not Me.done) docmd.setwarnings true جعفر
  10. jjafferr
    طيب ممكن توضح اكثر ، ماذا يحدث لما تشغل الكود الذي يشتغل على الاستعلام ، وبالتفصيل؟ جعفر بدل الكود السابق ، استعمل هذا الكود ، واخبرني الخطأ الذي يعطيك: docmd.runsql ("UPDATE esfatora SET done =" & Not Me.done) جعفر
  11. jjafferr
    1. نعم 2. نعم ، حل الاستعلام اللي ما اشتغل عندك طيب ، ممكن تخبرني ما هو مصدر النموذج ؟ جعفر
  12. jjafferr
    في هذه الحالة يجب ان تستعمل الطريقة رقم 1 في اول مشاركة لي جعفر
  13. jjafferr
    حيالله اخونا العود هذا اللي كنت اقصده لما قلت: اما بالنسبة الى المستخدم ، فلن يتدخل في شئ ، والكود المفروض يعمل الشغل كله ، بس لوسمحت تعطيني الاحتمالات ، وان شاء الله اشتغل على الموضوع اما بالنسبة للجدول المؤقت (وطبعا هذه الطريقة الاسهل) ، فالطريقة التي استعملها ، هي ان اعمل برنامج mdb خارجي وفيه الجدول المؤقت ، وبربط الجدول او حتى عن طريق الاستعلام بهذا الجدول الخارجي ، وتكون البيانات جاهزة للعمل كما قمت انت العمل عليها سابقا ، واخي صالح وفكرة اخونا رمهان انت اختار ، واحنا ننفذ ان شاء الله جعفر
  14. jjafferr
    السلام عليكم شباب في الواقع عندي حلين غير الجدول المؤقت (انا شخصيا احاول الابتعاد عنه ، لأن تعبئتة ، وحذف البيانات ، وتعبئته ... ، يجعلون البرنامج يكبر بحجمه ، وبالتالي يحتاج الى ضغط لإرجاعه لحجمه العادي) ، الحل الاول: استعمال الاستعلام Union النتيجة: . والحيلة هي تكرار استعلام واحد فقط بعدد المرات التي ارادها اخوي أبوخليل: . واضطررت استخدام 3 استعلامات ، لأن استعلام Union ما رضى بالـ 65 استعلام داخل استعلام واحد طبعا هذه محاولة مبدئية ، فاذا اخوي أبوخليل اراد المضي في هذا الطريق ، فسأحتاج معلومات اكثر علشان اصقل الجواب اما الطريقة الثانية ، واللي سأبدأ المحاولة فيها ، هي استعمال WebBrowser داخل التقرير ، وعمل عدد الحقول فيها مرة واحدة جعفر 524.rep.mdb.zip
  15. jjafferr
    تفضل الكود يشتغل ، بس بسبب انك كنت علامة صح بالكود القديم ، فالجدول كله عليه علامة صح ، انا الغيت الصح من الجدول بالكامل ، وارفقت لك البرنامج بكود الاستعلام جعفر 523.Selection.accdb.zip
  16. jjafferr
    وعليكم السلام هذا الرابط للأكسس 2007 فما فوق: https://support.office.com/en-us/article/Create-custom-menus-and-shortcut-menus-by-using-macros-5bd538ff-19c4-4dfe-9540-3309aebf8a1a?CorrelationId=efc3d151-69a4-4453-8686-d8a378a3c6ca&ui=en-US&rs=en-US&ad=US&ocmsassetID=HA010282509 جعفر
  17. jjafferr
    وعليكم السلام الكود السابق كان يستعمل سجلات الجدول fatora ، بينما الكود التالي يستخدم سجلات مصدر النموذج ، والذي هو الاستعلام esfatora : CurrentDb.Execute ("UPDATE esfatora SET done =" & Not Me.done) جعفر
  18. jjafferr
    السلام عليكم تم تغيير الكود الى: Option Compare Database 'have the value of show_Footer availabe, always in the Report Private show_Footer As Integer 'if we have the GroupFooter visible, we turn PageFooter items invisible Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer) show_Footer = 1 End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) If show_Footer = 1 Then Cancel = True show_Footer = 0 End If End Sub Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) ' If Me.RowCount Mod 47 = 0 Then ' Detail.ForceNewPage = 2 ' after section ' Else ' Detail.ForceNewPage = 0 ' none ' End If End Sub . جعفر 521.1.Sheet.accdb.zip
  19. jjafferr
    وعليكم السلام الرابط التالي فيه برنامج فنادق مجاني http://www.access-diva.com/dm13.html جعفر
  20. jjafferr
    السلام عليكم كود بسيط وعمل جبّار شكرا أخي صالح على مشاركتك جعفر
  21. jjafferr
    نعم انا فهمت قصدك من البداية ، شكرا جعفر
  22. jjafferr
    حيا الله اخوي شفان للعلم ، وهذا الكود كذلك يعتمد على الامر Not الشئ الذي يجب ان يكون على بالنا وقت المشاركة في اي من المواضيع: هذا المنتدى للتعلّم وتعليم الاخرين ، لذلك ، بعض الاوقات ترى اني اضع اكثر من طريقة لحل الموضوع ، وبعض الاوقات اضع توضيح لكل سطر ، وبعض الاوقات افكك الحل لأسطر اكثر حتى يكون سهل على الشباب تغييره لاحقا ، وبعض الاوقات تحذير عن الوقوع في خطأ ومثل ما هو مكتوب في اسفل مواضيعي: في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، هو فائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال ، ونتعلم خبايا البرمجة فبمشاركة الاخ صالح ، اصبح هذا الموضوع اكثر اثراءً جعفر
  23. jjafferr
    هلا والله جعفر
  24. jjafferr
    التعديل جميل ايش رايك نقلل الكود الذي وضعته انت ، بواسطة الامر Not ، ومعناه ، غيّر القيمة الحالية الى القيمة التي ليست فيه: Dim f As Boolean Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount f = rst!done For i = 1 To RC rst.Edit rst!done = Not f rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub . جعفر ونعم كنت على علم بهذا ، ولكني كنت اعتقد بأن المبرمج كان سيقفل على المستخدمين تغيير الحقل يدويا ، وبالتالي تكون المشكلة تم حلها ولكن ، وحتى بالحليين (الحل الثاني الذي تركته انا في الكود الاصلي) ، وحتى الطريقة التي تفضلت بها انت ، فنحن نعتمد على قيمة اول حقل ، وربما لم يكون صحيحا ، لذا سيضطر المستخدم الى الضغط على زر التغيير مرتين (بعض الاوقات للحصول على القيمة الصحيحة) جعفر
  25. jjafferr
    وعليكم السلام تفضل Private Sub cmd_Select_All_Click() '1 ' Dim rst As DAO.Recordset ' Set rst = Me.RecordsetClone ' rst.MoveLast: rst.MoveFirst ' RC = rst.RecordCount ' ' For i = 1 To RC ' rst.Edit ' rst!done = Not rst!done ' rst.Update ' ' rst.MoveNext ' Next i ' ' rst.Close: Set rst = Nothing '2 CurrentDb.Execute ("UPDATE fatora SET done =" & Not Me.done) Me.Requery End Sub . جعفر
×
×
  • اضف...

Important Information

  I accept