نجوم المشاركات

السلام عليكم تم عمل المطلوب في الملف بالتعديل على كود حدث الشيت 1 بتغيير رقم اللون إلى الرقم 3 (اللون الأحمر) بدلا من الرقم المتغير Target.Row (المتعلق برقم صف الخلية النشطة)... تم إضافة طريقة أخرى في الشيت 2 باستعمال "التنسيقات الشرطية" من عمل قدمته سابقا في الموضوع الذي رابطه تلوين صف وعمود عند الوقوف على خلية مع بعض التعديلات ليتناسب مع ملفك (حتى بهذه الطريقة لا يمكن الاستغناء عن VBA راجع الموضوع بالرابط السابق)، يمكن أيضا مراجعة موضوع الأخ العزيز ياسر خليل أبو البراء على الرابط التالي تحديد صف وعمود الخلية النشطة... أرجو أن يفي الموضوع بالغرض... بن علية حاجي Aziz2.rar

السلام عليكم تعديل على ملف الأخ mohamed elforse أرجو أن يفي بالغرض.... بن علية حاجي المصنف1_3.rar

يجب ان يتم تحديث البيانات في الجدول لكي يحسبه والا سيحسب بيانات في الجدول قبل تحديث ... اي سيعطيك نتيجة غير صحيحة تقدر تستخدم هذا السطر بدل سطر حفظ السجل لكن لا اظن ان هناك فرق بينهما لهذا الامر DoCmd.RunCommand acCmdRefresh

حبيبنا المعذرة كنت ارفقت لك مثالك الاصلي تفضل التعديل db1.rar

تفضل التعديل في قيمة مربع نص.rar

لسلام عليكم موعدكم شبه الأسبوعى مع شروح أكسيس الاحترافية هذه المرة الفيديو ليس احترافيا بل هو فيديو أساسى لمن يريد تصميم قاعدة بيانات قوية البنيان يمكنك أن تعرف متفرقات كثيرة فى أكسيس لكن بدون ما تتعلمه من هذين الفيديوهين تبقى دائرا في حلقة مفرغة هما فيديوهان الأول تفكير خارج أكسيس بهدوء قبل الدخول بشاشة أكسيس ==== وصف الفيديو بصندوق الوصف بيوتيوب== الكنز فى تصميم قاعدة البيانات الإطار النظرى لقاعدة البيانات قبل فتح الأكسيس بعد فهم هذا الفيديو و السابق له ستقطع خطوات كبيرة فى فهم الأكسيس راجع الفيديو الثانى العملى ===== الفيديو النظرى الأول الثانى

اخواني الاكارم البرنامج التالي يخص محلات بيع النظارات و اطباء العينية و هو مأجور و ليس مجاني الأجرة ( دعوة صالحة لي و لمعلمي ( أبو آدم )) :rol: اترككم مع المرفق و انا بانتظار الردود ( في حال وجود خطأ لا سمح الله ) -------------------------------------------------------------------------------------------------------------------------- اعتذر لجميع الاخوة يرجى اضافة المرفق التالي مع المرفق الأول وهو وحدة نمطية لمنع التحرك بين السجلات عن طريق دولاب الفارة فقط استخرج المف المرفق وضعه في فولدر البرنامج MyCustomerData.rar std.rar

السلام عليكم. من المعروف أن الدلفي يستخدم لغة الباسكال الإجرائية. لذلك سوف أقوم بشرح أهم النقاط التي يحتاجها المبرمج لبداية كتابة الأكواد البرمجية في الدلفي: التصريحات: في هذا الجزء يعلن عن الثوابت و المتغيرات الضرورية لحل مشكل ما: 1- تعريف المتغير: هو خانة في الذاكرة تستعمل لحفظ قيمة و يمكن تغييرها حسب الحاجة. صيغة التصريح بالمتغير: Var variable1,variable2,.....variableN:Type; Type: نوع المتغير variable1,variable2,.....variableN:أسماء المتغيرات مثال: Var A,B,C:integer; أنواع المتغيرات: المتغيرات الرقمية: shortint: عدد صحيح قصير من -127 إلى 127 Byte: من 0 إلى 255 integer: عدد صحيح من -32768 إلى 32767 word: من 0 إلى 65535 longint: عدد صحيح طويل من -2147483648 إلى 2147483647 real: عدد حقيقي من 2.9x10^-39 إلى 1.7x10^38 double: من 5x10^-324 إلى 1.7x10^308 extended: من 1.9x10^-4951 إلى 1.1x10^-4932 المتغيرات النصية: char: حرف واحد string: سلسلة أحرف نصية المتغيرات المنطقية: boolean: قيمة منطقية true أو false 1- تعريف الثوابت: هو خانة في الذاكرة تستعمل لحفظ قيمة حيث تعطى قيمة ثابتة في البداية و لا يمكن تغييرها. صيغة التصريح بالثابت: Const identificateur=Value; مثال: Const Pi=3.14; R=10.75;

وفقك الله أخ شيفان دائما سباق للمساعدة جارى الاطلاع

استأذن من استاذنا ابوخليل هو مصدر المربع النصي مثلا استاذنا استخدمت هذا الكود If [code_sub] = 1 Then TT1.ControlSource = "N_Ar_1" If [code_sub] = 2 Then TT1.ControlSource = "N_Ma_1" If [code_sub] = 3 Then TT1.ControlSource = "N_En_1" اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Ar_1 اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Mr_1 اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Er_1 الى اخره

السلام عليكم تم تعديل معادلة حساب المتوسط الحسابي للمبيعات خلال العام المختار.... بن علية حاجي المصنف1_4.rar

السلام عليكم و رحمة الله و بركاتة تم عمل المطلوب باستخدام ملف الاستاذ الكبير بن علية حاجي و ذلك لاعجابي الشديد بالملف ارجو ان ينول كل المطلوب الملف المرفق : المصنف1.rar

السلام عليكم ورحمة الله وبركاتة حل اخر تفضل يا اخي الكريم ارجو ان يكون هذا هو المطلوب الملف المرفق : المصنف1.rar

يارب يعزك يا اخي شفان

السلام عليكم معادلات النص هي معادلات صفيف (يجب تأكيدها بواسطة CTRL+SHIFT+ENTER) قبل سحبها للأسفل ومعادلات الأرقام تظهر الخطأ في حالة ما إذا كانت العبارة لا تحوي أرقاما أو كانت تحوي أرقاما متبوعة بنص وقد قمت بإضافة الدالة IFERROR في المعادلات لتجنب هذا الخلل... تجد كل ذلك في الملف المرفق... بالنسبة للبيانات لا نريد الملف كله بل جزء منه لمعرفة التنسيقات (خاصة عمودي التاريخ والقيم التي تم فصلها) التي عليها سنضيف معادلات حساب أعلى وأدنى قيمة والمتوسط الحسابي لعام محدد... بن علية حاجي المصنف1_2.rar

السلام عليكم ورحمة الله وبركاته سلام خاص للغائبين هناك احتمال ان يفيدك هذا الموضوع لاستاذنا @jjafferr لان فیھا انت تختار الحقول الاستعلام ... ای تقدر بعد اختیار الحقول ان تصدیرھا الێ اکسل والله يعلم

اتفضل الك هذا الكود عند الفتح النموذج اكتب هذا الكود او غيره في خصائص النموذج Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub اذا تريد ان تعطل زر الكيبور ديليت فقط اليك هذا Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDelete Then KeyCode = 0 '46 delete End Sub او اذا تريد تعطل كلا الزرين ديليت و باك سبايس لان باك سبايس اليك هذا الكود Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDelete Or KeyCode = 8 Then KeyCode = 0 End Sub

اذاً ... حمل المرفق في مشاركة استاذ @jjafferr احمله وفتحه واذا احتاجت شيء راح اشرح لك ان شاء الله

السلام عليكم تعديل على ملف الأخ ahmedkamelelsayed0 مع إضافة كود لطباعة بطاقات كل الطلبة مهما كان عددها... أرجو أن يفي الغرض بن علية حاجي كشف مناداة.rar

السلام عليكم اخي @غريب طرابلس يوجد قسم اعلانات شخصية للاعضاء ، والذي تستطيع ان تعرض برامجك للبيع ، مع مراعاة وضع طريقة الاتصال بك في الموضوع: https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء/ وشكرا اخي @صالح حمادي وانا ذكرت هذه الطابعة في المادة هـ.3. جعفر

اخي @AboSaad17 السلام عليكم ورحمة الله وبركاته هل تعرف ما هو عمل ذلك السطر من الكود ؟ ذاك السطر هو لايقاف الكتابة بعد تحديث الاول للنموذج ... لذا ممكن تخبرنا ماذا تريد بالضبط ... حسب فهمي حضرتك ما محتاج لهذا الكود فقد قم بحذف ذاك السطر وايضا سطر اللی یبدأ بـ DOCMD انا عطيتك ذاك الكود بعد تحديث لحقل صحابة لكن بعد اضافة حقل التاريخ انا عطيتك السطر الاخير من الكود فقد في حدث بعد تحديث النموذج

تم التعديل بعد الترحيل سيتم مسح رقم التسلسل من البيانات المرحلة حتى لا يتم ترحيلها مرة أخرى تفضل النقل2.rar

السلام عليكم اهلا وسهلا بك في المنتدى رجاء مراعاة قوانين المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع سيتم غلقه ، فرجاء عمل موضوع جديد ، مع مراعاة الشروط اعلاه. جعفر

بارك الله فيك وجزاك الله خير اخي الفاضل عبدالله مثال جدا رائع ومفيد وفقك الله

جزاكما الله خيرا ونفع بكما

عليكم السلام اولا تغير Private الى Public حتى تستطيع بقية كائنات الاكسس رؤيتها ، public Sub Form_Current() ثم تستعمل الكود التالي عند مناداة ذلك الحدث: Form_Forme_Fatora. وسيعطيك الاكسس جميع الخيارات التي تستطيع التحكم فيها لذلك النموذج ثم سترى Form_Current() ليصبح الكود عندك Form_Forme_Fatora.Form_Current() . جعفر

السلام عليكم ورحمة الله وبركاته اريد ان اهدى هذه الهدية الى من يحتاج له الى كل اساتذي في المنتدى الى كل عضو وهو نموذج بسيط لكي يغير في دقة الشاشة عند فتح البرامج و عند اغلاقه اي بإمكان ان نغير سكرين ريليشن عند فتح النموذج الاول من البرامج وعند اغلاق البرامج يرجع سكرين ريليشن اي دقة الشاشة الى وضعه الطبيعي لا اريد ان اطول عليكم اتفضلوا مع القاعدة ChangeAndGetScreenResolution.rar ChangeAndGetScreenResolution2003.rar

الاسم : صالح حمادي تاريخ الميلاد : 25 / 02 / 1988 البلد : الجزائر - ولاية الوادي المهنة: أستاذ مادة رياضيات التعليم : ليسانس مراقبة و تشخيص الأنظمة الكهربائية 2009 + ماستر شبكات كهربائية 2011 الحالة الاجتماعية : متزوج و قد وهبني المولى عز وجل طفلة في هذه الأيام و قد سميتها على بركة الله "غفران" معلومات أخرى : أهوى لغات البرمجة (VB.net و Delphi) و الأوفيس بشكل عام و الأكسس بشكل خاص

أخي الكريم جمال محمود في ورقة العمل المسماة "All" قم بحذف الصفوف كلها بداية من الصف السادس إلى آخر صف .. وحول الجدول إلى نطاق عادي ثم ضع الكود التالي في موديول عادي ثم نفذ الأمر .. Sub YasserKhalil() Dim Ws As Worksheet, Sh As Worksheet Dim LR As Long, Last As Long Set Sh = Sheets("All") Application.ScreenUpdating = False Application.DisplayAlerts = False With Sh .Range("A6:G10000").Clear 'حلقة تكرارية لكل أوراق العمل لجلب البيانات من الأعمدة المحددة For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "All" Then LR = Ws.Cells(Rows.Count, 1).End(xlUp).Row Last = .Cells(Rows.Count, "B").End(xlUp).Row Ws.Range("E2:I" & LR).Copy .Range("B" & Last + 1).PasteSpecial xlPasteValues End If Next Ws Last = .Cells(Rows.Count, "B").End(xlUp).Row + 1 'وضع عبارة "تم التقدير" في العمود السابع .Range("G6:G" & Last).Value = "تم التقدير" 'ترقيم العمود الأول With .Range("A6:A" & Last + 1) .Formula = "=IF(B6="""","""",ROW()-5)" .Value = .Value End With 'دمج خلايا المجموع ووضع المعادلة في الخلايا المدمجة With .Range("A" & Last & ":B" & Last) .Merge .Value = "المجموع" End With With .Range("C" & Last & ":G" & Last) .Merge .Formula = "=SUM(F6:F" & Last - 1 & ")" End With 'تسطير جدول البيانات التي تم جلبها .Range("A5").CurrentRegion.Borders.Value = 1 'تنسيق نطاق البيانات With .Range("A5").CurrentRegion.Offset(1) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = True End With End With Application.CutCopyMode = False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub في الكود يوجد بعض التعليقات التي تساعدك في فهم الكود تقبل تحياتي

تم العمل حسب المطلوب فقط اضغط (اعجاب) copy_rng.rar

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تم استدعاء البيانات المطلوبة بالمعادلات باستعمال الدوال : INDEX ، MATCH ، OFFSET... إن شاء الله يكون التعديل مستوفيا المطلوب... أخوك بن علية جدول الفصول والمعلمين.rar

السلام عليكم أخي العزيز بالمرفق حل لأحد الطلبات وهو جدول المعلم (بالمعادلات) ولاحقا إن لم يتدخل أحد الإخوة سأعمل علي جدول الفصول / الحصص تفضل المرفق جدول الفصول والمعلمين2.rar

الفاضل / سكون الليل سلام الله عليكم الملف المرفق تم التعديل المطلوب ليسع 1000 موظفا تحياتى لكم ** دغيدى * جلب البيانات 2.rar

الحل بزيادة المدى شاهد المرفق جلب البيانات1.rar