اذهب الي المحتوي

كل الانشطه

هذه الصفحة تحدث تلقائياً     

  1. الساعة الأخيرة
  2. البشمحاسب البشمحاسب changed their profile photo
  3. 11root 11root changed their profile photo
  4. Today
  5. ابو وليد العبدلي
    السلام عليكم ورحمة الله وبركاتة يا شباب ابي وحر يعلمني الماكرو لني مالقيت احد يشرحة كويس فاذا تكرمتم وحدمنكم يشرحلي الماكرو وشكرا لكم
  6. nono2000 nono2000 changed their profile photo
  7. DESHODESO2020 DESHODESO2020 changed their profile photo
  8. عبده عثمان عبده عثمان joined the community
  9. Yesterday
  10. عمرو الجزار عمرو الجزار changed their profile photo
  11. ابراهيم حسين ابراهيم حسين changed their profile photo
  12. محيى الجندى محيى الجندى changed their profile photo
  13. sayed.elgarhy1@GMAIL.com sayed.elgarhy1@GMAIL.com changed their profile photo
  14. محمودرجب محمودرجب changed their profile photo
  15. Mohamed mussad Mohamed mussad joined the community
  16. BRHOOM1402 BRHOOM1402 joined the community
  17. عذاب الزمان
    الاخ خالد .... نعم يعمل ... صح ... لكن ... عند تغيير لون الخلية لا يتاثر العدد او الجمع تلقائيا الا بعد النقر على خلية اللون ثم انتر او باستخدام نسخ التنسيق .... ما طلبته هو ان يتغيير العدد والمجموع بمجرد اعطاء لون للخلية ... تحياتي وشكرا للاهتمام ....
  18. محمد امين بريفكاني started following هدية : مثال تطبيق صلاحات المستخدمين على أزرار التحكم
  19. محمد امين بريفكاني
    وضعت اسم النموذج في الجدول FRMS لكنها لم تظهر في نموذج صلاحيات المستخدمين
  20. امونة محمد امونة محمد joined the community
  21. صالح حمادي started following تصميم تقرير برمجيا
  22. صالح حمادي
    السلام عليكم أخي الكريم هناك بعض الأخطاء في الكود الذي وضعته و سوف أشرحها لك بإذن الله: أولا: أنت تستخدم أكسس عربي و لذلك يجب تغيير هذه الكلمة Detail في السطر الموالي بالكلمة تفصيل .section("Detail").Height = 500 ثانيا: في السطر الموالي و الأسطر المشابهة له احذف علامة الناقص من الكلمة الملونة بالأحمر و اترك acPageHeader فقط Set lblLabel = CreateReportControl(rptCustomers.name, acLabel, -acPageHeader, , , intPosition) ثالثا: في جميع الأسطر المشابهة لهذين السطرين lblLabel.name = "lblContactName”" lblLabel.Caption = "Contact Name”" احذف علامة الاقتباس من التسمية لأنها تعارض قواعد التسميات في الأكسس و أتركها كما يلي: lblLabel.name = "lblContactName" lblLabel.Caption = "Contact Name" و في الأخير هذا هو كودك بعد التصحيح: Sub CreateNewReport() Dim rptCustomers As Access.Report Dim strReportName As String Dim aoAccessObj As AccessObject Dim txtTextBox As Access.TextBox Dim lblLabel As Access.Label Dim strSQL As String Dim intPosition As Integer 'set the name of the new report strReportName = "Customers”" strSQL = "SELECT * FROM Customers ORDER BY CompanyName”" 'delete any existing report with that name For Each aoAccessObj In CurrentProject.AllReports If aoAccessObj.Name = strReportName Then DoCmd.DeleteObject acReport, strReportName End If Next aoAccessObj 'create a new Customers Report Set rptCustomers = CreateReport With rptCustomers 'set the report record source to the SQL Statement .RecordSource = strSQL 'set the height, caption, and other report options .Section("تفصيل").Height = 500 .Caption = "Client Contact List”" End With 'add a Company Name label and text box to the report intPosition = 0 Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "CompanyName", intPosition) txtTextBox.Name = "txtCompanyName" txtTextBox.Width = 1800 Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acPageHeader, , , intPosition) lblLabel.Name = "lblCompanyName" lblLabel.Caption = "Company Name" lblLabel.Height = txtTextBox.Height lblLabel.Width = txtTextBox.Width lblLabel.FontBold = True 'add a Contact Name label and text box to the report intPosition = txtTextBox.Width + txtTextBox.Left + 350 Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "ContactName", intPosition) txtTextBox.Name = "txtContactName" txtTextBox.Width = 1800 Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acPageHeader, , , intPosition) lblLabel.Name = "lblContactName" lblLabel.Caption = "Contact Name" lblLabel.Height = txtTextBox.Height lblLabel.Width = txtTextBox.Width lblLabel.FontBold = True 'add a Contact Title label and text box to the report intPosition = txtTextBox.Width + txtTextBox.Left + 500 Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "ContactTitle", intPosition) txtTextBox.Name = "txtTitle" txtTextBox.Width = 1800 Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acPageHeader, , , intPosition) lblLabel.Name = "lblTitle" lblLabel.Caption = "Title" lblLabel.Height = txtTextBox.Height lblLabel.Width = txtTextBox.Width lblLabel.FontBold = True 'add a Contact Phone label and text box to the report intPosition = txtTextBox.Width + txtTextBox.Left + 1000 Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "Phone", intPosition) txtTextBox.Name = "txtPhone" Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acPageHeader, , , intPosition) lblLabel.Name = "lblPhone" lblLabel.Caption = "Phone" lblLabel.Height = txtTextBox.Height lblLabel.Width = txtTextBox.Width lblLabel.FontBold = True 'save and close the new report DoCmd.Save , strReportName DoCmd.Close End Sub
  23. Majed770 Majed770 joined the community
  24. شاعر النيل شاعر النيل joined the community
  25. أحمد يوسف
    فين ملف العمل ؟!!!!!!!!!!! لا تنتظر المساعدة من أحد بدون الملف
  26. ازهر عبد العزيز
    وعليكم السلام تفضل ياصديقي حمل من هنا حسب نظام الوندوز لديك 64 او 86 http://www.smartpctricks.com/2013/03/how-to-change-windows-7-display-language-to-arabic.html
  27. egylord egylord changed their profile photo
  28. ابو العلاء
    السيد الأستاذ / محمد الدسوقى تم استعمال الكود المرسل من قبلكم ويعطي دائما خطا ولا اعرف السبب
  29. qassim-t
    سؤال رائع,,, خاصة مع كبار السن امثالي لكي يميزوا بالوالوان الكائنات ماهية الاشياء سابحث عن الموضوع واوافيك بالنتيجة ان شاء الله
  30. أحمد يوسف
    لابد من ذكر ما يحتويه هذا الملف والا كانت ملكية خاصية لشخص اخر فلا يمكن فكه بدون علمه وهذا من تعليمات المنتدى
  31. ahmed sebaee
    اعرض الملف برنامج الصادر والوارد عايز افتح الباس ورد بتاع البرنامج عشان نسيته صاحب الملف ahmed sebaee تمت الاضافه 16 يول, 2019 الاقسام قسم الإكسيل
  32. ازهر عبد العزيز
    مرحبا باصديق @qassim-t الغرض من السؤال لدي قاعدة بيانات تحوي تحتوي على مجموعة ضخمة من الجداول والنماذج وحتى الاستعلامات وأريد ان اميز كل مجموعة باللون ليسهل التعامل معها كمثال نماذج الأساتذة عن نماذج عن نماذج الطلاب والماجستير والدكتوراة الخ وكذلك الجداول والاستعلامات أتصور وضحت لك الصورة وشكرا للمورك
  33. ثااقب ثااقب joined the community
  34. يونس الخطابي
    استاذي الفاضل اباجودي المحترم شكرا جزيلا على الورده التي بعثتها لي اخي العزيز : امس حتى الرابعه صباحا وهذا اليوم بذلت عدة محاولات لتشغيل القاعده وفي كل مره افتحها بمجرد الضغط على زر (تصدير السجل الحالي) لايحدث اي اجراء وتتوقف حاسبتي عن العمل نهائيا الا بعد اطفائها واعادة تشغيلها . ولا اعرف سبب ذلك . تحياتي لك اخي العزيز وبانتظار الحل . وانت اخي العزيز Kanory المحترم هل اطلعت على سؤالي اعلاه والمتضمن ((الله يحفظك . بالنسبه لنموذج الوورد الذي عملته لي وشرحته بطريقه رائعه جدا. يخدمني كثيرا لكن فيه غصه وهي كلما اطبقه على نماذجي يظهر لي في الاعلى سطر يتضمن كل معلومات الزبون مدمجه كما مبين ادناه. قمت بما يلي للتخلص منه بان فتحت وورد/ ادراج/ اشاره مرجعيه/ وحذفت كل الاشارات المرجعيه . فالمفروض عند التطبيق مرة ثانيه يظهر الوورد فارغ لكن الذي حصل ايضا يظهر لي السطر المشؤوم الذي يتضمن كل معلومات الزبون مدمجه هل تتكرم علي وتعلمني كيف اتخلص منه . تحياتي لك اخي العزيز )) 1محمد كاظم جمعه الجمعهدهوك - سميل07796835محمد كاظم جمعه الجمعه
  35. ابوعمرو2
    الله يفتح عليك الصراحة روعة ننتظر البرنامج بفارغ الصبر
  36. محمد احمد لطفى
    أستاذى @أبو إبراهيم الغامدي لقد رجعت الى الكود الاول لأنه أفضل و قمت بعمل بعض التعديلات و لكن الأن عند تغيير الاسم باسم موجود تأتى رسالة ان الصورة موجودة و يرجع الى الاسم السابق ارجو من حضرتك تغييرها الى الرسالة التى بالكود التانى تغيير الاسم فقط حاولت كثيراً ولكنى فشلت If MsgBox(Dir(NewImage) & vbNewLine _ & "يوجد صورة سابقة بنفس الاسم.." _ & vbNewLine & "هل تريد تعديل الاسم فقط..", _ 1572868, "تنبيه") = vbYes Then Me.imgWorker.Picture = CurImage Else Me.Undo End If Else Name CurImage As NewImage Me.imgWorker.Picture = NewImage End If مرفق الملف الاخير بعد التعديل وجزاك الله كل خيراً Photo.rar
  37. ابو العلاء
    السلام عليكم ورحمة الله وبركاته المرفق لملفين احدهما BOOK1 لادخال البيانات والاخر Backup data لترحيل البيانات المدخلة علية تم وضع الكود وفي كل مره يعطى خطأ الرجاء المساعدة VER EX.rar
  38. eng.abdelrahim
    السلام عليكم نرجو من أهل الخبرة المساعدة بإيجاد حل لهذه المشكلة عندما أقوم بإدراج تسمية توضيحية للأشكال ضمن الـ word لترقيمها تظهر الأرقام سليمة ولكن عندما أقوم بتحويل الملف إلى pdf يقوم بقلب الكثير من الأرقام إلى أصفار. حاولت أن أطبع الملف كماسح ضوئي وحاولت أن أحفظ الملف بعدة نسخ واصدارات من الـ word ثم تحويلها pdf ولكن دون جدوى أتمنى الإفادة ولكم جزيل الشكر.
  39. ابوآمنة
    أبشرك الأمور طيبة أخونا الطيب/ عبداللطيف لدي ظرف طارئ ، توقفت قليلاً سأواصل - بشيئة الله تعالى - وشكراً لاهتمامك ومتابعتك ،،
  40. محمد صلاح1
    للرفع
  41. عبد اللطيف سلوم
    أيش الأخبار أخونا الغالي ابو آمنة ؟؟ ننتظر البرنامج بفارغ الصبر
  42. الطير المهاجر started following اريد عمل فرز تلقائى للاقدميات
  43. الطير المهاجر
    الأخوة الأعزاء أريد عمل ملف به بعض بيانات الموظفين من ضمن هذة البيانات الدرجه الوظيفية وسنة التخرج أريد عمل معادلة أو كود مجرد كتابة الدرجة الوظيفية وسنة التخرج بيانات هذا الموظف ترحل تلقائيا فى ترتيب التخرج من حيث الدرجة وسنة التخرج مطلوب للأهمية
  44. qassim-t started following هل توجد طريقة لتلوين كائنات النظام للاكسس
  45. qassim-t
    مالذي تستفيد منه اخ ازهر
  46. ازهر عبد العزيز
    الله عليك أستاذ روعة جدا جدا كنت سابقا طرحت سؤال حول تخصصي زر لامر واجابني بعض الاخوه ولكنك ابدعت شكرا جزيلا لك حفظك اللة
  47. مسفر
    لك مني كل الشكر والتقدير استاذي العزيز انتم منبع الجمال نسال الله التوفيق لنا ولكم
  48. ازهر عبد العزيز
    اعتقد ان الموضوع سيكون صعب جدا خصوصا مع اجابتك شاكر مرورك واهتمامك أستاذ جعفر
  49. qassim-t
    لمسات جميلة ورائعة استاذ مسفر
  1. Load more activity


×
×
  • اضف...