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

السلام عليكم اما الناس الكسالى مثلي ، فما ادوخ راسي بتنسيق الاكسل برمجيا ، وارسل التقرير شبه جاهز من الاكسس مباشرة : في التقرير: نخبره بأن يخفي الحقول المتكررة . والنتيجة: . فيصبح حدث التصدير الى اكسل: Private Sub أمر0_Click() Dim myFile As String myFile = CurrentProject.Path & "\myExcel.xls" DoCmd.OutputTo acOutputReport, "Report1", acFormatXLS, myFile, True End Sub . وهذه النتيجة في الاكسل: . من تجربتي ، لازم المستخدم يعدل في حقول معينة في الاكسل لطباعته ، فيقوم بتعديل تنسيق هذه الحقول كذلك تذكر اني قلت هذه طريقة الكسالى

السلام عليكم مشاركتي لتوضيح الكثير من المعلومات الهامة في مشاركات الاساتذة اعلاه ، والتي تحتاج الى توضيح. رجاء النظر في حقول الجدول التالي: الاكسس يتعامل مع انواع الحقول بطريقته ، و يخبرنا بمجرد النظر الى تنسيق الحقل ، فيما اذا كان الحقل رقم او نص. النص تنسيقه الى اليسار ، بينما الرقم تنسيقه الى اليمين ، وعندما ننظر الى التاريخ ، فنلاحظ تنسيقه الى اليمين ، مما يعني انه رقم. . وبما ان استخدام Dlookup واخواتها من الاوامر التي نتفاداها في الاستعلام لأنها تبطئ الاستعلام ، فسوف نتخلص منها بإستعمال استعلام ، يدمج ملاحظات جميع الاساتذه في المشاركات اعلاه. . نجهز استعلام لكل جدول ، وهذه نتائج حقول استعلام الجدول الاول ، ورجاء ملاحظة ايهم نص وايهم رقم . D1_Double : تم تحويل التاريخ الى رقم ، D1_#D : استعملنا التنسيق \#mm/dd/yyyy\# في اعدادات الحقل ، وتعامل معه الاكسس كرقم ، D1_Format : استعملنا التنسيق yyyy-mm-dd hh:nn:ss في اعدادات الحقل ، وتعامل معه الاكسس كرقم ، D1_Format2 : استعملنا نفس التنسيق اعلاه ، ولكن في الحقل مباشرة ، فتعامل الاكسس معه كنص (الاكسس يحول اي قيمة في الدال Format الى نص) . الامر Dlookup اعلاه فيه ربط بين جدولين ، وبالحقولين date و user_id الان نستبدل الامر Dlookup بالاستعلامين الذين عملناهم اعلاه ، ونربطهم بالحقلين (انا عملت استعلام منفصل لكل نوع ، وقمت بربط الحقول على اساس تنسيقها اعلاه) . . والنتيجة . اما اذا اردنا الحصول على جميع بيانات الجدول 1 ، ونرى تواريخ الجدول 2 بمحاذاته . والنتيجة . وهنا ومع اننا حصلنا على النتائج ، إلا اننا لا نستطيع تعديل بيانات الحقول ، وعن طريق تغيير اعدادات الاستعلام ، يمكننا تعديل بيانات الحقول. (ملاحظة: اذا استعملت هذا الاستعلام كمصدر لبيانات نموذج ، فيجب ان تعدل في اعدادات النموذج كما عملنا في الاستعلام) . 1636.d8.accdb

@ابوخليل أرجو الانتباه أنه تم التعديل على المرفق تعديلا بسيطا لا يؤثر على النتائج ولكنه الأصح بسبب قلة التركيز. التعديل في قوس الإغلاق للدالة يفترض أن يكون للوقت قبل عملية الضرب وليس بعد عملية الضرب. Me.txtResult1 = CDbl(Me.txtTime) * Me.txtMultip Me.txtResult2 = CDbl(Me.txtTime) * Me.txtMultip * 24 MsgBox Format(CDbl(Me.txtTime) * Me.txtMultip, "Short Time"), , _ Format(CDbl(Me.txtTime) * Me.txtMultip, "hh:mm")

السلام عليكم ورحمة الله وبركاته كود بسيط جدا لحذف المسافة بين عبد وجميع اسماء الله الحسنى اتمنى من الله عز وجل ان ينفعنا بما علمنا ... وان يعلمنا ما ينفعنا حذف المسافة.xlsm

لسيادتكم كود bat file لطريقة عمل نسخ قاعدة بيانات اكسيس بشكل دورى بالتاريخ والوقت d: cd BACKUP$ @echo off cd\periodic md "%date:~0,2%_%date:~3,2%_%date:~4%_%time:~0,2%_%time:~3,2%_%time:~6,4%" cd "%date:~0,2%_%date:~3,2%_%date:~4%_%time:~0,2%_%time:~3,2%_%time:~6,4%" Xcopy E:\LPD$\*.accdb /s /h /i /y /v ولتشغيل الكود تلقائيا يمكن وضعه Task Scheduler of windows ووضع له وقت للتنفيذ ولاتنسى تحويل الملف النصى الى ملف bat ليصبح ملف تنفيذى AUTO BACKUP.rar

دمت اخي kanory المحترم نعم هذا بالضبط المطلوب جدا جدا اشكرك وتحية وتقدير لحضرتك

تفضل .................... مثال1.accdb

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

جرب المرفق التالي ............ LAb (1).accdb

لكم بالغ التحية لقد وجدت الكود @echo off echo data file is running | clip

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

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

للأسف، لا يمكن تفعيل وتشغيل أكواد VBA الخاصة ببرنامج Excel مباشرة على جوجل درايف أو داخل جداول بيانات جوجل

موفقين وعساكم ع القوة.

السلام عليكم تم عمل بعض التغييرات في الملف حتى تمشي الأمور تمام التمام تم فك الدمج في خلايا الاحتياط لأن معادلة الصفيف لا تقبل الخلايا المدموجة فقط قم تبغيير الرقم في P1 ولاحظ النتيجة ملاحظة : كل المعادلات من نوع الصفيف التي تبدأ بقوس وتنتهي بقوس تفضل جرب الملف _اكمال ملاحظة5.xlsx

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

لا لا لا يابو احمد غير معقول .. سطر واحد فقط .. هذا السطر هو بغيتي .. احط هذا السطر ميدالية مع المفاتيح لجماله CDbl(Me.txtTime * Me.txtMultip) * 24 مع كامل الاحترام والتقدير لكافة احبتي واخواني .. جزاكم الله خيرا وزادكم علما ورفعة .

ويمكن تحويله إلى نص إذا تجاوز 24 ساعة بشكل وقت عند الرغبة Times_02.accdb

لأجل هذه العبارة قمت بعمل تحديث على (الكاتب الذكي لدوال المجال) 😅🖐 قمت بإضافة خيارين للتعامل مع حقول التواريخ : (1) الخيار الأول : تحويلها إلى رقم من نوع Duble (2) الخيار الثاني : تنسيقه بالصيغة التالية : Format(varDate, "yyyy-mm-dd hh:nn:ss") وذلك لأنها الصيغة الأكثر توافقاً مع التنسيق القياسي (ISO) ستدخل على نفسي السرور إن تكرمت بتجربتها 👌 واجهة الأداة مع الخيارات الجديدة : 2nd_DomainFunctionsBuilder_V2.2.accdb

ههههه جبتها بالصميم أسأل الله حسن الخاتمة .. لكن سؤالي هي ان الحقول تاريخ .. وانت حولتها الى رقم .. مالسبب من امتناع جلبها كتاريخ .. مع اني كنت دوما استخدم ذاك التعبير ويعمل بشكل صحيح DLookup("[date2]", "[tbl2]", "[date2] =#" & Me.text1 & "# And [user_id] ='" & Me.text2 & "'") والحقول فعلا تاريخ وتنسيق الحقول واحد متشابه والآن اكتشفت صحة ملاحظتك بعدم التركيز .. فأزيدك من الشعر بيت .. ان اليوزر في الجدولين مختلف اهلا باخوي الشايب هذه اين يكون مكانها في الاستعلام .. اعتقد يمكن عندما نحول هذه الاسطر الى دالة آمل كرما تشغيل الاستعلام بهذه وارفاقه ..

ماشاء الله يا ابا احمد فكرتي دائما عندما يكون هناك اكثر من معيار يكون سطر لكل معيار اسهل في المراجعة Dim i As Variant Dim strWhere As String strWhere = "[date2] = " & Format(Me.text1, "\#mm/dd/yyyy\#") strWhere = strWhere & " and [usr_id]='" & [text2] & "'" i = DLookup("[date2]", "[tbl2]", strWhere) MsgBox i الشايب

قلة تركيز DLookup_01.accdb

السلام عليكم اقترح عليكم التعديل التالي: يكون البرنامج وظيفته 1- رفع الفاتورة الالكترونية الي موقع الهيئة 2- تنزيل الفواتير السابقة التي تم عملها 3-عمل اشعار خصم 4-......... و هذكا

وعليكم السلام-تفضل هذه المعادلة =IF(AND(C10>=900,C10<=1000),"متميز",IF(AND(C10>=701,C10<=899),"متفوق",IF(C10=700,"مؤهل",IF(C10="محلول","محلول","")))) وهذه معادلة العمود E =IF(C10="محلول","0%",C10/1000) المصنف2 (1).xlsx

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

أحسنت استاذى الكريم وبارك الله فى جهودكم

تفضل استاذ منير طبعاً بعد اذن استاذنا الكبير ابراهيم .. فالكود يعمل بكل كفاءة وان حدث اى مشكلة معك فبسببك انت لأنك لم تضع الكود كما يجب ان يكون بالملف وشوف بنفسك حتى يتم اغلاق المشاركة Private Sub CommandButton1_Click() arr = Array("B5", "C5", "F5", "C8", "E9", "G10") tmp = Array(TextBox1.Value, TextBox4.Value, TextBox3.Value, _ TextBox2.Value, TextBox5.Value, TextBox6.Value) For i = LBound(arr) To UBound(arr) Range(arr(i)) = tmp(i) Next For Each Ctrl In Me.Controls If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = "" End If Next Ctrl End Sub ترحيل إلى خانات متفرقة.xlsb

وعليكم السلام -يمكنك ذلك بهذه المعادلة =COUNTIFS($E$3:$E$500,$E3,$D$3:$D$500,$D3)>1 التنسيق الشرطي للتكرار بشرط1.xlsx

بارك الله فيك استاذ مجدى

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

وعليكم السلام-بعد اذن الأستاذ محمد يوسف-تفضل فاتورة جديدة12022.xls

وعليكم السلام-جرب هذا وليس هناك داعى للأكواد .فقمت بعمل قائمة يمكنك اختيار الأصناف منها كما تشاء بعمود الصنف بصفحة شيت اليومى ثم بعد ذلك كتابة الكمية المراد ادخالها بعمود الكمية واترك الباقى على الإكسيل مخازن 1فود.xlsm

كل عام وانتم بخير ادعو الله ان يتقبل منا ومنكم سائر الأعمال

كل عام وانتم بخير

وعليكم السلام-اجعل المعادلة هكذا =IF(A3="","",IF(OR($A3="Can limon",$A3="meritte"),0%,IF($A3="Rosie",100%,70%))) New Microsoft Excel Worksheet (1).xlsx

وعليكم السلا-فقط استخدم هذه المعادلة =COUNTIF($A$2:$A$150,">0") عد الخانات التي تحتوي على ارقام عدا التي تحتوي على صفر و الفراغ1.xlsx

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

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