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

تفضل هذه مكتبة اللوان من اروع المكتبات 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 العميل عندما يتصل حاسوبه بالانترنت هل هناك كود لعمل ذلك ؟

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

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

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

تفضل هذه طريقة اخرى 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 تحياتي

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

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

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

شكرا أستاذنا

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

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

بالخدمة استاذ عمر

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به الاخوة الكرام ولهم الشكر تفضل اخي الكريم تحياتي

وعليكم السلام -بسيطة , تفضل المثال 1 _xlsm.xlsm

لا أدري هل ظهر هذا بعد إلغاء تثبيت السيرفر ثم إعادة تثبيته فقط أم تمت بعض التغييرات في مجلدات السيرفر على العموم جرب ما يلي: الخروج من سيرفر 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 ملحوظة: تم استخدام الأرقام في الصف الأول في الكود فلا يجب مسحها يمكن إخفاء الصف بالتوفيق

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

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

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

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

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

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

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

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

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

تفضل أخي هذه الدالة تقوم بنفس الغرض إن شاء الله مبنية على دالة 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

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