اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. الساعة الأخيرة
  2. السلام عليكم ورحمة الله وبركاتة يا شباب ابي وحر يعلمني الماكرو لني مالقيت احد يشرحة كويس فاذا تكرمتم وحدمنكم يشرحلي الماكرو وشكرا لكم
  3. Today
  4. Yesterday
  5. الاخ خالد .... نعم يعمل ... صح ... لكن ... عند تغيير لون الخلية لا يتاثر العدد او الجمع تلقائيا الا بعد النقر على خلية اللون ثم انتر او باستخدام نسخ التنسيق .... ما طلبته هو ان يتغيير العدد والمجموع بمجرد اعطاء لون للخلية ... تحياتي وشكرا للاهتمام ....
  6. وضعت اسم النموذج في الجدول FRMS لكنها لم تظهر في نموذج صلاحيات المستخدمين
  7. السلام عليكم أخي الكريم هناك بعض الأخطاء في الكود الذي وضعته و سوف أشرحها لك بإذن الله: أولا: أنت تستخدم أكسس عربي و لذلك يجب تغيير هذه الكلمة 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
  8. فين ملف العمل ؟!!!!!!!!!!! لا تنتظر المساعدة من أحد بدون الملف
  9. وعليكم السلام تفضل ياصديقي حمل من هنا حسب نظام الوندوز لديك 64 او 86 http://www.smartpctricks.com/2013/03/how-to-change-windows-7-display-language-to-arabic.html
  10. السيد الأستاذ / محمد الدسوقى تم استعمال الكود المرسل من قبلكم ويعطي دائما خطا ولا اعرف السبب
  11. سؤال رائع,,, خاصة مع كبار السن امثالي لكي يميزوا بالوالوان الكائنات ماهية الاشياء سابحث عن الموضوع واوافيك بالنتيجة ان شاء الله
  12. لابد من ذكر ما يحتويه هذا الملف والا كانت ملكية خاصية لشخص اخر فلا يمكن فكه بدون علمه وهذا من تعليمات المنتدى
  13. اعرض الملف برنامج الصادر والوارد عايز افتح الباس ورد بتاع البرنامج عشان نسيته صاحب الملف ahmed sebaee تمت الاضافه 16 يول, 2019 الاقسام قسم الإكسيل
  14. مرحبا باصديق @qassim-t الغرض من السؤال لدي قاعدة بيانات تحوي تحتوي على مجموعة ضخمة من الجداول والنماذج وحتى الاستعلامات وأريد ان اميز كل مجموعة باللون ليسهل التعامل معها كمثال نماذج الأساتذة عن نماذج عن نماذج الطلاب والماجستير والدكتوراة الخ وكذلك الجداول والاستعلامات أتصور وضحت لك الصورة وشكرا للمورك
  15. استاذي الفاضل اباجودي المحترم شكرا جزيلا على الورده التي بعثتها لي اخي العزيز : امس حتى الرابعه صباحا وهذا اليوم بذلت عدة محاولات لتشغيل القاعده وفي كل مره افتحها بمجرد الضغط على زر (تصدير السجل الحالي) لايحدث اي اجراء وتتوقف حاسبتي عن العمل نهائيا الا بعد اطفائها واعادة تشغيلها . ولا اعرف سبب ذلك . تحياتي لك اخي العزيز وبانتظار الحل . وانت اخي العزيز Kanory المحترم هل اطلعت على سؤالي اعلاه والمتضمن ((الله يحفظك . بالنسبه لنموذج الوورد الذي عملته لي وشرحته بطريقه رائعه جدا. يخدمني كثيرا لكن فيه غصه وهي كلما اطبقه على نماذجي يظهر لي في الاعلى سطر يتضمن كل معلومات الزبون مدمجه كما مبين ادناه. قمت بما يلي للتخلص منه بان فتحت وورد/ ادراج/ اشاره مرجعيه/ وحذفت كل الاشارات المرجعيه . فالمفروض عند التطبيق مرة ثانيه يظهر الوورد فارغ لكن الذي حصل ايضا يظهر لي السطر المشؤوم الذي يتضمن كل معلومات الزبون مدمجه هل تتكرم علي وتعلمني كيف اتخلص منه . تحياتي لك اخي العزيز )) 1محمد كاظم جمعه الجمعهدهوك - سميل07796835محمد كاظم جمعه الجمعه
  16. الله يفتح عليك الصراحة روعة ننتظر البرنامج بفارغ الصبر
  17. أستاذى @أبو إبراهيم الغامدي لقد رجعت الى الكود الاول لأنه أفضل و قمت بعمل بعض التعديلات و لكن الأن عند تغيير الاسم باسم موجود تأتى رسالة ان الصورة موجودة و يرجع الى الاسم السابق ارجو من حضرتك تغييرها الى الرسالة التى بالكود التانى تغيير الاسم فقط حاولت كثيراً ولكنى فشلت 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
  18. السلام عليكم ورحمة الله وبركاته المرفق لملفين احدهما BOOK1 لادخال البيانات والاخر Backup data لترحيل البيانات المدخلة علية تم وضع الكود وفي كل مره يعطى خطأ الرجاء المساعدة VER EX.rar
  19. السلام عليكم نرجو من أهل الخبرة المساعدة بإيجاد حل لهذه المشكلة عندما أقوم بإدراج تسمية توضيحية للأشكال ضمن الـ word لترقيمها تظهر الأرقام سليمة ولكن عندما أقوم بتحويل الملف إلى pdf يقوم بقلب الكثير من الأرقام إلى أصفار. حاولت أن أطبع الملف كماسح ضوئي وحاولت أن أحفظ الملف بعدة نسخ واصدارات من الـ word ثم تحويلها pdf ولكن دون جدوى أتمنى الإفادة ولكم جزيل الشكر.
  20. أبشرك الأمور طيبة أخونا الطيب/ عبداللطيف لدي ظرف طارئ ، توقفت قليلاً سأواصل - بشيئة الله تعالى - وشكراً لاهتمامك ومتابعتك ،،
  21. أيش الأخبار أخونا الغالي ابو آمنة ؟؟ ننتظر البرنامج بفارغ الصبر
  22. الأخوة الأعزاء أريد عمل ملف به بعض بيانات الموظفين من ضمن هذة البيانات الدرجه الوظيفية وسنة التخرج أريد عمل معادلة أو كود مجرد كتابة الدرجة الوظيفية وسنة التخرج بيانات هذا الموظف ترحل تلقائيا فى ترتيب التخرج من حيث الدرجة وسنة التخرج مطلوب للأهمية
  23. الله عليك أستاذ روعة جدا جدا كنت سابقا طرحت سؤال حول تخصصي زر لامر واجابني بعض الاخوه ولكنك ابدعت شكرا جزيلا لك حفظك اللة
  24. لك مني كل الشكر والتقدير استاذي العزيز انتم منبع الجمال نسال الله التوفيق لنا ولكم
  25. اعتقد ان الموضوع سيكون صعب جدا خصوصا مع اجابتك شاكر مرورك واهتمامك أستاذ جعفر
  1. Load more activity


×
×
  • اضف...