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

تفضل هذه مكتبة اللوان من اروع المكتبات RGB_Color.html

واياك ...

مثالك بعد التعديل ..... تعديل (1).mdb تم تعديل الحدث ... Me.Text72 = Mid(Costomer, 1, 12) & "0" & Mid(Costomer, 13, 2)

حسب الصورة لاستعلامات التحديث .... اضافة 0401 اضاف 000 حذف اول رقمين حذف اول سته ارقام عكس شرحك ..... ارجو التوضيح ..... على العموم انظر المرفق بدون الحاجة للاستعلامات ..... فقط ادخل الرقم ثم انتر تجد الرقم معدل مباشرة جرب وأعلمنا بالنتيجة ... تعديل (1).mdb تم استخدام هذا الحدث .... Me.Text72 = "0401" & Mid(Costomer, 7, 8) & "000"

تحتاج اكثر من endif لانهاء الشروط تفضل الكود يعمل الان ان شاء الله Private Sub أمر33_Click() If IsNull([نوع العمله]) Then MsgBox ("خانة نوع العمله فارغة يرجى املائها") DoCmd.CancelEvent Else If IsNull([تاريخ التسديد]) Then MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها") DoCmd.CancelEvent Else If IsNull([التسديد]) Then MsgBox ("خانةالتسديد فارغة يرجى املائها") DoCmd.CancelEvent Else If [التسديد] > [نص28] And [نوع العمله] = "دولار" Then MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار") DoCmd.CancelEvent Else If [التسديد] > [نص30] And [نوع العمله] = "دينار" Then MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي") DoCmd.CancelEvent Else Dim r r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير") If r = vbYes Then DoCmd.Close acForm, "التسديد" DoCmd.Close acForm, "نموذج1" DoCmd.OpenForm "نموذج1" MsgBox ("تم ادخال المبلغ بنجاح") Else If r = vbNo Then MsgBox ("تم التراجع عن ادخال المبلغ") DoCmd.CancelEvent End If End If End If End If End If End If End If alruan_2.rar طريقة اخرى If IsNull([نوع العمله]) Then MsgBox ("خانة نوع العمله فارغة يرجى املائها") DoCmd.CancelEvent ElseIf IsNull([تاريخ التسديد]) Then MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها") DoCmd.CancelEvent ElseIf IsNull([التسديد]) Then MsgBox ("خانةالتسديد فارغة يرجى املائها") DoCmd.CancelEvent ElseIf [التسديد] > [نص28] And [نوع العمله] = "دولار" Then MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار") DoCmd.CancelEvent ElseIf [التسديد] > [نص30] And [نوع العمله] = "دينار" Then MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي") DoCmd.CancelEvent Else Dim r r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير") If r = vbYes Then DoCmd.Close acForm, "التسديد" DoCmd.Close acForm, "نموذج1" DoCmd.OpenForm "نموذج1" MsgBox ("تم ادخال المبلغ بنجاح") ElseIf r = vbNo Then MsgBox ("تم التراجع عن ادخال المبلغ") DoCmd.CancelEvent End If End If تحياتي

طريقه جميله وفعاله والله تسلم ايدك وبارك الله فيك طريقه جميله وفعاله ايضا هههههههههه ابدا والله انا بس بحاول الم باكثر قدر ممكن من المعلومات لغرضين اولا افتح باب لعرض الافكار الابداعيه والتى من دورها تساعد المبتدئين على الفهم وتطوير طريقة الفكر ثانيا علشان انا ايضا اتعلم فن كيف اركب كود على كود وافهم اكثر استخدمات الاكواد والفائده تعم الجميع والهدف البعيد عاوز اعمل برنامج مجاني يساعد الناس فى اعمالهم لوجه الله يكون غني بالادوات والمميزات والخدمات (شئون موظفين وادارة مخازن وحسابات) ده الهدف بس بسبب انشغالى ببعض الامور الاخري فاحيانا باتوقف عن التقدم يوم او يومين دون تحديث او اضافه لشئ معين ^_^

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Command105_Click() On Error GoTo Err: DoCmd.GoToRecord , , acNext Err: If Err.Number = 2105 Then Exit Sub End If End Sub Private Sub Command106_Click() On Error GoTo Err: DoCmd.GoToRecord , , acPrevious Err: If Err.Number = 2105 Then Exit Sub End If End Sub thaaer.rar تحياتي

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

تفضل ملفك بعد تعديل أرقام الأعمدة في الصف الأول وتعديل المسلسل في العمودين A & E وتعديل كود الاجراء mas_getdata4 واضافة عمودين لحساب النوع وعدد البنين والبنات للعلم بعض خلايا الرقم القومي ناقصة بالتوفيق قائمة فصل.xlsm

وتفضل هذا التفقيط بالدولار والدينار alruan.rar تحياتي

نعم يمكن بشرط ان تكون متصلا بالنت تفضل

الف شكر لحضرتك وهذه ايضا احدى المكتبات بها اكود الالوان جاهزه للمبتدئين امثالى حابب افيد بها غيري رابط المكتبه

ضع هذا الكود في مربع النص =DCount("*";"الزبائن")

لا طبعا و ليس هذا هو منطقة لغات البرمجمة تفضل هذه افضل مكتبة لأكواد vba سوف تجد امثلة لكل ما يخطر على بالك https://docs.microsoft.com

التاريخ في حقل تاريخ الميلاد نص وليس تاريخا تم تحوله إلى تاريخ باكواد vba وإعادة تنسيقه ووضع خلية بها تاريخ حساب السن ووضع معادلة السن باليوم والشهر والسنة بالتوفيق تنسيق رياض الاطفال - Copy.xlsx

عليكم السلام تفضل هذه المحاولة ارجو ان تكون طلبك Color1.rar

سؤال : هل الرقم المدخل عدد الخانات فيه ثابت يعني مثلا عشرة خانات او ما شابهه ... ام ارقام مختلفة الخانات ؟؟؟؟

منة عارف ... والله انتو المصريين شي بجنن العقل بموت في مصر واهل مصر

تفضل هذه طريقة اخرى Private Sub Command105_Click() With Recordset If Recordset.AbsolutePosition = .RecordCount - 1 Then DoCmd.GoToRecord , , acLast Else DoCmd.GoToRecord , , acNext End If End With End Sub Private Sub Command106_Click() With Recordset If .AbsolutePosition = .RecordCount - 1 Then DoCmd.GoToRecord , , acPrevious Else DoCmd.GoToRecord , , acFirst End If End With End Sub تحياتي

استاذ عمر انا بعرف انت ذكي .. بس فهمني انت ناوي على ايه؟ اكيد في شي بدماغك .. والا ليس الموضوع مجرد برنامج الوان

بارك الله فيكم استاذى الفاضل .. هذا هوا المطلوب .. جعله الله فى ميزان حسناتك هذا هوا المطلوب .. جعله الله فى ميزان حسناتك لى استفسار بسيط للتعلم .. هل يمكن ربط الكود بالتغيير فى الخلية بدلا من الزر .. وهل يؤثر هذا فى عمل الكود ,,, ومن اين أبدأ فى تعلم كتابة الاكواد

شكرا جدا لمجهودك و اهتمامك

شكرا أستاذنا

هذا الموضوع يعتمد على ملفين dll وملف خط ttf لذلك فقد شروط طلبك بالتوفيق

الشكر موصول للجميع و سؤالي هذا كان بعد الإطلاع على إحدى المشاركات في منتدى الأكسس للأستاذ حلمى فؤاد helmy_foad و التي يظهر فيها QR كود باستعمال الأكواد أما عن استعمال النت و البرامج فأنا مطلع على بعضها لأن البرنامج الذي أعمل عليه أفكر في أن يكون مستعمله ليس لديه نت أو لا يحسن استعمال برنامج الاكسل و شكرا

يمكن استعمال المعادلة التالية في الخلية J17 من شيت المقسطون ='تسديد عميل'!C9 وهي لجلب قيمة عدد الأشهر المسددة مع وضع هذا الكود في حدث عند تغيير محتوى شيت المقسطون Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$3" Then Sheets("تسديد عميل").Range("b2").Value = Target.Value End Sub وهو يقوم بوضع رقم الملف المكتوب في شيت المقسطون في مكانه في شيت تسدسد عميل حتى يتم جلب الاشهر المسددة هناك أولا والمعادلة تجلبها هنا بالتوفيق

نصيحتي لك تعلم لغة الجافا java أو javascript فهي بوابتك لجميع اللغات الأخرى سهلة و من خلالها تستمد اللغات الأخرى

بسم الله ما شاء الله هذا هو الف شكر

لا أدري هل ظهر هذا بعد إلغاء تثبيت السيرفر ثم إعادة تثبيته فقط أم تمت بعض التغييرات في مجلدات السيرفر على العموم جرب ما يلي: الخروج من سيرفر Xampp الذهاب إلى المجلد E:\xampp\mysql\data تغييراسم ملف ibdata1 إلى مثلا ibdata1_old إعادة تشغيل سيرفر xampp إن شاء الله يعمل بعدها بالتوفيق

تفضل ..... المرحله.accdb

يمكنك استعمال هذا الإجراء وربطه بشكل أو زر في شيت سجل قيد بيانات Sub mas_getdata() Dim sh As Worksheet, n As Long, lr As Long, lr2 As Long Set sh = Sheets("data") lr = sh.Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = 0 Range("b17:s218").ClearContents For n = 9 To lr If sh.Range("f" & n) = [e2] And sh.Range("g" & n) = [e3] Then lr2 = Cells(Rows.Count, 2).End(xlUp).Row + 1 lr2 = IIf(lr2 < 17, 17, lr2) For c = 2 To 19 Cells(lr2, c) = sh.Cells(n, Cells(1, c)) Next c End If Next n Application.ScreenUpdating = 1 MsgBox "Done by mr-mas.com" End Sub ملحوظة: تم استخدام الأرقام في الصف الأول في الكود فلا يجب مسحها يمكن إخفاء الصف بالتوفيق

افتح الصفحة .. ثم انقر يمين الماوس .. تفضل مستحقات العاملين 2.xlsm

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

تم تعديل الكود لكن هناك بعض الملاحظات 1- البيانات غير مكتملة (الكثير من الجداول تحتوي على صفوف فارغة) قمت يتعبئة بعضها عشوائياُ لذلك أعتدر عن المتابعة اذا لم تكتمل الجداول بالشكل المطلوب (دون صفوف فارغة ولا بهم عدد الصفوف أو عدد الاوراق) وفي نفس المكان في كل صفحة (ابنداء من A1 ) 2-تم حذف بعض الصفحات غير المكتملة للتدقيق في عمل الكود (يمكن اعادة وضعها) 3 الاسم الذي تفتش عنه (يأول حرف او عدة حروف) يتم تلوينه بكل الصفحات 3- اكتب حرفاً أو عدة جروف ثم اضغط الزر بحث و تدرج كل الاسماء التي تبدأ بهذه الحروف في الليست بوكس مع عناوينها (اسم الصفحة و غنوان الحلية) وبذلك يمكنك الذهاب الى اي شيت وتقوم بتعديل ما تريد قي الصفوف الخصراء) Shibl_new.xlsm

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

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

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

بما انه لم ترد اية اسئلة حول التطبيق الاول خلال الفترة السابقة سوف ننتقل الي التطبيق الثاني ان شاء الله تعالي خطوات العمل سوف نتعلم كيفية اضافة المالتي بيدج (الصفحات المتعددة) وتخصيص تبويب لاضافة اسم جديد كما تعلمنا في التطبيق الأول وتبويب ثاني سوف نستخدمه في البحث الخطوة التالية اضافة العناصر الي كمبوبوكس الخاص بالبحث بدلالة الأسم كالتالي وبعد ذلك سوف نتعرف معا علي كود البحث كالتالي خطوة خطوة تابع معي...... المرحلة الاخيرة ادارة تبويبات المالتي بيدج (الصفحات المتعددة) وسوف نتعرف فيها علي كيفية الانتقال من تبويب الي اخر وعن تغيير حجم الفورم مع كل تبويب كالتالي ******* ادعوا الله ان اكون وفقت في تبيسط وشرح كود البحث واضافة المالتي بيدج وادارتها وتنسيقتها المثال التطبيقي مع الشرح بالمرفقات >>>>>>>>> والي لقاء اخر في شرح كيفية استخدام الفورم في التعديل وحذف البيانات ان شاء الله تعالي SER.rar

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

السلام عليكم جرب المرفق فورم إضافة بيانات أفقيا_A3.rar

السلام عليكم تفضل اعداد تقارير مدرسية_A.rar

الأخت الفاضلة ما تطلبيه يسمى فرز متعدد المستويات ولعمل ذلك في أوفيس 2003 افتحي ورقة العمل المطلوب تنفيذ الفرز فيها اضغطي في اي خلية داخل البيانات اضغطي على قائمة data بيانات ثم اختاري sort فرز سيظهر لك مربع حوار مثل هذا اختاري فرز بواسطة العمود k والذي به ترتيب الوظيفة وفي السطر الثاني ثم بواسطة اختاري عمود الاسم العمود b وفي الحالتين اجعلي الفرز تصاعدي ascending ولك فرز بواسطة مستوى ثالث إن أردت ذلك عذرا لأني أستعمل أوفيس 2007 ونسيت والله ما كنا نفعله سابقا في الإصدارات القديمة جربي وأخبريني بالنتيجة

أسعدني مرورك على ردودي أخي خالد شرف لي أن أرى منك هذا الاهتمام

أخي الكريم بارك الله فيك خصائص الأداة لا تختلف بين إصدارات الأوفيس مطلقا ربما يتغير الشكل فقط وبالنسبة للطلب الثاني الخاص بكود إنشاء القائمة فهذا هو مع مراعاة تغيير المعاملات المطلوبة Sub Createdropdown() Dim Drp1 As Object Set Drp1 = ActiveSheet.DropDowns.Add(120, 20, 100, 18) With Drp1 .ListFillRange = "$a$1:$a$10" .LinkedCell = "K3" .DropDownLines = 8 .Display3DShading = True .Caption = "اختر من القائمة : " End With End Sub الموجودة بعد with وهي على الترتيب المدى الذي تملأ به القائمة الخلية المرتبطة عدد الصفوف في القائمة عرضها بطريقة ثلاثية الأبعاد عنوان القائمة لا تنسوني من صالح دعائكم في هذه الأيام المباركة

تفضل أخي هذه الدالة تقوم بنفس الغرض إن شاء الله مبنية على دالة iserror الموجودة في إكسل 2000 و 2003 Function IfErr(formula As Variant, show As String) On Error Resume Next If IsError(formula) Then IfErr= show Exit Function Else IfErr= formula Exit Function End If End Function كل عام أنتم بخير

يمكنك الوصول لأدوات التحكم وإضافتها في ورقة العمل من خلال تبويب المطور developer ثم من الأمر إضافة insert كما بالصورة هذا بالنسبة لأوفيس 2007 أما بالنسبة لأوفيس 2003 فمن خلال إظهار شريط الأدوات نماذج forms ولكل قائمة تحدد الخلية المرتبطة وكذلك مصدر القائمة وعدد الصفوف في القائمة من خلال الضغط بزر الفارة الأيمن واختيار خصائص

يبدو أن عملية الحساب calculation تم تغييرها في خيارات الإكسل excel options إلى يدويا manual ويجب عودتها إل تلقائي automatic

ملف رائع أخي الكريم ودالة رائعة الغريب أنها غير موجودة في دوال الوقت والتاريخ وكنا نتغلب على ذلك بعمل دالة هي Function MyDuration(OldDate, NewDate) Dim Separator As String Separator = " - " If IsNull(NewDate) Then NewDate = Date End If If IsNull(OldDate) Or OldDate >= NewDate Then MyDuration = "" Exit Function End If Dim Y As Integer, M As Integer, D As Integer Dim Yn As Integer, Mn As Integer, Dn As Integer Y = DatePart("yyyy", [OldDate]) M = Month([OldDate]) D = DatePart("D", [OldDate]) Yn = DatePart("yyyy", NewDate) Mn = Month(NewDate) Dn = DatePart("D", NewDate) If Dn >= D And Mn >= M Then MyDuration = Yn - Y & Separator & Mn - M & Separator & Dn - D Exit Function ElseIf Dn < D And Mn <= M Then MyDuration = (Yn - 1) - Y & Separator & (Mn + 11) - M & Separator & (Dn + 30) - D Exit Function ElseIf Dn < D And Mn > M Then MyDuration = Yn - Y & Separator & (Mn - 1) - M & Separator & (Dn + 30) - D Exit Function ElseIf Dn >= D And Mn < M Then MyDuration = (Yn - 1) - Y & Separator & (Mn + 12) - M & Separator & Dn - D Exit Function End If End Function

مشكور أخي وجزاك الله خير الجزاء

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