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

تتضمن هذه المقاله ارتباطات الي المقالات التي توفر تفاصيل حول الدالات الشائعه المستخدمه في التعبيرات في المايكروسوفت أكسس اتمنى تستفيدون من هذه الرابطة مع التوفيق للجميع رابطة عربي https://support.office.com/ar-sa/article/الدالات-مرتبة-حسب-الفئة-b8b136c3-2716-4d39-94a2-658ce330ed83 رابطة انجليزي https://support.office.com/en-us/article/Access-Functions-by-category-b8b136c3-2716-4d39-94a2-658ce330ed83

جدول أكسس به 6236 آية قرآنية بالتشكيل لمصممي برامج القرآن الكريم لا تتعجب من اسم الجدول واسم الاستعلام فكلاهما نفس الاسم وهو اسم غير موجود هههههههه على العموم هذه خدعة لكن الكود الغريب هو كود الاستعلام : SELECT * FROM ‍‌; فعلا الكمبيوتر آلة غبية جدا ههههههه quran.rar

Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus) استدعاء المنطقة واللغةوالوقت والتاريخ والحاسبة.rar

السلام عليكم مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة ويريدون ارسال رسائل لهم وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس فهل من طريقة برمجية تساعد في ذلك

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar

دوختنا شوية شقلبة يسيطة في سطرين الاضافة لتصبح Private Sub comm_add_Click() 'If Me.taxt_date1 > Me.txtHijriDate Then 'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE" 'Else DoCmd.GoToRecord , , acNewRec taxt_now = 2 'End If End Sub انشاء الله تنحل وتحياتي

السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت Excel e whatapp.rar

انظر الملف المرفق . يوجد جدولين كلاهما بنفس الاسم تماما وهو الرقم:(5) تماثل تام في التسمية ، لا مسافات ولا فراغات وبرغم ذلك متواجدين متجاورين كجداول مستقلة tbls.rar

السلام عليكم هناك العديد جدا من الطرق .. اليك =VLOOKUP(C5,IF(المصروف!$F$5:$F$10=الموقف!D5,المصروف!$E$5:$G$10,""),3,FALSE) و =INDEX(المصروف!$E$5:$G$10,MATCH(1,(المصروف!$E$5:$E$10=الموقف!C5)*(المصروف!$F$5:$F$10=الموقف!D5),0),3) و =VLOOKUP(C5&D5,IF({1,0},المصروف!$E$5:$E$10&المصروف!$F$5:$F$10,المصروف!$G$5:$G$10),2,0) معادلات صفيف بعد كتابتها يتم الضغط على CTRL + SHIFT + ENTER معادلة على اساس شرطين الرقم والتاريخ.rar

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

السلام عليكم وكما قال أخي شفان ، إذا كان الحقل مضمن ، فمعناه ان له قيمه تحدده من الجدول ، فاذهب الى إعدادات الحقل في الجدول وغير نوع الرقم من رقم كامل long integer الى Double جعفر

وعليكم السلام جرب هذا ، انت تقرر Round الى اي عدد بعد الفاصلة ، 2 او 3 مثلا ، وعدم وضعك لرقم معناه انك تقرب الرقم بدون كسور بعد الفاصلة: taxt_n1: Round([taxt_t1]/[d2]*[d1],3) taxt_n4: Round(1/[d2]*[d11],2) جعفر

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

جرب الفكرة دي من نموذج البيانات الشخيصية تنقل بين الموظفين وعندما تصل للموظف (انهاء + مؤمن أو دخول) ستظهر صورة تظهر وتختفي 11116_Backup.rar

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

لا أعتقد أنه يوجد كود يتحكم في هذا الأمر

طيب ايه رايك يا استاذ شفان لو هو محتاج بعد فترة يغير الرقم ؟ ممكن اضافة جدول خدمى ونعمل منه dlockup فى الكود والرسالة كده هيكون فى مرونه اكبــــر اول ما اروح البيت بس انا ممكن انفذ الفكرة بس لانى مش فى البيت ومش معايا اكسس دلوقتى

اتفضل اليك كود قبل تحديث مثلا عندك مربع نصي باسم تيكست 0 Private Sub Text0_BeforeUpdate(Cancel As Integer) If Left(Me.Text0, 1) <> 9 Then Me.Undo MsgBox "يجب ان تبدأ من رقم 9" End If End Sub

الاخوة الزملاء شرح مبسط للاكسل بالبوربوينت للمبتدئين بعض الصور رابط الموضوع https://www.4shared.com/rar/SgZgpiN9ei/___.html

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

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

جزاك الله خيراً اخي الكريم على هذا الدعاء الطيب وجزالك الله بمثله ان شاء الله الحمد لله ان تم المطلوب .. الحمد لله الذي بنعمته تتم الصالحات

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

السلام عليكم - جاري العمل على المعادلة VLOOKUP(C5,IF(المصروف!$F$5:$F$10=الموقف!D5,المصروف!$E$5:$G$10,""),3,FALSE) النتائج ممتازة جزيت خيرا

طيب رجاء تجربة المرفقين الاتيين المرفق الاول لو عدد الاوراق المراد مسحها ضوئيا 10 وسيتم العمل والمسح الضوئى من خلال نموذج الصادر لو كان رقم الصاد 2 بمجرد الضغط على زر الامر ادارج مرفقات من الاسكنر ستجد النتيجة الاتية ان شاء الله تعالى بعد انهاء عملية المسح الضوئى - بجورقاعدة البيانات مجدل باسم archives ثم تجد بداخله مجلد باسم sader ثم تجد بداخله مجلد باسم 2017 ثم تجد بداخله مجلد برقم الصادر وسيكون 2 وبداخل هذا المجلد تجد عدد عشر صور بعدد العشر ورقات التى تم مسحهم ضوئيا Archive v10.rar المرفق الثانى لو عدد الاوراق المراد مسحها ضوئيا 10 وسيتم العمل والمسح الضوئى من خلال نموذج الصادر لو كان رقم الصاد 2 بمجرد الضغط على زر الامر ادارج مرفقات من الاسكنر ستجد النتيجة الاتية ان شاء الله تعالى بعد انهاء عملية المسح الضوئى - بجورقاعدة البيانات مجدل باسم archives ثم تجد بداخله مجلد باسم sader ثم تجد بداخله مجلد باسم 2017 ثم تجد بداخله مجلد برقم الصادر وسيكون 2 وبداخل هذا المجلد تجد صورة واحده فقط بصيغة tif وعند فتحها تستطيع ان تستعرض فيها عدد العشر ورقات التى تم مسحهم ضوئيا مثل الـ pdf Archive-Scan multiple files v11.rar

بارك الله لك أستاذ خالد أنتم أروع

شاكر جدا لحضرتك

في المثال المرفق اخي الكريم تحتوي ListBox على الاسماء من الجدول T1 اي احمد محمد علي المطلوب اخي الكريم ان تحتوي الاداء على الاسماء من الجدولين T1 , T2 اي احمد محمد علي فتحي سالم خالد كل الشكر والتقدير ListBox.rar

اسم الجدول بالنقاط ..... quran 02.rar

السلام عليكم تفضل اخي الكريم علة المطلوب تماماً Sub Add() Dim LR, LE As Long '=========================================================== Dim sh1 As Worksheet: Set sh1 = Sheets("بيانات اساسية") Dim sh2 As Worksheet: Set sh2 = Sheets("كشف") LE = sh1.Cells(Rows.Count, "Q").End(xlUp).Row ' sh1 بشيت Range("B6:B" & LE) بدلاله النطاق A1 عدد مرات تكرار اسم الكشف الموجود في شيت كشف خليه If Application.WorksheetFunction.CountIf(sh1.Range("B6:B" & LE), sh2.Range("a1").Value) > 29 Then MsgBox "لا يمكن استدعاء كل البيانات " ' تفريغ نطاق نتيجة البحث بشيت كشف sh2.Range("B6:BH35").ClearContents ' انهاء عمل الكود Exit Sub End If ' ان لم يتحقق الشرط السابق بحيث عدد النتائج اقل من او يساوي 29 ' تفريغ نطاق نتيجة البحث بشيت كشف ' بحيث يهيأ لاستقبال النتائج الجديده فى كل مرة sh2.Range("B6:BH35").ClearContents '=========================================================== ' وقف اهتزازات الشاشة اثناء عمل الكود Application.ScreenUpdating = False '=========================================================== Dim cll As Range 'sh1.Range("B6:B" & LE) عمل حلقة تكرارية - ساقية - علي كل صفوف النطاق For Each cll In sh1.Range("B6:B" & LE) 'sh2.Range("A1") لو ان قيمتها تساوي قيمة الخلية If cll.Value = sh2.Range("A1").Value Then ' انسخ الصف الذي تحقق به الشرط sh1.Range("Q" & cll.Row & ":BX" & cll.Row).Copy 'شيت كشف B لصق الصف في اول خليه فارغة في العمود sh2.Range("B" & sh2.Range("B35").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues ' انتهي الشرط End If ' نقطه بدء ونهاية الساقيه لحين الانتهاء من الدوران على كافة الصفوف المحددة Next ' ازالة التحديد عن النطاق المنسوخ Application.CutCopyMode = False ' اعادت تحديثات الشاشه Application.ScreenUpdating = True End Sub تفضل المرفق استدعاء بيانا_2.rar

الفكرة ان الجدول باسم مسافة ( ) ثم تم اخفاءه وهذا الملف بعد اظهار الجدول تحياتي quran.rar

::: تفضلي تم التعديل على البرنامج وحسب الطلب ... بالتوفيق Referral_UP.rar

عفوا استاذ جعفر النتيجة ممتازة فى الاستعلام ولكن عند استخدامها فى كود VBA تعطي نفس النتيجة فى المشاركة الالولى taxt_n1 = Round([taxt_t1] / [d2] * [d1], 3) taxt_n4 = Round(1 / [d2] * [d11], 3) اكتشفت بعد كتابة التعليق هذا انه يجب ان تكون الحقول غير منضمة يعنى اذا كانت الحقول غير منضمة تعطى نتيجة ممتازة مثل الاستعلام بالظبط فهل من حل لكي احفظ القيمة فى الجدول

السلام عليكم اردت المشاركة في هدا الموضوع واعتبره موضوع مهم بنسبة لصناعة البرامج الباركود هدا المثال من الاخت الكريمة (( زهرة )) فاحببت ان اشارك به لعله ينفع من يبحث عن الباركود وطريقة طباعة الملصقات بالطابعة العادية ورق A4 هدا نمودج لاختيار الاصناف المراد طباعتها وهدا تقرير جاهز لطباعة بالعدد المحدد للاصناف وهدا مثال للاخت زهرة zaBarCode_Items.rar

طيب جرب هذه الطريقة: DoCmd.OpenReport "Rreceipt", acViewPreview, ,stLinkCriteria DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo وعليكم السلام اخي بدر نعم نعرف هذه الطريقة ، ولكن التقرير بطيء ، لذلك فنحن نحاول فتح التقرير مرة واحدة ، والطباعة عدة مرات جعفر

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

اخي الكريم على الرغم من ان هناك امور غير واضحه .. مثل لو عددهم 29 لا يتم الترحيل .. وايضاً انت بتجيب رقم الصف الفارغ بشيت الكشف بدءاً من B35 صعوداً لاعلى وبذلك تجاهلت باقي الصفوف التى هي اسفل منها .. ومع ذلك اليك الطريقة وعليك التعديل بما يناسبك فيما يتعلق بالجزئيتين السابقتين استدعاء بيانا_2.rar ( تم الغاء دمج الخلايا B3:B5 لانه من شأنه ان يفسد عمل الكود .. يمكنك ان تدمج B3:B4 ولكن ضع اى قيمه في B5 ولو بشكل مخفي بحيث تكون القيمة بلون ارضيه الخلية ) تقبل خالص تحياتى

يلزمك هذه المعادلة =SUMPRODUCT(INDIRECT("'"&A6&"'!$C$6:$C$12"),--(INDIRECT("'"&A6&"'!$b$6:$b$12")="ذكر"))

وعليكم السلام ورحمة الله وبركاته ارفق القاعدة

استأذن من استاذنا @jjafferr هل تريد ان يظهر هكذا بدون ازالة لاي اوت اتفضل اليك هذا الحل وبعد عمل هذا خلي يكون مؤشر الماوس بيكون على Page Footer حتى يكون يغير شكل المؤشر الى سهمين للاعلى ولاسفل واسحبه الى اعلى لكي لا يكون هناك فراغ اليك قاعدة بياناتك بعد تعديل تقبل تحياتي New Microsoft Access Database.rar

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

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

السلام عليكم وحياالله الشباب بالاضافة الى ما تفضل به أخي أوس رجاء تلاحظ تسلسل الارقام ، فهي 2 ثم 1 ، الاستعلام 1 مافيه مشكلة ، ولكنك لما تفتح الاستعلام 2 والذي مصدره الاستعلام 1 ، والظاهر ان فيه معيار فرز او تصفية في حقل معين ، اي حقل فيه معيار في الاستعلام او الكود ، يجب ان تجعل الحقل مفهرس في الجدول ، وإلا ستحصل على تأخير وعند تغيير الحقل في الجدول الى حقل مفهرس ، يجب ان تعمل Compact and Repair للقاعدة التي بها البيانات ، حتى يستفيد الاكسس من هذا التغيير. جعفر

اخى الزبارى يوه كده الملف اشتغل تمام تقبل تحياتى

نعود لأخونا ابراهيم، وكما قلنا بأن أخونا ابراهيم أراد أن يجمع الملفات في شيت واحد طالما أن المندوبين لديهم نفس النموذج. ولعمل هذه التجميعة فلا بد أن نتبع إحدى الطريقتين: إما أن يتم استدعاء جميع الملفات النصية من المجلد إلى الإكسيل بشكل مباشر. أو أن يتم تجميع الملفات النصية إلى ملف نصي جديد ، ومن ثم يتم الإستدعاء من الملف النصي الجديد إلى الإكسيل بشكل مباشر. اعتمدت أنا على الطريقة الثانية كالتالي: ابراهيم2.rar لا تنسى نقل الملف إلى مكانه الصحيح حيث يوجد المجلد info لو لاحظت أننا لم نغير في الكود سوى هذا السطر Shell Environ$("COMSPEC") & " /c Copy" & ThisWorkbook.Path & "\info\*.txt" & ThisWorkbook.Path & "\info\CombinedFile.txt " والذي يعني لأن يجمع الملفات النصية داخل المجلد info إلى ملف نصي جديد اسمه combinedfile تأكد من الملف النصي الجديد داخل المجلد تابعــــــــــــــــــــــــونا

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

نعيد برمجة ملف ابراهيم بطريقة أبوالبراء ابراهيم.rar

بارك الله فيك أخي الكريم الزباري اسمح لي بمشاركة بسيطة بالموضوع .. طالما أن كود الاستدعاء يمكن أن يستخدم أكثر من مرة فالأفضل وضعه في إجراء يمكن الاستدعاء منه ..اطلع على الكود وستعرف مقصدي Sub ImportAhmad() ReadString "ahmad", Sheet2 End Sub Sub ImportAli() ReadString "ali", Sheet3 End Sub Sub ImportYosuf() ReadString "yosuf", Sheet4 End Sub Sub ReadString(customer As String, sh As Worksheet) Dim sLine As String Dim sFName As String Dim intFNumber As Integer Dim lRow As Long Dim lColumn As Long Dim vDataValues As Variant Dim intCount As Integer sFName = ThisWorkbook.Path & "\Info\" & customer & ".txt" intFNumber = FreeFile On Error Resume Next Open sFName For Input As #intFNumber If Err.Number <> 0 Then MsgBox "Text File Not Found!", vbCritical, "Error!" Exit Sub End If On Error GoTo 0 sh.Cells.Clear lRow = 1 Do While Not EOF(intFNumber) Line Input #intFNumber, sLine vDataValues = Split(sLine, vbTab) With sh lColumn = 1 For intCount = LBound(vDataValues) To UBound(vDataValues) .Cells(lRow, lColumn) = vDataValues(intCount) lColumn = lColumn + 1 Next intCount .Cells.EntireColumn.AutoFit .Activate .Range("A1").Select End With lRow = lRow + 1 Loop Close #intFNumber MsgBox "Values From File '" & sFName & "' Were Imported To Sheet '" & sh.Name & "'!", vbInformation End Sub

تفضلوا ملف أخونا ابراهيم مع المندوبين الثلاثة، حاولو تنقلوا الملفات في المكان الذي فيه مجلد info (وليس داخله) والذي سبق أن تم تنزيله من قبل ، ومن ثم جربوا فتح ملفات المندوبين وأخيراً ملف أخونا ابراهيم وقومو باستدعاء الملفات الثلاثة إليه. وتقبلوا تحياتي. allfiles.rar

1-كود المعاينة ممتاز 2-مرفق ملف المستخدم هو wzالباسورد هو 214 يوجد داخل الملف كود لااخفاء واضهار الاشرطة اريد كود اخر عند اخفاء الاشرطة يظهر لي شريط الحالة فقط وباقي الازرار توضح نفسها ويوجد مثال حي للطلبات علي الالة الحاسبة مثال.rar