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

لمن يمهه الأمر كيف نحمي الخلايا غير الفارغة من التفيير او المسح بمجرد ادراج البيانات فيها للتراجع عن الحماية يجب ادخال كلمة السر الموجودة في الملف (يمكن مسحها بعد معرفتها لابعادها عن الفضوليين) protect_non_empty.rar

بسم الله الرحمن الرحيم رد على المشاركه مرفق ملف برنامج تكاليف سريع السلام عليكم Cost_01.rar

الاخ والاستاذ الفاضل ابومهند على حسب فهمى لطلبك جرب المرفق اضغط على زر الترحيل وشاهد النتيجة طلبك كان مطروح من قبل بعنوان ترحيل بيانات ثم عملت موضوع جديد اللى هو احنا فيه دلوقتى يرجى بعد اذن حضرتك دام هو نفس الموضوع ونفس الطلب فمفيش داعى لعمل موضوع جديد واكتفى بكلمة للرفع فى الموضوع الاصلى وثق تماما ان الاعضاء بالمنتدى لو يعرفو الاجابه لن يبخلو عليك بها سؤالك فيه العديد من الاستفسارات منها على سبيل المثال هل سحب التقرير بياتى مباشرة من البرنامج بتاع البصمه الى الاكسيل ولا انت بتقوم بعملية قص ولصق وغيره من الاستفسارات الغير واضحه لنا لذالك يرجى تبسيط المطلوب بقدر الامكان لنا تقبل تحياتى ------------------------------------------------ دع الخلق للخالق وانشغل بنفسك فقط ترحيل.zip

برنامج المتابعة اليومية للطلاب يحتوي عل التالي : 1- الغياب اليومي للطلاب 2- تسجيل الملاحظات لكل طالب اثناء الحصة من تأخر - آداء الواجبات - السلوك الذي يصدر من الطالب اثناء الحصة .... 3- طباعة تقارير لكل طالب على حده 4- طباعة تقارير خاصة بكل شعبة 5- طباعة احصائيات عن الغياب والسلوكيات المختلفة لكل طالب. 6- استمارة تحويل الطالب على لجنة السلوك بالمدرسة 7- يمكنك حفظ السجل على شكل ملف اكسل. اتمنى ان يحيز اعجابكم ويساعد المعلمين على متابعة الطلاب Follow-Up.rar

استاذى الحبيب ابويوسف ما أروع الهديه فهى اغلى الهدايا اخى الحبيب عبدالعزيز مرورك سبحان الله بيعطى عطر خاص للموضوع جزاكم الله خيرا اسمح لى ان ابلغك بأنى أحبك فى الله تقبل تحياتى --------------------------------------

أخي الكريم يرجى تغيير اسم الظهور للغة العربية ضع المعادلة التالية في الخلية B2 =IF(ISNUMBER(SEARCH("USD",A2)),--SUBSTITUTE(RIGHT(TRIM(SUBSTITUTE(A2,CHAR(160)," ")),14),"- USD",""),IF(ISNUMBER(SEARCH("EUR",A2)),--SUBSTITUTE(RIGHT(TRIM(SUBSTITUTE(A2,CHAR(160)," ")),14),"- EUR",""),IF(ISNUMBER(SEARCH("NOK",A2)),--SUBSTITUTE(RIGHT(TRIM(SUBSTITUTE(A2,CHAR(160)," ")),14),"- NOK",""),""))) إذا لم تعمل المعادلة معك قم باستبدال الفاصلة العادية في المعادلة بفاصلة منقوطة

شكرا لكم اخوتي وأحبابي الكرام قائدا ومشرفين واعضاء قلوبكم تنبض بالحب والوفاء فأنتم اهل البذل والعطاء تبذلون علمكم وتعطون وقتكم كتب الله لكم الأجر بكل ثانية من وقتكم وكل حرف كتبتوه

أخي الكريم محمد إليك الكود التالي يوضع في حدث ورقة العمل كليك يمين على اسم الورقة المسماة CV .. ثم اختر الأمر View Code والصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C4")) Is Nothing Then Call ChangePic End If End Sub وضع الكود التالي في موديول عادي Sub ChangePic() Dim pic As Picture, strPhotosFolder As String, strPhoto As String strPhotosFolder = ThisWorkbook.Path & "\Photos\" Application.ScreenUpdating = False With Sheets("CV") While .Pictures.Count .Pictures(1).Delete Wend strPhoto = strPhotosFolder & Trim(.Range("C4").Value) & ".*" strPhoto = Dir(strPhoto) If Len(strPhoto) Then strPhoto = strPhotosFolder & strPhoto .Pictures.Insert (strPhoto) Set pic = .Pictures(.Pictures.Count) With pic .ShapeRange.LockAspectRatio = msoFalse .Left = .Parent.Range("G2:G4").Left .Top = .Parent.Range("G2:G4").Top .Width = .Parent.Range("G2:G4").Width .Height = .Parent.Range("G2:G4").Height End With End If End With Application.ScreenUpdating = True End Sub تقبل تحياتي CV Employees Import Pictures Based On ID YasserKhalil.rar

السلام عليكم ورحمة الله وبركاتة برنامج شئون الطلاب بالمدارس .... هديه متواضعه للعاملين بالتربيه والتعليم فى انتظار ملاحظاتكم .. كلمة السر 1111 http://www.gulfup.com/?o4iEZn شئون الطلاب .rar

سلمت يمينك أخى الحبيب أ / سليم على كل أعمالك الرائعة وأتفق مع أخى الحبيب الغالى ياسر خليل لا تعطنى سمكة ولكن علمنى كيف أصطاد تقبل خالص تحياتى وتقديرى

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

تقبل الله .. وحفظك الله في حلك وترحالك

اتفضل ملف حضرتك بعد التعديل BM-test-user.rar

أخي هذا اجتهاد بسيط إن شاء الله يكون المطلوب combotables.rar

برنامج درجات التقويم المستمر في مدرستى الرابط التالي لشرح البرنامج Marks Final.rar

أخى العزيز الغالى KHMB سلام الله ورحمته وبركاته ,,, لا داعى للاعتذار لانك لم تخطىء فى حقى نحن اخوه ولكن هل هناك داله أسمها Grand Total صدقنى انا فقط كنت أقول الحق أن المطلوب غير مفهوم بالنسبه الي ليس اكثر

حياك الله اخي الكريم ممتاز كذا ... بقي سؤال واحد هل الحقول في النموذج منضمه ام غير منضمه .. اي مصدر بياناتها الجدول مباشرة ام لا .. اذا كانت منضمه فلا اعتقد انه يمكن لأكثر من شخص استخدامها في نفس الوقت والتعديل على نفس النموذج ... لست متأكد 100% ولم اجربها وعل من جرب يفيدنا بهذا الخصوص .. لي تجربه مع العناصر الغير منضمه واستخدام جمل SQL لإدخال البيانات الى الجداول ولا مشكلة فيها مع اكثر من مستخدم . بالتوفيق

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

السلام عليكم الاخ محمود العراقي شاهد المرفق تم استخدام دالة Int بعد اضافة 1 الدالة تقريب الاعداد.rar

السلام عليكم ورحمة الله اخي ابن الملك طلبكم لإرفاق ملف صحيح لعمل القياس عليه فقط لكـــــن المطلوب غير واضح فهذا غير صحيح فالمعادلة واضحة جدا . لان تسجيل الماكروا لايتعامل مع الكثير من المعادلات الشائكة. ارجوا المعذره والسماح إن اخطأت في حقك

السلام عليكم ورحمة الله وهل يستوي الذين يعلمون والذين لايعلمون اخي الفاضل سليم جزاك الله خير وبارك الله فيك

جرب هذا الملف date_difference.rar

ابو مصطفى حول مثالك على نسق mdb

أخي الكريم خالد يرجى للمرة الثانية تغيير اسم الظهور للغة العربية جرب المعادلة التالية =--TRIM(MID(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(A2,CHAR(160)," "))," ","-",2),"-",REPT(" ",50)),50*2,50))

أخي الكريم نايف أعتذر لأنني لم أتابع الموضوع منذ البداية وظننت أن هذا طلب مختلف عموماً حسب ما فهمت من طلبك جرب الكود التالي .سيتم تلوين العمود الخامس المطابق لحدوث الشرط وهو مساواة القيمة للخلية الأولى في ورقة العمل Sub Test() Dim MyRange As Range, Cel As Range, Rng As Range, LastCol As Long Set MyRange = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)) For Each Cel In MyRange If Cel.Value = Range("A1").Value Then If Not Cel Is Nothing Then If Rng Is Nothing Then Set Rng = Cel Else Set Rng = Union(Rng, Cel) End If Next Cel Rng.Offset(, 4).Interior.ColorIndex = 6 End Sub

لعل المطلوب بالمرفق طرح السنوات فقط.rar

البرنامج بعد تصحيح بعض الأخطاء التي حصلت عليها عند الاستخدام Marks final Access 2003 - V3.rar

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

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك ..(يا ابن ابو حماده) يمكنك طرح موضوع جديد لطلبك حتى تجد استجابة من الأخوة الأعضاء

وجزيت خيراً بمثل ما دعوت وزيادة أبي الغالي أبو يوسف مشكور على مرورك الطيب والعطر

السلام عليكم ورحمة الله اخي واستاذي ومشرفي ياسر خليل ابو البراء بكل صدق اسعدني وشرفني ليس ردكم فقط بل مروركم يكفيني شرفا وحبا .فجزاك الله خير الجزاء وبارك فيك وفعلا احبك في الله وسبق ان جربناك في اخلاقك وحلمك علينا وطيبتك بدون حدود. اخي الفاضل ابوحمادة احبك الله الذي احببتني فيه بارك الله فيك وجزاك الله خير الحمد لله الذي به تتم الصالحات وكان ختامها مسك من قبل المشرف الغالي ابو البراء بوضع اللمسات الاخيره جزاه الله خير

أخي الكريم المتأمل جرب الكود التالي في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل ثم اختر الأمر View Code ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 10 And Target.Row > 5 Then Application.ScreenUpdating = False Application.EnableEvents = False Dim Stock, Suggested With Target Stock = .Offset(, -5): Suggested = .Offset(, -3) If Stock = Suggested Then If InStr(.Value, "دفع") > 0 Then MsgBox "الرصيد يساوي المبلغ المقترح", 64: .ClearContents: .Activate If Stock <> Suggested Then If InStr(.Value, "سداد") > 0 Then MsgBox "يمنع كتابة كلمة سداد حيث أن الرصيد والمقترح غير متساوين", 64: .ClearContents: .Activate End With Application.ScreenUpdating = True Application.EnableEvents = True End If End Sub أرجو أن يكون المطلوب ويفي بالغرض تقبل تحياتي

بارك الله فيك أخي الحبيب حسام عيسى إجابة موفقة .. بالفعل هذا الكود من الأكواد التي أحتفظ بها حيث انه باستخدام الأكواد قد تظهر مشكلة في قوائم الإكسيل أو الاختصارات فهذا الكود يعيد الإكسيل المحشش إلى مساره الصحيح .. وأنصح لمن ليس لديه مكتبة الصرح أن يقوم بتحميلها .. من أراد فلينقر في توقيعي على الفهرس ويبحث عن مكتبة الصرح زاخرة بالشرح (فيها بعض الأكواد مفيدة جداً) تقبل وافر تقديري واحترامي

فعلا انا تظهر عندي احيانا هذه العبارة شكرا للاستاذ حسام خطاب على الرد ساجرب باذن الله

حياك الله اخي ابو بسنت وتنسنيم .. الله يخليكم لبعض هذا مثال ان شاء الله يفيدك .. لو فرضنا ان لديك حقل رقم في النموذج وترغب رقمه يتزايد بالشروط اللي حضرتك تريدها ... في حدث عند التحميل للنموذج تضع الكود التالي وبحسب الشرط الذي تريد .. هذا مثلا في حالة رغبة الترقيم يبدأ من 1000 ويتزايد . Me.mbno = Nz(DMax("mbno", "mbeat"), 999) + 1 وهذا مثلا في حال رغبت الترقيم يبدأ من 1 ويتزايد Me.mbno = Nz(DMax("mbno", "mbeat"), 0) + 1 شرح الكود .. me.mbno : تسمية رقم الإذن في النموذج mbno: تسمية رقم الإذن في الجدول mbeat: تسمية الجدول .. المبيعات مثلا .. بالتوفيق

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي " حسام " على العمل المميّز .. أو بإمكاننا القول .. العمل الأنيق جزاك الله خيرًا و زادك من علمه و فضله .. إشتقنا لك و للمساتك و بصماتك الإكسيليّة البديعة فائق إحتراماتي

السلام عليكم ورحمة الله وبركاته أخي الحبيب الصقر: بارك الله بك أخي الحبيب ..جعلتني أبكي سعادة وها هي عيناي مغرورقتان بالدموع جزاكم الله خيراً...اللهم اجعلنا مفاتيح للخير مغاليق للشر آمين ...اللهم افتح لنا أبواب رحمتك ...آمين والسلام عليكم. كما أحيي أخي الحبيب أبو البراء... الذي أرى أنه علق على الموضوع الآن ولمّا أقرأ تعليقه بعد.. كنية محببة إلى القلب خطاب ...هدية لكم؟؟. https://youtu.be/5QPDHtdepqg

استاذى الحبيب / ابويوسف جرب المرفق انت بس تؤمر للعلم هذه الرسائل انت مصدر الهام الفكره لى تقبل تحياتى ----------------------------------------- اتش.zip

اخى الكريم لم افهم جيد طلبك ولكن جرب المرفق ربما يكون طلبك تقبل تحياتى ----------------------------------------------------- اتش.zip

سلام عليكم أسف عن الخلل الرذ فتح عن طريق المكرو قايمة تفتح بالمكرو الموجود في الزر cost2016.rar

اخي الكريم kamel2711 مرفك المرفق ما هو غير الملف الخاص بي بدون تعدين وهو يعمل بالكود الذي كتبته ولا يعمل بالماكرو الذي اضفته شكرا

سلام عليكم فتح تسجيلة جديدة بالمكرو نفظلوا cost2016.rar

السلام عليكم ورحمة الله أخي الكريم محمد شوقي، جرب المرفق لعل فيه المطلوب... بن علية معادلة جمع نطاق بشرطين.rar

السلام عليكم ورحمة الله وبركاته قمت بالعمل لإثبات انه ممكن ، ولكن الشئ المهم ما قاله أخي أبو خليل: . لهذا ، هذه النتيجة: . وهذا الكود الذي يقوم بالعمل كاملا: 1. استعلام الحاق للجدول table1 ، 2. استعلام تحديث للجدول table2 ، 3. استعلام تحديث للجدول table3 ، Private Sub cmd_append_update_Click() Dim rstFrom As DAO.Recordset Dim rstTo As DAO.Recordset Set rstTo = CurrentDb.OpenRecordset("Select * From table4") 'table1, Append Set rstFrom = CurrentDb.OpenRecordset("Select * From table1") rstFrom.MoveLast: rstFrom.MoveFirst RC = rstFrom.RecordCount For i = 1 To RC rstTo.AddNew rstTo!a = rstFrom!a rstTo.Update rstFrom.MoveNext Next i 'table2, Update rstTo.MoveFirst Set rstFrom = CurrentDb.OpenRecordset("Select * From table2") rstFrom.MoveLast: rstFrom.MoveFirst RC = rstFrom.RecordCount For i = 1 To RC rstTo.Edit rstTo!b = rstFrom!b rstTo.Update rstFrom.MoveNext rstTo.MoveNext Next i 'table3, Update rstTo.MoveFirst Set rstFrom = CurrentDb.OpenRecordset("Select * From table3") rstFrom.MoveLast: rstFrom.MoveFirst RC = rstFrom.RecordCount For i = 1 To RC rstTo.Edit rstTo!c = rstFrom!c rstTo.Update rstFrom.MoveNext rstTo.MoveNext Next i MsgBox "Done" End Sub جعفر mo_esam_sample.zip

السلام عليكم اخواني الكرام جداول اكسس تختلف عن جداول اكسل فالاساس في جدول اكسس هو السجل والحقل فرع منه .. لذا فالعمود لا ينفرد بخصيصة قد يعترض على هذا بحجة امكانية تصفية العمود .. نعم ولكن بالمقابل بقية بيانات السجل ستكون تابعة لهذه التصفية لو افترضنا تم تطبيق مطلب اخونا محمد عن طريق الكود فستكون القيم : 1 ، 4 ، 7 في سجل واحد السؤال الآن : ما الرابطة او العلاقة بين هذه القيم ، وبأي وسيلة نستطيع الرجوع الى احدى هذه القيم عند الحاجة نخرج من هذه المقدمة المقتضبة الى وجوب وجود معرف في كل جدول وتكون له علاقة داخل الجداول الاخرى السجل وحقوله في الجدول كالمنزل وساكنيه