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

تفضل هذه مكتبة اللوان من اروع المكتبات 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

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

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

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

تمام شكراََ جزيلاََ لرحابة صدرك

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

يمكنك اخفاء ورقة العمل بدون كود كلك يمين على اسم الشيت ثم اخفاء hide ولو بالكود Sheets("sheet name").visible = False مع تغيير اسم الشيت المطلوب مكان sheet name بالتوفيق

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

شكرا أستاذنا

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

اخي الكريم عادة هذه الملصقات لاعدادها تحتاج منك المحاولات العديدة حتى تصل للمطلوب .... يعني تحاول تعديل حجم التقرير أقصد حجم الملصق الموجود في التقرير وتطبع على ورق A4 ثم تقارن مع اوراق الملصقات وهكذا حتى تصل للتقرير الذي يرضيك ..... وايضا يمكن استخدام المعالج الموجود في الاكسس لطباعة الملصقات لصنع التقرير المناسب ثم تعدل عليه حسب التقرير الذي تريد .... جرب المرفق واظهر المعالج واختر مايناسبك حتى تصل للمطلوب ثم انقل تلك الاعدادا الى تقريرك .... طباعة ملصقات نهائي (1).mdb

يمكن استعمال المعادلة التالية في الخلية 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

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

من اعدادات الصفحة حدد الطابعة و بعد التحديد ستجد ان عرض الورقة اختلف و صار اصغر

المطلوب غير منطقي أريد كود (هذا اعتراف بأنه كود) وجميع الأكواد لن تعمل إلا إذا قام المستخدم بتفعيل الماكرو ربما أن يفتح الملف على شيت به صور وشرح لطريقة تفعيل الماكرو يؤدي الغرض مثل هذه الصور مع كتابة عبارات مثل : حتى يعمل الملف بصورة صحيحة يجب الضغط على زر تمكين المحتوى Enable content أو ضبط الإكسل على الموافقة على تشغيل جميع الأكواد بهذه الطريقة بالتوفيق

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

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

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

بما انه لم ترد اية اسئلة حول التطبيق الاول خلال الفترة السابقة سوف ننتقل الي التطبيق الثاني ان شاء الله تعالي خطوات العمل سوف نتعلم كيفية اضافة المالتي بيدج (الصفحات المتعددة) وتخصيص تبويب لاضافة اسم جديد كما تعلمنا في التطبيق الأول وتبويب ثاني سوف نستخدمه في البحث الخطوة التالية اضافة العناصر الي كمبوبوكس الخاص بالبحث بدلالة الأسم كالتالي وبعد ذلك سوف نتعرف معا علي كود البحث كالتالي خطوة خطوة تابع معي...... المرحلة الاخيرة ادارة تبويبات المالتي بيدج (الصفحات المتعددة) وسوف نتعرف فيها علي كيفية الانتقال من تبويب الي اخر وعن تغيير حجم الفورم مع كل تبويب كالتالي ******* ادعوا الله ان اكون وفقت في تبيسط وشرح كود البحث واضافة المالتي بيدج وادارتها وتنسيقتها المثال التطبيقي مع الشرح بالمرفقات >>>>>>>>> والي لقاء اخر في شرح كيفية استخدام الفورم في التعديل وحذف البيانات ان شاء الله تعالي 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 كل عام أنتم بخير

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