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

اتفضل القي نظرتا الى هذا الموضوع ولان حضرتك كتبت هذه الجملة اتفضل اليك هذه المواضيع و تقبل تحياتي

وعليكم السلام بعد اذن الأخ @kanory جرب الكود التالي في حدث On Load أو عند التحميل للتقرير Select Case Format(Date, "dddd") Case "Sunday" Me.مربع_خانة48.BackColor = RGB(156, 216, 255) Case "Monday" Me.مربع_خانة48.BackColor = RGB(214, 204, 172) Case "Tuesday" Me.مربع_خانة48.BackColor = RGB(214, 172, 213) Case "Wednesday" Me.مربع_خانة48.BackColor = RGB(172, 214, 173) Case "Thursday" Me.مربع_خانة48.BackColor = RGB(214, 175, 172) Case "Friday" Me.مربع_خانة48.BackColor = RGB(174, 172, 214) Case "Saturday" Me.مربع_خانة48.BackColor = RGB(244, 122, 237) End Select

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

يعطيك العافية أخوي @kanory جهزت الملف أخوي @ابا جودى عافاك الله وكذلك أحبك في الله

بخصوص الموديول تفضل @ابا جودى هذي الفانكشن نحطها في كلاس Public Function getBackColor(DayName As String, repName As String) On Error Resume Next Dim rep As Report Dim chst As String Set rep = Reports(repName) Select Case DayName Case "السبت", "Saturday", "Sat" chst = Nz(DLookup("[Sa]", "tblDayColoer", acFirst), "16777215") rep.Detail.BackColor = chst Case "الاحد", "Sunday", "Sun " chst = Nz(DLookup("[Su]", "tblDayColoer", acFirst), "16777215") rep.Detail.BackColor = chst Case "الاثنين", "Monday", "Mon" chst = Nz(DLookup("[Mo]", "tblDayColoer", acFirst), "16777215") rep.Detail.BackColor = chst Case "الثلاثاء", "Tuesday", "Tue" chst = Nz(DLookup("[Tu]", "tblDayColoer", acFirst), "16777215") rep.Detail.BackColor = chst Case "الاربعاء", "Wednesday", "Wed" chst = Nz(DLookup("[We]", "tblDayColoer", acFirst), "16777215") rep.Detail.BackColor = chst Case "الخميس", "Thursday", "Thu" chst = Nz(DLookup("[Th]", "tblDayColoer", acFirst), "16777215") rep.Detail.BackColor = chst Case "الجمعه", "Friday", "Fri" chst = Nz(DLookup("[Fr]", "tblDayColoer", acFirst), "16777215") rep.Detail.BackColor = chst End Select End Function وهذا الكود نستخدمها في مع حدث On Format في التقرير Call getBackColor(Me.DayName, Me.Name)

أشكرك أخي عبدالله وهذه طريقة أخرى pass.mdb

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

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

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Windows.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي System Information.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Printing.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Multimedia.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Miscellaneous.rar

سؤال : هل يمكن حصر رموز الأخطاء التي تظهر في رسائل نظام الأكسيس ، للتعرف على وصف كل منها ، ضمن جدول و تطبيق للبحث يمكن من خلاله البحث عبر شبكة الانترنت ( Google تحديدا ) عن أسباب الخطأ و حلوله ؟ الجواب : نعم و الحل في التطبيق المرفق تنويه : الجدول يحمل 2977 رمز خطأ و و صفه باللغة الانجليزية ، هذه دعوة لتوسيع التطبيق و اضافة تراجم لأوصاف رموز الأخطاء في الجدول ، مع وصف للحلول و الحالات التي تطلق رسائل الخطأ لكل رمز ، لعموم الفائدة ، كما يمكن استخدامه كمكتبة شخصية لتجميع الملاحظات حول الاخطاء التي تواجه كل منا . و الله من وراء القصد ... NA__ErrorCodeArchive.accdb

السلام عليكم ورحمة الله وبركاته اقدم هدية متواضعة لكم تصريح دخول للبرنامج الرقم السري 12345 تصريح دخول.accdb

السلام عليكم اخى الفاضل ali mohamed ali بارك الله فيك استاذى بالفعل هذه هوا الملطلوب بارك الله فيك الف الف شكر

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

جزاك الله خيرا استاذ زيزو خير الجزاء جزاك الله خيرا استاذ سليم بارك الله فيكم وجعله في ميزان حسناتكم

أشكرك أخي @ابا جودى أحبك الله الذي احببتنا من أجله

استاذ @عبدالله كاظم استاذ @kanory جزاكم الله خير احبكم فى الله

تفضل أخي @ابا جودى rpt coloer.mdb

أخي الكريم @Khalf هذا الملف MDE هو ملف اكسس مقفول فلا تستطيع أن تعرف نوع التصميمات الموجودة في ولا التعديل على الاكواد

غير خاصية Alternate Back Color إلى No Color

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

رائع أخوي @ابا جودى المرفق يعمل بشكل بدون مشاكل إما إذا كان قصدك في مرفق الأخ السائل فالـ Name حق Detail في في ملفه هو [تفاصيل] تقريبا

معلومة ع الطاير لعمل خط على الوورد بعدة طرق وعدة اشكال 1- نكتب +++ ثم نكبس انتر 2- نكتب --- ثم نكبس انتر 3- نكتب *** ثم نكبس انتر 4- نكتب ### ثم نكبس انتر جربوها لعمل جدول نكتب علامة + ثم نكبس على تاب (مسافة) ثم نضع علامة + اخرى .... وهكذا نحدد عدد الاعمدة ثم نكبس انتر + + + + + +

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

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

انا لا اعتقد ان الويندوز علاقة ولكن قد تكون اضفت مكتبات انت الى الويندوز ٧ والان ليست ضمن ويندوز ١٠ وعلى كل حال ارفق قاعدتك يا استاذ @حسين العربى كي اقوم بالتجربه انا عندى ويندوز ١٠

في هذا الفيديو شرح لخاصية (الاستهداف) (Goal Seek) الموجودة في الإكسل .. وطبعا ليها إستخدامات عديدة وتطبيقات مختلفة بحسب كل مستفيد من تلك الخاصية .. Goal Seek.rar

بارك الله فيكم الاستاذ عبدالله كاظم والاستاذ ابو خليل

عمل أكثر من رائع شكراً للسائل و للمجيب

الحمدلله والعفو اخوي

وعليكم السلام ورحمة الله زبركاته اتفضل جرب هذا الكود في زر أمر Dim i As Long, i2 As Long Dim x As String, x2 As String Dim ftNo As String x = Replace(Me.N1, "L", "") x2 = Replace(Me.N2, "L", "") i = CLng(x) i2 = CLng(x2) Do Until i = i2 + 1 Debug.Print i ftNo = "L" & Format(i, "00000") If DCount("[Rjmfatwra]", "AfwtIar_arwd", "[Rjmfatwra]='" & ftNo & "'") <> 0 Then CurrentDb.Execute "DELETE * FROM AfwtIar_arwd WHERE ((([Rjmfatwra])='" & ftNo & "'));" End If i = i + 1 Loop Me.N1 = Null Me.N2 = Null

اشكرك اخى kanory على المجهود و الشرح

جزاك الله خيرا استاذنا هذا هو المطلوب

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

جزاكم الله خيرا اخى الحبيب واستاذى الفاضل

مساء الخير كيف تغلبت على ثغرة الشفت و تعطيل الماكرو ؟

السلام عليكم و رحمة الله و بركاته ممكن نعمل نسخة تجريبية و عداد يومي مثلا 30 يوم أو 100 عملية من نوع محدد كما يمكن نختار مفتاح المنتج و مؤلف من أكثر من حرف و رقم و رقم نسخة أيضاً . كما يمكن ان نقوم بتسجيل النسخة على الانترنت و لمرة واحدة فقط ( مثل مفاتيح نسخة مضاد الفيروس ) و هذه كانت لي تجربة فيها تحياتي لكم

تفضل اخي عبد اللطيف

تفضل استاذى الكريم فى حالة ان الصف من الأول الى الثالث فيكون عمود النسبة فى الثلاثة مواد العلوم والدراسات والتربية الدينية يساوى فراغ وتترك خالية تحيل_النتيجة_تيرم_ثان_ 1).rar

أخى الكريم اكتب ووضح على الملف النتائج المطلوب استخراجها والحصول عليها فالموضوع مازال مبهم

السلام عليكم ورحمة الله تعالى وبركاته قم بتجربة المرفق الاتى fix Property sheet.zip

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

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

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

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Strings.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Internet.rar

أخي الكريم إذا استعملت البحث في أوفيسنا ستجد روائع في هذا المجال هذا الرابط واحد منها http://www.officena....showtopic=31297 وأنا بطبعي أحب الاختصار فقمت بعمل كود مختصر يقوم بنفس الغرض إن شاء الله فقط ضع في موديول الكود التالي Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate fc.FontSize = fc.FontSize * wrate Next End Function وفي حدث عن تحميل النموذج قم باستدعاء الدالة كالتالي resizefrom Me, 800, 600 حيث 800 في 600 هي دقة الشاشة المناسبة لعرض النموذج بدون تحجيم (يمكنك كتابة دقة الشاشة الحالية التي تصمم فيها البرنامج) وإذا تغيرت عن هذا يتغير حجم النموذج سواء بالتكبير أو بالتصغير جرب وأخبرني بالنتيجة