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

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

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

بمكن ان يكون الحل هتا talween.rar

اذهب لخصائص لسرد وعند خاصية مصدر الصف انقر النقاط الثلاث ليفتح لك الاستعلام وعند خانة المعيار للحقل id اكتب 0<> بالتوفيق

Sub Print_Preview_Click() Application.ScreenUpdating = False UserForm1.Hide Sheets("تسجيل المتقدمين").Activate ActiveSheet.Cells.Rows.Hidden = False Lra = ActiveSheet.Cells(Rows.Count, "a").End(3).Row ActiveSheet.PageSetup.PrintArea = "" Set my_rg = ActiveSheet.Range("A1:S" & Lra) With ActiveSheet With .PageSetup .PrintArea = my_rg.SpecialCells(12).Address .PrintTitleRows = "$1:$1" End With .PrintPreview End With Application.ScreenUpdating = True End Sub استبدل الكود بهذا

جرب هذا الملف لادراج الفورم اضغط Ctl+Shift +R في اي صفحة معاينة قبل الطباعة عن طريق الفورم salim.rar

السلام عليكم ورحمة الله تعالى وبركاته اولا بعد الحمد لله الذى تتم بنعمته الصالحات فسبحان الله الحنان المنان الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل له الحمد حمدا كثيرا طيبا طاهرا مباركا فيه له وحده الحمد كما ينبغى لجلال وجهه ولعظيم سلطانه ثانيا ادين بالفضل بعد رب العزة سبحانه وتعالى وللكثير من اساتذتى رواد هذا الصرح الشامخ فلولا الله ثم اساتذتى الكرام لما وصلت الى هذا الحد بعد كل الشكر والتقدير اهنئ نفسى واياكم بما وصلت اليه الموضوع بإختصار هو برنامج الصلاحيات والتحكم بالمستخدمين بالفعل أرهقنى موضوع الصلاحيات هذا لو كان اختياراً لتركته وما ترددت فى ذلك لكن تبقى الضرورة وحتمية العمل به هى المحرك الأول والأخير فكانت محاولات الإستماتة حتى إنى فى إحدى اللحظات توقعت أننى لن ولم أحاول البحث أو محاولة إنشاء الصلاحيات بعد هذه اللحظة إستعصى الأمر لدرجة أنني جربت نسبة 90 فى المئة من كل ما هو مقترح على النت لحل تلك المشكلة العويصة مشكلة الصلاحيات وكما لاحظت يعانى منها الكثير غيرى لكن من الله على سبحانه وتعالى بعلمه وفضله فتوصلت لبرنامج Users maker الإصدار الثانى الذى قيل عنه انه يعمل مع منتجات الاوفيس ابتداء من 2007 وحتى 2013 ولكن من وجهة نظرى البرنامج فقير وكنت دائما أقع فى المشاكل بسببه حتى قررت أن أفتح النسخة وأحاول التعديل عليها بما يتماشى ويتناسب مع متطلباتى وأظنها متطلبات اغلب المشاركين كما لاحظت من تساؤلاتهم وإليكم أقدم لكم البرنامج بإصداره الثالث من تعديلى الشخصى وإضافتى التى لم يسبقنى إليها أحد فحاولت تلافى الكثير والكثير من التعقيدات أترك لكم التجربة والتحليل وفى إنتظار الرد للعلم حافظت على حقوق المبرمج الأصلى للبرنامج بارك الله فى علمه الأستاذ القدير محمد مهند العبادى أتحدى وجود إصدار مشابه على الانترنت لما اطرحه عليكم الأن طبعا البرنامج حجمه كبير لن أستطيع إرفاقه عن طريق المرفقات ولذلك أطلب على استحياء من أساتذتنا الكرام المسئولين عن امور المنتديات بكل الحب والود والتقدير بعد تحليل البرنامج والتأكد من فعاليته بشكل جيد وخلوه من الأخطاء إن خلا فالكمال لله وحده إعادة رفع البرنامج على سيرفر المنتدى حتى يكون مرجع فمواقع الرفع المجانية غير مستقرة معلومات هامه جدا جدا جدا عن البرنامج بعد عمل اى برنامج خاص بكم من خلال هذه الاداة Users maker -Third Edition أولا -- من نموذج الدخول أضفت عدد اثنين مستخدمين لكل منهم صلاحيات خاصة وهم مخفيين لا يظهروا بالبرنامج إطلاقاً فى الوصع الطبيعى لعمل البرنامج المستخدم الاول مميزاته الدخول على لوحة تحكم صلاحيات المستخدمين البيانات للدخول اسم المستخدم / admin كلمة المرور / 2015 ثانياً -- المستخدم الثانى مميزاته الدخول على نموذج خاص لإلغاء تفعيل زر Shift أو تمكينه وكذلك إخفاء الجداول والإستعلامات وإظهارها البيانات للدخول اسم المستخدم / superadmin كلمة المرور / 2015 وفى النهاية إن كفيت ووفيت فمن فضل الله وأن ذللت وأخطأت فمن هوان نفسى وقلة حيلتى اسالكم بكل الحب والتقدير إن رأيتم منى خطأ فتجاوزوا عنه بحلم أو صححوه لى بعلم وفى النهاية أعتذر للإطالة جزاكم الله عنى كل الخير روابط تحميل اولا: موقع ...... ميديا فاير ........ إضغط هنا للتحميل accdb for Access 2007- 2010 - 2013 موقع ...... ميديا فاير ........ إضغط هنا للتحميل mdb for Access 2000 - 2002 - 2003 ثانيا : موقع ...... بن الخليج ........ أضغط هنا للتحميل accdb for Access 2007- 2010 - 2013 موقع ...... بن الخليج ........ إضغط هنا للتحميل mdb for Access 2000- 2002 - 2003 اسألكم الدعاء للأستاذ محمد مهند العبادى المبرمج ولوالديه بظهر الغيب كما أطلب منكم على استحياء أن تتذكرونى بدعواتكم الصالحات لوالدى واللهم كما جمعتنى بصحبتكم الطيبة فى الدنيا دون أن أساله اللهم لا تحرمنى منهخا فى الجنة أنا أسألك آمين ..آمين ..آمين أخوكم العبد الفقير إلى الله محمد عصام

السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar

السلام عليكم هذا فديو قصير يوضح طريقة التحقق من إدخال المستخدم للرقم القومى بواسطة الكود و دالة len

abo_abary_Book1.rar

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

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

جرب هذا الماكرو Sub fix_Them() lr = Sheets("ورقة1").Cells(Rows.Count, "A").End(3).Row Sheets("ورقة1").Range("f2").Formula = "=Average(d2:e2)" Range("f2").AutoFill Destination:=Range("f2:f" & lr), Type:=xlFillDefault Range("f2:f" & lr).Value = Range("f2:f" & lr).Value Sheets("ورقة1").Range("h2").Formula = "= (G2 * 3 + F2 * 2) / 5" Range("h2").AutoFill Destination:=Range("h2:h" & lr), Type:=xlFillDefault Range("h2:h" & lr).Value = Range("h2:h" & lr).Value End Sub

ا / سليم انا عاجز عن الشكر تسلملى عيونك و عيون كل الاساتذة و الله احلى وقت بقضيه مع المنتدى شكراااااااااا

تفضل الملف بعد التعديل و وضع مربع قائمة فتح نموذج لتعديل.rar

تفضل أخي الكريم: لم يفتح معي لاني ايضا لا املك الا اوفيس 2007 اضف حقل التعريف لديك في استعلام البحث وغير رقم العمود (7) حسب مكان حقل المعرف لديك، من خلال الصورة بعد اضافة المعرف في الاخر يكون (7) ضع هذا الكود في حدث عند النقر المزدوج على الاسم بعد التصفية Dim stLinkCriteria As String stLinkCriteria = "[رقم المعرف لديك]=" & Me.[اسم القائمة التي يظهر فيها البحث].Column(7) If IsNull(Me.[اسم القائمة التي يظهر فيها البحث].Column(0)) Then MsgBox ("يجب اختيار اسم قبل النقر المزدوج") Else DoCmd.OpenForm "اسم النموذج الذي تريد فتحه", , , stLinkCriteria DoCmd.Close acForm, "اسم نموذج البحث" End If :: جرب ووافني بالنتيجة واذا لم تستطع ارفق مثالاً بصيغة 2007 تحياتي

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

لم افهم جيداً السؤال هل تريد ان تكون الخلية A1+B1+C1=E1 ام ان الخلية E1=مجموع الخلايا في العامود A +مجموع الخلايا في العامود B+مجموع الخلايا في العامود C وما العمل في هذه الجالة بالنسبة للضرب والقسمة

للعد .. استعمل Countifs بدلا من Countif

آسف لقد أتعبتك معي لقد وجدتها بالفعل الله يجزيك على تعبك معي فأنا اقل من مستوى و لا أدري كيف أعيد لك جميلك هذا غير الدعاء لك

ImportExportSpreadsheet https://www.google.com.sa/search?safe=active&biw=1280&bih=649&q=المتغيرات+واسناد+القيم+فيجول+بيسك&oq=المتغيرات+واسناد+القيم+فيجول+بيسك&gs_l=serp.3...4398.21456.0.21738.36.33.0.3.3.0.397.5373.0j5j16j1.22.0....0...1c.1.64.serp..11.16.3370...0j0i10i1i67j0i10i1j0i3j0i131j0i67j0i22i30j30i10j33i21.OnG0o7X2fd8

لكني لم أجدها عندي أنا أستخدم أكسس 2007 و هذا هو الرابط الذي أخبرتك به http://arabteam2000-forum.com/index.php?/topic/266790-استيراد-جميع-أوراق-الأكسل-إلى-أكسس/

المتغير xl نوعه كائن وسيعرفه الاكسس ضمنيا لان القيمة له هي كائن ولكي تسند قيمة لمتغير نوعه كائن او سيحمل قيمة من نوع كائن لابد من استخدام كلمة set معناته اصلا ممكن نقول او المستحب dim xl as object هذا استخدمت طريقة additem لمربع السرد وفائدتها اضافة قيم للسرد والقيم هنا اصبحت ناتج الدوران على شيتات الملف واخذ اسم الشيت في كل دورة بالتوفيق

بارك الله لك و عليك و أثابك الجنة إن شاء الله الكود يعمل بشكل ممتاز أخي لدي بعض الأسئلة شرح هذا السطر و ما هي فائدة الكلمة set Set xl = GetObject(.SelectedItems(1)) لماذا لم تقم بتعريف x1 و شرح هذا السطر sheets.AddItem xl.sheets(i).name مشكور أخي على كل اللي عملته.

تفضل مع ملاحظة تغيير اسم السرد الى sheets لان name كلمة محجوزه بالتوفيق استيراد.rar

خلني اوضح ايش الهرجه اصلا اعتقد النسخة لديك عربي فالاكسس يفهم عربي اكثر لذلك للاشارة للتفصيل لديل تكتب me.تفصيل انا لدي انجليزي فيفهم الانجليزي لذلك اكتب me.detail ولتلاشي فهم اللغة نضع التعامل بالفهرس . 0 للتفصيل 1 للهيدر 2 لفووتر ويمكن كذلك اتعامل باسم الثابت acdetail وللمزيد https://msdn.microsoft.com/en-us/library/office/ff835642.aspx واعتقد على ما اذكر ان هناك مشاركة للاستاذ جعفر حول هذا ولكن لم ابحث عنها تحياتي

اللهم آمين يا رب العالمين و نحن في هذا الشهر الفضيل إن شاء الله سوف أقوم بذلك الآن شكرا لك أستاذنا أبو البراء

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

مشكور أخي العزيز عبد العزيز على كلماتك الطيبة الرقيقة أخي الكريم عبد اللطيف .. حاول تضبط الإعدادات الإقليمية لديك في الويندوز .. اختر اللغة العربية إذا لم تكن محددة لديك

قم بإشالة هذا السطر لا تظهر لك رسالة الخطأ 'Application.Undo Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If ActiveSheet.Name = "Log" Then Exit Sub Application.EnableEvents = False UserName = Environ("USERNAME") NewVal = Target.Value 'Application.Undo oldVal = Target.Value lr = Sheets("Log").Range("A" & Rows.Count).End(xlUp).Row + 1 Sheets("Log").Range("A" & lr) = Now Sheets("Log").Range("B" & lr) = ActiveSheet.Name Sheets("Log").Range("C" & lr) = Target.Address Sheets("Log").Range("D" & lr) = oldVal Sheets("Log").Range("E" & lr) = NewVal Sheets("Log").Range("F" & lr) = UserName Target = NewVal Application.EnableEvents = True End Sub

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

Option Explicit Sub UniqueSortedList() Dim Arr, X As Object Application.ScreenUpdating = False With CreateObject("System.Collections.ArrayList") Set X = .Clone: X.Add " " Sheets("بيانات الطلبة").Activate For Each Arr In Sheets("بيانات الطلبة").Range("V7", Range("V" & Rows.Count).End(xlUp)).Value If Arr <> "" Then If IsNumeric(Arr) Then If Not .Contains(Arr) Then .Add Arr Else If Not X.Contains(Arr) Then X.Add CStr(Arr) End If End If Next .Sort: X.Sort: .addRange X: Arr = Join(.ToArray, ",") End With Sheets("الاوائل").Activate With Sheets("الاوائل").Range("S7").Validation .Delete .Add xlValidateList, 1, 1, Arr End With Application.ScreenUpdating = True End Sub كود قائمه متسدله بون تكرار ومرتبه تصاعديا للاستاذ المحترم ياسر خليل قائمه منسدلة ديناميكية مطاطية بدون تكرار اى بند فيها Unique Sorted Validation List.rar

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

اخي الكريمفايز فراج كل عام وانتم بخير جرب الملف التالي لعله يفي بالغرض abo_abary_شيت كنترول الصف الأول الإبتدائي 2015-2016.rar abo_abary_شيت كنترول الصف الأول الإبتدائي 2015-2016.rar

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

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

لعيونك يا صلاح Auto_fixed-sum.rar

شكرا لكم جميعا الان الملف اصبح سليم و اشتغل الماكرو الظاهر المشكلة كانت في اللغة البرنامج كان لا يستطيع التعرف على أسماء الأوراق الله يوفقكم جميعا و شهر مبارك عليكم

أخي الكريم تيبازي أهلاً بك في المنتدى بعد طول غياب وعوداً حميداً ، ونأمل أن تتواجد فيما بيننا على الدوام ، وتقبل وافر تقديري واحترامي

Book1.rarمرحبا الجدول المرفق فية تاريخ التعيين والاقدمية والدرجة المطلوب : 1- اضافة سنة الى تاريخ التعين تلقائيا . 2- اضافة سنة اقدمية في العمود الثاني. 3- بعد الخمس اقدميات في الدرجة يتم طرح واحد من الدرجة عند التعيين ارجو المساعدة من اهل الخبرة وشكرا سلفا للجميع . الملف بالمرفقات:

الصيغة التالية تلبي طلبك: =SUMPRODUCT((Sheet4!$B$2:$B$264=Sheet2!$P$1)*(Sheet4!$D$2:$D$264=Sheet2!$E$1)*(Sheet4!$G$2:$G$264)) شاهد المرفق، ________combo_box.rar

بعد أبجدة الأسماء والإطمئنان على الترتيب العام من خلال عمودين : العمود الأول لرقم الجلوس والعمود المجاور له للرقم السرى ثم إخفاء كل من عمودى الأسماء ورقم الجلوس وأخيرا حماية الصفحة بكلمة سر ، وذلك فى حالة إذا كان معك عضو كنترول وظيفته إدخال الدرجات فقط ولا تريده الإطلاع على الأعمدة المخفية. يمكنك الإطلاع على ما يفيدك فى هذا الشأن من خلال الرابط http://www.officena.net/ib/index.php?showtopic=3828