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

تحية طيبة اصدقائي هذه الاداة تقوم بتخفيض مستوى امان الاوفيس ( برنامج الاكسس فقط ) من الاصدار 2003 وحتى الاصدار 2016 Project1.rar

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

اخواني الكرام اضع بين ايديكم الجزء الاول من شرح الترحيل وبإنتظار تعليقاتكم واستفسارتكم ابواحمد الجزء الاول من الشرح ملف شرح الجزء الاول الترحيل.rar الجزء الثاني من الشرح ملف شرح الجزء الثانى الترحيل2.rar الجزء الثالث من الشرح (ترحيل القيم - ترحيل محدوود) ملف شرح الجزء الثالث الترحيل3.rar الجزء الرابع من شروحات الترحيل ملف شرح الجزء الرابع ترحيل حسب اسم الشيت.rar لا تنسوني أخوتي من الدعاء لي بظهر الغيب

السلام عليكم اذا كانت الاسماء مكتوبة بالشكل الموجود في الملف فهذه دالة مستحدثة تقوم بالمطلوب mother-name.rar

تحية طيبة اخي عبدالله ماهي المشاكل التي ستحدث في حال كانت قاعدة بيانات الخلفية مفتوحة دائما ؟؟؟؟؟

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

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

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

اليك الصور التالية اخي الكريم في الحالات الثلاثة البرنامج مستقل عن اكسس

السلام عليكم جزاك الله خيرا أخي الزباري على هذا الشرح لفتت إنتباهي كلمة في كود أخي إبراهيم أبو ليله في سطره الأول : و هي كلمة odd فأردت المشاركة بإستعمال هذه الكلمة : Sub test() Dim i As Integer, x As Integer x = 1 For i = 1 To 16 Step 2 Cells(x, 1) = WorksheetFunction.Even(i) Cells(x, 2) = WorksheetFunction.Odd(i) x = x + 1 Next i End Sub

اسف على التأخير الرد اتفضل مع تحياتي شفان ريكاني مشروع11ورسالة تاكيد.rar

رابعاً: أنشي الجدول الخاص بالرسومات التفاعلية تحت الجدول الرئيسي كالتالي: انسخ المعادلة في جميع الخانات السفلية مع تغيير الرقم في الخانين إلى 2 و 3.

تحياتي لك يا إبراهيم ابوليله فقد قرأت أفكاري، سنبدأ بهذه الإضافة (step) بعدما نجيب على السؤال السابق.. ومنك نتعلم.

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

طلعت محمد حسن اخى الفاضل ما شاء الله _ اعمال مخمليه ابداعيه تحياتى

اخي العزيز في نموذج اللي اسمه "السجل" اكتب تاريخ التوقيف وبعدين اكتب ايام التوقف مثلا 25 يوم راح تشوف انو سيزداد الى تاريخ انتهاء التوقيف مع تحيات شفان ريكاني

في البداية انا عملت استعلام باسم query2 وخليت في حقل تاريخ انتهاء العقد هذا <=date() يعني يظهر استعلام من تاريخ الحقل انتهاء العقد اصغر او يساوي اليوم وبعدين عملت نموذج باسم asmend وخليت مصادره استعلام query2 و في نموذج الرئيسي عند يفتح كتبت هذا الكود dim xx as integer 'متغير باسم ئكس ئكس وخليتها رقم xx = nz(dcount("[employee_name]" , "query2")) 'ئكس ئكس يساوي نول زير يعنس اذا كان خالي خليها صفر وتعدا من حقل امبلوي نيم من كواريري 2 if xx > 0 then 'اذا ئكس ئكس كان اكبر من الصفر بعدين beep 'صوت if msgbox("عندك" & " ( " & xx & " ) " & "موظف المنتهي عقده ، هل تريد تتابعها" , vbyesno + vbmsgboxright, "تنبيه" ) = vbyes then ' بعدين فتحت شرط اخر برسالة وبها زرين نعم و لا و خليت اسم الرسالة تنبيه و خليت الرسالة بيكون من اليد اليمنى وقفلت قوس الرسالة و واذا كان تضغط على زر الرسالة نعم بعدين docmd.openform "asmend" m acnormal ' فتح نموذج "asmend" بطريقة نورمال else ' واذا كان لا تضغط على زر نعم ما كتبت شي يعني لا تعمل اي شيء end if 'قفل ايف الاول end if 'قفل ايف الثاني مع تحياتي شفان ريكاني PSDB - Copy.rar

وعليكم السلام ورحمه الله وبركاته جرب هذا الكود اخى الحبيب اضف زر جديد وضع فى حدث عن النقر هذا الكود - قم بتغيير TABLE NAME الى اسم الجدول المطلوب DoCmd.OutputTo acOutputTable, "TABLE NAME", acFormatXLSX, "AL HOSAM .xlsx", True

مشكور يالغالي اخي حسام ربي يوفقك

تحية طيبة اخي اسلام بداية احرجني قسمك عليي فانا اخذت هذا المثال من احد الاصدقاء في المنتدى و لم ابحث فيه كثيرا بالنسبة الى الاستخدام استورد الى برنامج كافة الوحدات النمطية للفئة ( كلاس موديول Class module ) انشئ نموذج جديد في طريقة ورقة البيانات في قسم التصريحات اكتب هذا الكود Private clsFreeze As clsFreezeColumnWidths في حدث ( عند التحميل ) للنموذج اكتب هذا الكود Set clsFreeze = New clsFreezeColumnWidths ' Call the Setup method clsFreeze.SetupFreeze Me في حدث (عند تحريك الماوس ) اكتب هذا الكود clsFreeze.ResetAllColumnWidths Me في حدث ( عند الغاء التحميل ) اكتب هذا الكود Set clsFreeze = Nothing اجريت تعديلا بسيطا للوحددات النمطية لتثبيت ارتفاع الاعمدة كل ما عليك فعله هو اختيار القيمة المناسبة لك هذه القيمة تجدها في الوحدة النمطية ( clsFreezeColumnWidths ) ضمن الكودين ( ResetAllColumnWidths ) و ( SetupFreeze ) اسم الكود frm.RowHeight القيمة الافتراضية لارتفاع الحقل هي ( 230 ) غيرها كما يناسبك ( طبعا يجب تغييرها ضمن هذين الكودين معا ) والمرفق سيشرح افضل مني واي استفسار انا بخدمتك db2.rar

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

مشاركة مع اخي ابا جودي وبعد اذنه يمكن بعمل التنسيق الشرطي لنفترض اسم مربع التسلسل لديك t1 اذهب لمربع الاسم ثم اختر تنسيق شرطي وتعبير اشرط يكون =t1<=5 ثم اختر التنسيق المناسب وليكن تضليل بلون رمادي ثم تطبيق وموافق بالتوفيق

تحية طيبة اخي عبد الله بالنسبة لي افضل جمل SQL فهي تلبي كافة الاحتياجات من ربط المصدر الى البحث و التعديل و الحذف والاضافة يمكنك عند الضغط على زر التالي او السابق ان تجعل مصدر النموذج الجدول المطلوب و بذلك يمكنك التنقل بكل بساطة سبب البطئ اخي الكريم هو انك عندما تفتح جدولا معينا يتم فتح قاعدة بيانات الخلفية و استدعاء الجدول وعند الانتهاء منه يتم اغلاقها وهكذا في كل مرة اخينا Bluemaind قدم وحدة نمطية تقوم بتسريع الاتصال بالشبكة و ذلك بابقاء قاعدة بيانات الخلفية مفتوحة دائما FastTest.rar

اهلا اهلا بالمسات الرمهانية

اخي اسلام يبدو انك لابد الا بالداتا شيت اعود لك بتطبيق فكرة خطرة في بالي تمنع تعديل عرض وارتفاع شبكة ورقة البانات ابشر تحياتي

جرب هذا الماكرو Sub Print_Area() ActiveSheet.PageSetup.PrintArea = "" ActiveSheet.Range("a:a").EntireRow.Hidden = False lr = Cells(Rows.Count, 1).End(3).Row Set my_rg = Range("a3:a" & lr).SpecialCells(xlCellTypeBlanks) my_rg.EntireRow.Hidden = True ActiveSheet.PageSetup.PrintArea = "$A$3:$C$" & lr End Sub

ضع المسار في الصورة على الشكل التالي .\img\image1.ico بحيث النقطة تدل على مكان قاعدة البيانات img اسم مجلد جانب قاعدة البيانات image1.ico اسم الايقونة مع امتدادها تحصل على نفس نتيجة الكود

اتفضل في البداية ادخل البيانات وحاول حين تدخل خلي بينتهي العقد لكم اشخاص وبعدين حين تفتح النموذج الرئيسية اذا بينتهي العقد لشخص او لاكثر من شخص راح يظهر الرسالة وبيقولك ان انتهى عقد ل ( ) اشخاص هل تريد تتابع اذا بيقول نعم راح يفتح نموذج خاص (ASMEND) للمنتهىي العقود مالهم واذا تقول لا ما راح يير شي شو ووافيني بالنتيجة اذا هذا كان طلبك خلي اشرح لك العمل مع تحياتي شفان ريكاني PSDB - Copy.rar

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

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

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

ولو أردنا أن نكتب الإجمالي في نهاية السطر فنضيف إليها الكود التالي: r = 4 Sum = 0 Do While Cells(r, 1) <> "" Sum = Sum + Cells(r, 4) r = r + 1 Loop Cells(r, 3) = "الإجمالي" Cells(r, 4) = Sum شاهد طريقة الربط في المرفق do_while_03.rar إلى هنا انتهى درسنا لهذه الدالة، وترقبوا مني أمثلة للأفكار الذكية في استخدام هذه الدوال والتي تزيد من توسيع مدارككم بها، وتقبلوا تحياتي

السلام عليكم اخي الكريم شاهد المرفق واخبرني عن رايك اقبل تحياتي واحترامي salon lamsat.rar

وعليكم السلام جرب التالي Sub Test() Dim officena As String officena = "a" Range(officena & "1:" & officena & "10").Select End Sub

جرب هذا الملف one_shet for evry_name.rar

اخي العزيز وافيني بالنتيجه‌ هل وصلت لما تريد مع تحيات شفان ريكاني

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

الامر هين اخي العزيز في جدول (سجل) احذف حقل (تأريخ انتهاء التوقيف) ثم انشئ حقل جديد بنفس الاسم ولكن اختار نوع البيانات (محسوب) ثم ضع التعبير التالي DateSerial(Year([تاريخ التوقيف]);Month([تاريخ التوقيف]);Day([تاريخ التوقيف])+[مدة التوقيف])

اذا كان الغرض من السؤال بان يظهر الاسم كاملا لنتمكن من قراءته ومعرفته كاملا بامكانك من تنسيق الخلايا ونختار "احتواء مناسب " دون المساس بعرض العمود او اخفاء عمود اخر تحياتي

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

اخي العزيز اسأل في المنتدى الاكسل هم راح يساعدوك اكثر لان مشروعك باكسل وليس باكسس ولهم خبرة اكثر في اكسل مع تحياتي شفان ريكاني

السلام عليكم و رحمة الله وبركاته تم التعديل ترحيل بشرط اختيار الصنف_AZ.rar

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

ماشاء الله عليك كل يوم ننهل من علمك المزيد وفقك الله لما يحب ويرضى

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

استعمل الدالة TransferSpreadsheet

كود ذكي فعلا لكن لو تم الفرز للاولاد ثم البنات يبقى روعه لانه هنا ياتي بالبنين مع البنات تم بفضل الله ثم بفضل الاستاذ رجب جاوبش بارك الله فيه تنفيذ المطلوب وهذا هو المرفق ابجده فور الكتابه1.rar

تم عمل دالة معرفة لحساب الفرق بين التاريخين على اساس الايام والشهر والسنة جرب المرفق الفرق بين تاريخين.rar

السلام عليكم دي دالةقديمة عملتها بالكود يمكن تنفع معاك المرفق2003/2007 الفرق بين تاريخين.rar

السلام عليكم أخي الكريم المؤكد أن الكثير من الأعضاء يريد المساعدة ولكن (وأنا منهم) لايعلم كثيرا عن خطابات الضمان أنظر الملف المرفق ضع عليه أمثلة وطلبات كما تريد مع الشرح قليلا لكي تزيد من عدد المشاركين خطابات الضمان.rar