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

يمكن إضافة ترقيم تسلسلي للقوائم في التقرير أي دائما يبدأ بالرقم 1 , 2 , 3 ...الخ على حسب عدد السجلات كما يلي: نضبف مربع نص و نكتب فيه "1=" ثم نذهب إلى خصائص و نختار قائمة بيانات و نغير قيمة مجموع تراكمي إلى "مجموعة إضافية". و إليكم المثال التالي للتوضيح أكثر. ترتيب تسلسلي.rar

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

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

السلام عليكم ورحمة الله تم التعديل حسب المطلوب... بن علية التاريخ.rar

أخي الكريم أحمد رائد إليك حل لمشكلتك في الرابط التالي الرابط من هنا تقبل تحياتي

الغاء ازرار النسخ واللصق في لوحة المفاتيح Ctrl+C , Ctrl+V Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If (Shift And 2) And (KeyCode = Asc("C")) Then KeyCode = 0 MsgBox "No Coping Allowed, Cheater!!!" ElseIf (Shift And 2) And (KeyCode = Asc("V")) Then KeyCode = 0 MsgBox "No Pasting Allowed, Cheater!!!" End If End Sub

اخ صالح التعبير السابق كتبه محترف وليس مجتهد بالتوفيق

بارك الله فيك أخي "عبدالسلام " وشكرا على صبرك معي، فقط اريد التنويه اني طبقت الجملة آنفا حرفيا كما كتبتها "قمت بالترجمة فقط' والان من خلال مرفقك قارنت فلم أجد اي خطاء ...... ربما كانت بحاجة للمستك السحرية وفقك الله.

عد تكرار حرف أو كلمة في خلية.rar

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

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

نعم الايام معرفة مسبقا وتأخذ اليوم من التاريخ ()Date الذي هو فعلا تاريخ الجهاز ولاشتراط الجمعة والسبت تكتب الدالة هكذا : if Weekday(Date();1) = 6 or Weekday(Date();1) = 7 then على اعتبار يوم الاحد هو اول ايام الاسبوع

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

السّلام عليكم و رحمة الله و بركاته ألف شكر أخي و أستاذي الفاضل " محمّد الخازمي " على التّصويب المميّز و الممتاز بارك الله فيك و جزاك خير الجزاء و زادها بموازين حسناتك .. يبدو أنّ اليوم .. يوم اللامات المنسيّة و السّاقطة سهوًا و بغير سهو .. http://vb4arb.com/vb/thread-15711.html فائق إحتراماتي

السلام عليكم استاذ عبد العزيز "سقط سهواً منك If MsgBox("åá ÃäÊ ãÊÃßÏ ÃÎí ÚÈÏ ÇáÑÍãä ãä ÍÐÝ ÓØÑ ÇáßæÏ ÑÞã " & ComboBox1.Text, vbQuestion + vbYesNo) Then تبديل الي هذا السطر حتي لا يتم الحذف بكلمة " لا " If MsgBox("åá ÃäÊ ãÊÃßÏ ÃÎí ÚÈÏ ÇáÑÍãä ãä ÍÐÝ ÓØÑ ÇáßæÏ ÑÞã " & ComboBox1.Text, vbQuestion + vbYesNo) = vbYes Then

العفو أخي

و عليكم السلام و رحمة الله و بركاته ... تفضل ... New Database .rar

جزاك الله خيرا اخي صالح اخ moamen salem تفضل البحث في احد الحقول المنضمة Private Sub text1_BeforeUpdate(Cancel As Integer) Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Emp_No] = " & [text1] If Not rs.NoMatch Then Me.Undo Me.Bookmark = rs.Bookmark Else End If End Sub جعل الحدث قبل التحديث واضافة سطر للتراجع

شكرا ...

اخي تفضل هذا الكتاب microsoft_access_2013_step_by_step يمكنك تزيله من هنا ايضاً http://www.mediafire.com/download/cfpj8daze1l23n9/microsoft_access_2013_step_by_step.rar

السلام عليكم يمكن تحميل الكتاب من الرابط http://misprivate.boun.edu.tr/kutlu/bis515/access2013.pdf

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

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

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

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

و فيك بارك أخي صبري

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

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

اتفضل التعديل الجديد منتظر ردكم dbaseitems.rar

أخي الكريم رشراش احتمال وجود نسخة الأوفيس لديك باللغة الفرنسية تستلزم منك أن تقوم عند نسخ المعادلة بتغيير اسماء الدوال ..فمثلاً الدالة Sumproduct يقابلها بالفرنسية sommeprod والدالة Row يقابلها بالفرنسية ligne والدالة Mid يقابلها بالفرنسية stxt ومن ثم أعتقد لنسخ المعادلة التي تفضل بها أخونا العزيز عبد السلام ، يجب استبدالها بالفرنسية بهذا الشكل =sommeprod(--(stxt(A2,ligne(A1:A101),1)=$B$2)) لاحظت في التوقيع الخاص بك تحيا الأمة الإسلامية - الشيعة (رجاء إزالة التوقيع منعاً لأي جدال أو نقاش حول الأمر .. المنتدى تعليمي وكلنا هنا يجمعنا المصلحة العامة للجميع بصرف النظر عن الانتماءات أو التحزبات أو خلافه ، وبرجاء عدم الدخول في نقاش أو جدال في هذا الأمر - أردت فقط التنويه) تقبل تحياتي

اي خلل ؟؟.. بالنسبة لي النتائج صحيحة .. لا اعلم اذا كانت المشكلة في الفرنسية

اخى العزيز ارجو ان يفى هذا الملف بالغرض test.rar

طبعا" ممكن لو اكسس ارفق الملف

دقيقة واحدة اتفضل لو عجبك اضغط LIKE 147.rar

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

أخي الكريم ناصر جرب الملف التالي Sample UDF.rar

فضلا لا أمرا الرجاء تغيير اسم ظهورك إلى اللغة العربية كما هو معمول به في هذا المنتدى تم عمل المطلوب تفضل ZZمرتبات1.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام في المنتدى الأغر معكم في موضوع جديد وشيق ومفيد ، مع عالم الإكسيل ومع كل جديد ، ومع تنشيط لخلايا المخ اللي تخلي مخك حديد .. أقدم لكم المزيد والمزيد ، لعل الجميع يستفيد ، ويستضاء بنا ولو من بعيد (شكلي سرحت ..أعتذر عن المقدمة الطويلة يا أبو عيد) معنا اليوم فورم بسيط (فيه صندوق الدنيا (صندوق نص) TextBox وزر أمر Command Button) بالنسبة لصندوق النص غيرت فيه من الخصائص حاجتين اتنين وبس .. خاصية اسمها MultiLine ودي خليتها True ودي عشان تقدر سعادتك تكتب في أكتر من سطر والخاصية التانية EnterKeyBehavior ودي بردو True ودي عشان تقدر بعد ما تكتب سطر تضغط Enter يقوم ايه ؟؟ يقوم ينتقل للسطر اللي بعديه .. وهكذا وهكذا يعني تكتب كلمة البحث المراد البحث عنها وتضغط إنتر ، وتقدر تكتب كلمة تانية وتضغط إنتر ، وتقدر تكتب كلمة تالتة وتضغط إنتر ، وتقدر تكتب كلمة ( - - - - - ) كتبتها بالحبر السري عشان محدش ياخد باله وتضغط إنتر وهكذا وهكذا ولما تدوس على زر الأمر Search هتلاقي النتائج المراد البحث عنها تم تلوينها جرب مثلاً اكتب Yasser واضغط إنتر ، واكتب في السطر اللي بعديه "ياسر" من غير أقواس تنصيص واضغط إنتر ، وأخيراً دوووووس على زر الأمر وشوف النتائج ودا شكل الكود الموضوع في زر الأمر Private Sub CommandButton1_Click() Dim Cell As Range, Keys, Key, I As Long If Me.TextBox1.Value = "" Then Exit Sub Sheets("Sheet1").Cells(1).CurrentRegion.Font.ColorIndex = xlAutomatic Keys = Split(TextBox1.Value, vbCrLf) For Each Cell In Sheets("Sheet1").Cells(1).CurrentRegion.Columns(1).Cells For Each Key In Keys I = InStr(1, Cell.Value, Key) If I > 0 Then Cell.Characters(I, Len(Key)).Font.Color = vbRed End If Next Key Next Cell End Sub أرجو أن يكون الملف مفيد للجميع .. تقبلوا تحياتي وهكذا وهكذا Multiple Search & Color Results.rar

اخى / محمد الريفى بارك الله فيك

السلام عليكم يمكنك أخي الكريم أن تستخدم التنسيق الشرطي لعمل ذلك من قائمة تنسيق..تنسيق شرطي..أكبر من 5 ثم اختر اللون و التنسيق الذي يحلو لك ملحوظة : التنبيه هنا يكون بتلوين الخلية و ليس برسالة

مثال علي اختيار رقم عشوائي مع السماح بالتكرار أو عدم السماح ( لابو حمود ) RANDOM_abuh.rar