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

السلام عليكم ورحمة اله ملف Word كيفية تلوين صف بناء علي قيمة خلية مع ملف إكسل كمثال مصغر اخوكم في الله / أبو الحسن والحسين شرح تلوين الصف بناء علي خلية مع مثال2.rar مع الانتباة : لكي تعطى النتيجة السليمة قم بمراجعة تحرير وصف القاعدة أي الصيغة ادناه ( "مشغول"=5 M$ =) تلقاها بالخطأ ( "مشغول"=1048576 M$ =) قم بتعديلها حسب الموضح بالشكل.

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

Sub Ali_Num() Dim WS As Worksheet Dim R, RB, RB_To, Vl, I Set WS = ورقة1 With ورقة18 I = .Range("H4").Value For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then RB = Val(.Cells(R, 3)) RB_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) WS.Cells(RB - I + 2, "I").Resize(RB_To - RB + 1) = Vl End If Next End With End Sub أخي الكريم أحمد الحاوي ليس من أبدع كمن عدل ..الكود يظل باسم معلمي أبو نصار إليك التعديل البسيط ليؤدي الغرض

السّلام عليكم و رحمة الله و بركاته أخي الكريم " أبو عبد الرحمن البغدادي " في محرّر الأكواد ..الذيسْ وورْكْ بوكْ .. أكتب ما يلي : Private sub WorkBook_Open() UserForm1.Show End Sub على أساس أنّ اسم اليوزرفورم لديك هو : UserForm1 فائق إحتراماتي

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

أخي الحبيب أبو نصار أعتقد أنه لا داعي لاستخدام الحلقات التكرارية المتداخلة حيث أن ذلك يبطيء من عمل الكود ... جرب الكود بهذا الشكل ولاحظ الفرق في سرعة تنفيذ الكودين Sub Ali_Num() Dim SW As Worksheet Dim R, Rb, Rb_To, Vl, i Set SW = ورقة1 With ورقة18 For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then Rb = Val(.Cells(R, 3)) Rb_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) SW.Cells(Rb + 1, "I").Resize(Rb_To - Rb + 1) = Vl End If Next End With End Sub

السلام عليكم هل تقصد اضافة عمود يقوم بعمل مسلسل حسب رقم الحجره ؟ واذا كان المقصد المسلسل في عمود رقم الحجره كيف اعرف هذا الاسم ينتمي لأي حجره ! جرب هذا الكود حسب فهمي لطلبك Sub Ali_Num() Dim Sw As Worksheet Dim R, Rb, Rb_To, Vl, i Set Sw = ورقة1 With ورقة18 For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then Rb = Val(.Cells(R, 3)) Rb_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) For i = Rb To Rb_To Sw.Cells(i + 1, "I") = Vl Next End If Next End With End Sub

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " ياسر العربي " على الملف الرّائع و اللّمسة السّحرية المميّزة جزاك الله خيرًا و زادها بميزان حسناتك و زادك من علمه و فضله فائق إحتراماتي و إعجاباتي لست أدري لم أعدْ قادرًا حتّى على رفع صورة إلى المنتدى .. فقمت برفع الملف على موقع خارجي أرجو المعذرة : http://up.top4top.net/downloadf-top4top_34eb2002031-rar.html

السلام عليكم اخي الكريم ابو عبدالملك اعلم ان التعديل يأخذ جهد مضاعف اذا اردت التفاعل من الاعضاء مع طرحك يفضل طلب عمل منفصل لكي يسهل العمل على من اراد المشاركه عموماً اطلعت على ملفك لاحظت ان عمود V في التقرير الشهري فارغ وانت طرحت التالي فكيف نحطه كشرط ضمن الكود وهو فارغ فابطبع لن ينفذ شيء الكود ! تفضل الكود التالي بعد ان تضيف الشهر في عمود V بصفحة التقرير الشهري قم بتشغيله كي يعمل معك Sub Ali_Am() Dim Sht As Worksheet Dim R&, Tx$ Set Sht = Sheets("مجمع النتائج الشهرية") ''************************************** With Sheets("التقرير الشهري") For R = 2 To LR Tx = CStr(Sht.Cells(R, 3)) If Tx = .Cells(R, 3) Then If Ch_Month(.Cells(R, "V")) = CStr(Sht.Cells(R, "V")) Then If SH.Cells(R, "R") >= 60 Then .Cells(R, "L") = Sht.Cells(R, "N") .Cells(R, "M") = Sht.Cells(R, "O") ElseIf SH.Cells(R, "R") < 60 Then .Cells(R, "L") = Sht.Cells(R, "L") .Cells(R, "M") = Sht.Cells(R, "M") End If End If End If Next End With ''************************************** End Sub Private Function Ch_Month(Mn As String) Dim Mm& Dim Tn$, X$ For Mm = 1 To 12 Tn = MonthName(Mm) If Tn = Trim(Mn) Then Mm = Mm - 1 X = MonthName(Mm) Exit For End If Next If Mm Then Ch_Month = X End Function لم اجرب الكود اذا به اي اخطاء اشعرنا وان شاء الله لن يقصر معك الجميع تحياتي

السلام عليكم لا عليك اخي مصطفى محمود نحن بالخدمة طالما السؤال في حدود المعرفه جرب المرفق التكرارفي الصفحةالزوجية_111.rar

السلام عليكم و رحمة الله و بركاته جزاك الله كل خير اخي ابو محمد و متابع معك على احر من الجمر

جرب هذا التعديل هذا التعديل بيتماشي مع ملفك كما هو بوضعه الحالي Dim Sh As Worksheet Sub Ali_Prnt() Dim R As Long Dim Ar Dim Rn As Range, Rn1 As Range Set Sh = ActiveSheet '********************************************** On Error Resume Next Application.EnableEvents = True With Sh II = .PageSetup.PrintArea For R = 1 To .VPageBreaks.Count Ro = .VPageBreaks(R).Location.Row Cl = .VPageBreaks(R).Location.Column Ar = .Range(.PageSetup.PrintArea) Lr = UBound(Ar, 2) + 1 Rw = UBound(Ar, 1) + 1 Set Rn = .Range(Cells(Ro, 2), Cells(Rw, Cl - 1)) Set Rn1 = .Range(Cells(Ro, Cl), Cells(Rw, Lr)) Ali_Rest With .PageSetup .PrintArea = Rn.Address .RightHeader = Sheets("الاساسية").Range("A1").Value & Chr(13) & Sheets("الاساسية").Range("A2").Value .LeftHeader = Sheets("الاساسية").Range("B1").Value & Chr(13) & Sheets("الاساسية").Range("B2").Value .RightFooter = Sheets("الاساسية").Range("A3").Value & Chr(13) & Sheets("الاساسية").Range("A4").Value .CenterFooter = Sheets("الاساسية").Range("b3").Value & Chr(13) & Sheets("الاساسية").Range("b4").Value End With .PrintPreview Ali_Rest With .PageSetup .PrintArea = Rn1.Address .LeftHeader = Sheets("الاساسية").Range("c1").Value & Chr(13) & Sheets("الاساسية").Range("c2").Value .LeftFooter = Sheets("الاساسية").Range("c3").Value & Chr(13) & Sheets("الاساسية").Range("c4").Value End With .PrintPreview Next R .PageSetup.PrintArea = II End With Application.EnableEvents = False '********************************************** On Error GoTo 0 End Sub Private Sub Ali_Rest() With Sh With .PageSetup .RightHeader = "" .RightFooter = "" .CenterFooter = "" .LeftHeader = "" .LeftFooter = "" End With End With Set Sh = Nothing End Sub

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

اعرض الملف برنامج المدرسة الالكترونية اعدادي وثانوي صاحب الملف خيري محمد تمت الاضافه 18 نوف, 2015 الاقسام قسم الأكسيس

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

بارك الله فيك أخى الحبيب الغالى / ياسر خليل كود أكثر من رائع جعله الله فى ميزان حسناتك تقبل تحياتى

ولا يهمك ، هذه الطريقة: 1. انت عملت استعلام كمصدر لنموذجك ، انا استعملته في استعلام ، وذلك لأن به جميع الحقول التي تريدها لنموذجك: . وهاي نتائجه: . ثم استعملت هذا الاستعلام لعمل استعلام ثاني ، فقط لأحسب اسماء العملاء في الاستعلام السابق: . والنتيجة: . والان اصبح عندي استعلام به الحقول ، واستعلام آخر به عدد اسماء العملاء ، فعملت استعلام ثالث ، وجبت فيه الاستعلام الاول و الثاني ، وربطت الاستعلامين باسم العميل (لاحظ اسم العميل موجود في الاستعلامين): . والنتيجة ، جميع الحقول التي نريدها ، مع حساب اسماء العملاء: جعفر

تفضل تمت العمليه بإستخدام 3 استعلامات ، والنتيجة: جعفر 274.dcount in form.accdb.zip

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

حبيبى الغالى المهندس / ياسر بارك الله فيك .. و جزاك الله خيرًا و زادها بميزان حسناتك تقبل خالص تحياتى وتقديرى

بارك الله فيك استاذ ابو محمد تم والحمد لله جميع المراحل بنجاح يتبقي.،، اولا:- كيف يتم (عمل واستعادة)النسخه الاحتياطية عن طريق الاكسس وليس من داخل السيرفر لان كما تعلم العميل لا يعرف يعمل نسخه من داخل السيرفر وانما لابد ان يكون ذلك من خلال الاكسس ثانيا:- عند اعطاء البرنامج للعميل كيف يكون الوضع.،. هل يجب ان يقوم بتصطيب ال sql server exp ومن ثم تشغيل برنامج الاكسس ام ماذا تحياتي لك وعلي الجهد المبذول وبارك الله فيك

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

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

الاخ الفاضل ياسر العربي خبط وزبط زي ماانت عايز ان شاء الله يعمل معاه تعديلك تحياتي

وعليكم السلام ورحمة الله في وضع إغلاق الجداول والاستعلامات قم من تبويب خيارات اختيار مصممو الكائنات ثم في SQL Server - ANSI92 قم بإلغاء الاختيار على خانة قاعدة البيانات هذه انظر الصورة المرفقة

استاذي الغالي العيدروس واضح انه في مشكلة في تحديد الخلية j8 فانا ريحت دماغي ومفكرتش ابحث وخبطت كدا علي طول علي حد علمي البسيط Sub Ali_A() Dim Ws As Worksheet, L Dim Rng As Range Dim Rn As Range On Error Resume Next Set Ws = Sheets("salary") L = Split(Ws.UsedRange.Address, "$")(4) For Each Rng In Union(Ws.Range("C8:C" & L), Ws.Range("AM8:AM" & L)) If Rng.Borders(xlEdgeRight).LineStyle <> -4142 Then If Not Rng Is Nothing Then If Rn Is Nothing Then Set Rn = Rng Else Set Rn = Union(Rn, Rng) End If End If End If Next With Sheets("Total") If Not Rn Is Nothing Then Rn.Copy Application.ScreenUpdating = False Sheet7.Activate .[j8].Select .Paste Sheet3.Activate Application.ScreenUpdating = True End If End With Application.CutCopyMode = False Set Rn = Nothing Set Rng = Nothing End Sub وعذرا علي التخبيط اللي عملناه في كودك

اخى مختار اقتبست رد اخى ياسر لانه ابلغ رد

الاستاذ / العيدروس ( ابو نصار ) جزيت الخير من رب العالمين على اهتمامك بالرد فلك مني كل الشكر والتحية استاذنا الاستاذ ياسر ( ابو البراء ) : ماشاء الله .. كود رائع يفي بالمطلوب تماما .. جزاك الله خيرا .. وزادك علما ونشاطا لخدمة الاعضاء ..لك كل التحية والتقدير الاساتذة الافاضل : عذرا .. عند تعديل بداية رقم الجلوس ... لا يعمل الكود بالشكل المطلوب .. اذ انه يقوم بتكرار بعض ارقام الحجرات امام حجرات اخرى .. كما في المرفق ترقيم تلقائي.rar

اشكرك اخي العزيز ودمت لنا معلما

السلام عليكم ورحمة الله وبركاته انا نزلت 2010 ظهرت نفس المشكلة ... تصدير البيانات مع التنسيق والتخطيط غير مفعل ( نفس الشاشة السابقة في 2007 اضافة الى ما سبق ..... انا لا حظت انه عند تصدير جدول يعطي الخيار تصدير البيانات مع التنسيق مفعل ولا يفعل هذا الخيار عند تصدير التقرير

استاذنا جيفار ياما اتعلمنا منك

السّلام عليكم و رحمة الله و بركاته حسب بياناتك الشّخصيّة .. الوقت عندك بالجمهورية المصرية الشّقيقة متأخر قليلاً عنّي هنا .. و قد غلبك النّعاس .. كيف أرسل لك ملف مقفل أخي الكريم !!؟؟ الملف فقط رفعته من هنا على هذا الرّابط .. و قد تجد كذلك ملفا آخرا رائعا للأستاذ القدير " ياسر العربي " .. جزاه الله خيرًا و زادها بميزان حسناته http://www.officena.net/ib/topic/64758-%D8%B7%D9%84%D8%A8-%D8%B9%D9%85%D9%84-%D8%B4%D8%A7%D8%B4%D8%A9-%D8%AF%D8%AE%D9%88%D9%84-%D8%A8%D9%83%D9%84%D9%85%D8%A9-%D8%A7%D9%84%D9%85%D8%B1%D9%88%D8%B1/ قمت فقط ببعض الرّتوشات على العناوين .. و الملف اشتغلت عليه أكثر من 50 مرّة ..عندما لا أجد شيئا أعمله " أُشَقْلبْ " الأكواد ثم أرتبها للتدرّب .. فائق إحتراماتي

شاهد المرفق اكتب تاريخ البداية والنهايه في المربعين ع الفورم وانقر بحث تحياتي الرشيدى _ إحصاء_111.rar

السّلام عليكم و رحمة الله و بركاته على رأي أخي الفاضل و أستاذي القدير " ياسر العربي " .. أنت الآن جئت برجليْك لملعبي .. فقط قبل ذلك ما هو الاسم " بالعربية طبعا " الذي تودّ ظهوره على الشّاشة الافتتاحية .. هذا الاسم الذي يُرجى حسب توجيهات المنتدى أن يوفّقك الله و يتم الظهور به على منتدانا الحبيب بإذن الله .. فائق إحتراماتي

مجرد تسمية للكود بإمكانك تسمية ماتشاء مثلاً Sub Naser_Almsre () اسم فقط هذا يرمز الى تحديد الخلايا التي تحتوي على صيغه الملاحظ انا عمود Am يحتوي على صيغ فقط لذا عبرنا عن التي تحتوي على صيغه اما بخصوص مرفقك الاخير لم افهم طلبك بخصوص الجدول هل ملفك الاساسي به جداول وبينها فراغات اما جداول وبينها اسطر قيم ؟

وعليكم السلام المشكلة لديك سببها أخي الفاضل هو تنسيق التقرير نفسه.. فانظر إلى التقرير من حيث العرض ستجد مساحة كبيرة تفوق 50 سم ولإجراء التنسيق للتقرير عليك بضبطه من إعداد الصفحة في وضع تصميم التقرير وعموما أنظر التعديل لعله يفي بطلبك.. حيث ستظهر حقول الإجماليات أسفل المواد وإذا أردت أن تظهر في كل صفحة فعليك نقلها إلى تذييل الصفحة جرب ووافني بالنتيجة Copy of Copy of Copy of Counter.rar

أخي الكريم الجواد الأبيض أهلا بك في المنتدى ونورت بين إخوانك نتمنى لك قضاء أمتع الأوقات مع إخوانك بالمنتدى جرب الملف التالي عله يفي بالغرض Swimming Heats.rar

يعطيك الف عافيه اخي ابو محمد2

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

السلام عليكم لم افهم طلب الاخ مشعل الا من ردودكم بارك الله فيكم اخي سليم واخي ياسر كنت اضن التنازلي بالقيمة وليس بعدد التكرار تقبلو تحياتي هذا ماعملت عليه حسب القيمة Sub Ali_A() Dim Rn As Range Dim Ar, S_A, y, I, J, It On Error Resume Next Set Rn = Range("A2:D21") Set Ap = Application.WorksheetFunction: ii = 2 With CreateObject("scripting.dictionary") For Each It In Rn y = .Item(It.Value) Next Ar = Split(Join(.Keys, ","), ",") For I = LBound(Ar) To UBound(Ar) For J = I + 1 To UBound(Ar) If Ar(I) < Ar(J) Then S_A = Ar(J): Ar(J) = Ar(I): Ar(I) = S_A Next J If Ap.CountIf(Rn, Ar(I)) > 0 Then _ Cells(ii, "G") = " تكرر العدد " & Ap.CountIf(Rn, Ar(I)) & " مرات ": Cells(ii, "F") = Ar(I): ii = ii + 1 Next End With End Sub

طريقة التنسيق وتدوس علي كلمة تنسيق جمب اللون وتختار التنسيقات اللي انت عايزها والالوان

أخي الكريم ارفق ملفك ليسهل تقديم المساعدة من إخوانك

يقول المثل ابا خليل قديمك نديمك لذلك شغلك القديم اصح ! واسمح لي باختصاره الى الكود التالي Shell "cmd.exe /C copy " & """" & CurrentProject.FullName & """" & " " & """" & CurrentProject.Path & "\abc.mdb" & """" حيث الانتباه الى تساوي الامتداد بين الملف الحالي والوجهة ! تحياتي

وعليكم السلام في مكتبتي امثلة كثيرة متنوعة للنسخ ولكني عثرت لك على هذا الكود الصغير يقوم بنسخ اي شيء باي اسم واي امتداد وصيغة ولصقه على اي اسم نختاره واي امتداد وصيغة Private Sub zer1_Click() CopyFile CurrentProject.Path & "\xx.accdb", "D:\xx.accdb" End Sub Function CopyFile(vPathSource As String, vPathDestination As String) As Boolean FileCopy vPathSource, vPathDestination CopyFile = True End Function اخي آخر الارض .. جرب ووافنا بالنتائج

السلام عليكم ورحمة الله وبركاته أقدم لكم موضوع بسيط جداً ومهم جداً ومفيد جداً ... وإن شاء الله بعد الإطلاع على الموضوع من قبلكم سيتم ضربي ضرباً مبرحاً جداً أكواد البداية والنهاية (على وزن سلسلة البداية والنهاية للعلامة ابن كثير) الموضوع يتلخص في كلمتين .. لما يكون عندك كود بيستغرق وقت طويل في التنفيذ ، دا بيرجع أسبابه لعوامل كثيرة ، لن نتظرق إليها لأنه موضوع يطول شرحه .. فجئت إليكم بحل بسيط وفعال ..الحل كالتالي .. تضع الكود التالي (كود البداية وكود النهاية) في موديول دا كود البداية Public Sub YK_Start() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual End Sub ودا كود النهاية Public Sub YK_End() Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub وكلا الكودين مسبوقين بكلمة Public عارفين ليه ؟ عشان تقدر ببساطة تضع الكودين في أي موديول وتستدعيهم من أي موديول آخر كود البداية بيلغي تحديث الشاشة ورسائل التنبيه ويلغي تفعيل الحدث ويخلي الحسابات بشكل يدوي وكود النهاية بيرجع اللي فات للإعدادات الأصلية في الملف المرفق مثال .. كود يقوم بعمل حلقة تكرارية لـ 100000 صف تم استدعاء كود البداية في البداية وكود النهاية في النهاية .. والاستدعاء تم بمحضر من القسم والمحضر مكتوب فيها كلمة واحدة Call يليها اسم الكود المراد استدعائه Sub LoopExample() Dim Cell As Range Call YK_Start Columns("B:F").ClearContents For Each Cell In Range("A1:A100000") Cell.Offset(, 1) = Cell.Value + 1 Cell.Offset(, 2) = Cell.Value + 2 Cell.Offset(, 3) = Cell.Value + 3 Cell.Offset(, 4) = Cell.Value + 4 Cell.Offset(, 5) = Cell.Value + 5 Next Cell Call YK_End End Sub وممكن نستغنى عن الكلمة Call ونكتب اسم الإجراء بشكل مباشر ، بس أنا تقليدي وأحب الالتزام بالتقاليد وأحبذ استخدام كلمة Call وضعت لكم بالملف المرفق كود آخر هو الذي سيتم تنفيذه من خلال ورقة العمل ، يقوم الكود بحساب الوقت المنقضي نفذ الكود ستجد أن الكود يستغرق حوالي 10 ثواني لحظة انتظر من فضلك لا تغلق الملف .. جرب التجربة الثانية .. ضع تعليق من خلال علامة ' (حرف الطاء وإنت بتكتب إنجليزي) ضع هذه العلامة في بداية السطر 'Call YK_Start عند وضع تعليق لا يتم الالتفات إلى هذا السطر أثناء التنفيذ وضع تعليق أيضاً على السطر الخاص بكود النهاية 'Call YK_End ثم نفذ الكود ..ستجد أن الوقت المستغرق حوالي 18 ثانية (يعني أن هناك حوالي - وحوالي جمع حولية والحولية هي النعجة - أعتذر للخروج ، بس مش مشكلة تستفيدوا معلومة في العربي عشان لو طلعتوا مش فاهمين الموضوع يبقا خرجتوا بمعلومة ) ستجد أن الفرق في الوقت 8 ثواني .. يلا الحمد لله وفرنا عليكم 8 ثواني ، وإنتو أكيد عارفين قيمة الثانية وفي النهاية أرجو أن يكون الموضوع مفيد ، وأن تستفيدوا منه ، ولا تنسونا بصالح دعائكم كان معكم أخوكم الموفر للثواني ياسر خليل أبو البراء دمتم بود وتقبلوا تحياتي YK_Start & YK_End.rar YK_Start & YK_End 2003.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. إليكم حيلة بسيطة لتتعلم كيف تخفي محتويات بعض الخلايا التي تريد إخفائها .. أترككم مع الفيديو عله ينال إعجابكم (وشوفوا الصوت اتظبط كدا ولا لا ... ومتنسوش اللايكات !!) تقبلوا تحياتي أخوكم أبو البراء

ينقل ....

السلام عليكم الامر بسيط 1- افتح الملف المرفق 2- اجعل الماوس علي (ماكرو القائمةالرئيسية) 3- اذهب Tools Marco Create Menu Form macro لإستفسارات أخرى يرجى مراسلتي علي bu_humaid@hotmail.com New_Microsoft_Office_Access_2007_____________.rar