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

Private Sub CommandButton1_Click() ActiveCell.Value = dpFrom.Value(1) ActiveCell.Offset(1).Value = dpFrom.Value(2) End Sub

أهلا أخي العزيز 🙂 هناك عشرات المواضيع التي تتكلم عن نفس الموضع 🙂 ، أنظر هنا : https://www.officena.net/ib/search/?q=تفقيط&quick=1&type=forums_topic&nodes=89

تفضل ..لا اعرف ماذا تقصد ب ادراج حجز علما انك وضعت كود ترحيل فورم ادخال بيانات ديناميكى (1).xlsm

وعليكم السلام 🙂 موجود في الاستعلام . والاستعلام جاهز للعمل 🙂 جعفر

السلام عليكم ورحمة الله وبركاته وددت أن أساهم بالمنتدي - مع قلت ذات اليد - اقصد العلم - - ببعض الأفكار البسيطة والخفيفة لعل أحدا يفيد منها بشىء فتصيبني منه دعوة بظهر الغيب - فيرد عليه ملك "آمين ولك بمثل" ستكون ان شاء الله وقدر متفرقة علي قدر سعة الوقت والله المستعان. فكرة اليوم: كما هو بالعنوان تمرير بيانات من التقرير الي النموذج - او من نموج الي نوذج آخر احيانا تدعو الحاجة الي حساب بعض الأرقام بالتقرير او بالاستعلام دون النموذج - ونحتاج الي هذه الأرقام المحسوبة لنستخدمها بنموذج آخر لاستعمالها بعمليات حسابية أخري أو حتي عرضها فقط من هنا كانت الفكرة: أولا- ننشئ هذا الاجراء العام - والذي ستتلخص مهمته في ثلاث أمور 1- التحقق من كون الفورم المرر اليه البيانات علي قيد الحياه -يعني مفتوح ام لا- 2- استقبال البيانات من التقرير أو النموذج 3- تمريرها الي النموذج الأخر. وهذا هو: Public Sub GetInfoRep(Frm As String, T1rp As Variant, T2rp As Variant, _ T1Fm As String, T2Fm As String) 'Frm Form name 'T1rp Text1 on report 'T2rp Text2 on report 'T1Fm Text1 on Form 'T2Fm Text2 on Form '================================ 'Test if form is open before pass data to it If CurrentProject.AllForms(Frm).IsLoaded = True Then Forms(Frm).Controls(T1Fm) = T1rp Forms(Frm).Controls(T2Fm) = T2rp End If End Sub ثم نستدعيه عند اغلاق التقرير او النموذج هكذا GetInfoRep "Form1", Me.TxDays, Me.TxSalary, "Text2", "text4" والنتيجة: تشاهدونها بالمرفق ودمتم passDataToForm.rar

آمين وجزاكم الله خيرا

ربنا يبارك لك ويغفر لك ولوالديك استاذى انا والله والله والله دعوا لك يوميا عن ظهر الغيب تقبل احترامى

فيديو جديد كيفية استخدام IFERROR - TRY OTHERWISE في الفيديو دة هانتعلم ازاي نهدل الاخطاء في البوركويري زي الاكسيل iferror in Excel= try.. otherwise in powerquery https://youtu.be/SIpmC4mRfDg

طبعا اخي لايعمل ..قم بتغيير الجملة [Formscustomer_account_$]![Date_To] الى [Forms]![customer_account_$]![Date_To]

حقل تم /لم يتم غير موجود في الفلترة ..قم بتغيير اسم الكومبو في النموذج الرئيس الى pay1 ثم اضف الكود التالي في نهاية اكواد الفلترة If Not IsNull(Me.Pay1) Then varFilter = (varFilter + " AND ") & "[pay] Like '" & Me.Pay1 & "'" End If وسيعمل عندك التصدير

اليس هذ هو ناتج التصفية ؟ الكود القديم شغال معاك بالتصفية التي تريدها

السلام عليكم في هذا الموضوع شد انتباهي استخدام like مع علامة النجمة في معيار دالة Dlookup وهو استخدام غير مألوف لاسباب نبينها في ثنايا المشاركة بداية علامة النجمة تستخدم بديلا عن الاحراف او الارقام الغير معروفة في الحقل ونستخدمها عندما نرغب في البحث او الفلترة بجزء من قيمة الحقل ومن المعروف ان هذه الدالة ترجع قيمة حقل واحد استنادا إلى المعلومات المحددة في المعايير فاذا وجدت القيمة في اكثر من حقل ترجع القيمة الاولى وبالتالي لو ان لدينا عدة اصناف لها الارقام التالية 100055556600 100055556601 100055556611 100155556600 100055556500 فعند كتابة جزء من قيمة الحقل مثلا 10005 او 0555566 او 5555 الخ هنا ستعود الدالة بقيمة اول حقل طابق الجزء من المعيار لذا يجب تحديد معايير فريدة تضمن أن تكون قيمة الحقل التي يتم إرجاعها صحيحة والا فقد نحصل على القيمة غير المرغوبة واعتقد ان السبب لهذ الاستخدام ⬇️ ومن وجهة نظر مبرمج سابق ان الاجدى ان يكون لكل منتج رقم باركود يمثل رقم فريد وبالتالي يمكن استخدام الدالة بمعايير تحقق الهدف الذي وضعت له وحتى لو كانت هناك علاقة بين هذه المنتجات فتوجد حلول اخرى اذا اردنا العمل وفق قواعد صحيحة ولكن هذا امر اخر الموضوع يمثل وجهة نظر غير ملزمة ولا يقصد منه النقد والله الموفق

اخي شاهد المرفق استخدم زر Page_Setup قبل الطباعة لتجهيز الشيت للطباعة ..اما للطباعة او المعيانة قبل الطباعة استخدم ازراري ولا تستخدم ازرار الاكسيل Print.xlsm

وعليكم السلام 🙂 هذه طريقة اخرى جعفر

PRINT.accdb

نعم ، وهذه هي الطريقة الصحيحة في العمل 🙂 اذا كان اسم النموذج frm_Main واسم التاريخ من: Date_From ، والتاريخ الى: Date_To في الاستعلام ، نكتب المعيار التالي: between Forms!frm_Main!Date_From and Forms!frm_Main!Date_To جعفر

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

شاهد المرفق تسجيل التاريخ.xlsm

أهلا بك أستاذ @higo2015 🙂 تفضل أستاذي هذه الطريقة - تحسب لك عدد وجبات الغداء التي تقع في الساعة 12 ظهر // ووجبات العشاء الساعة 9 مساءا // وعدد الليالي الساعة 12 ليلا : باستخدام الدالة التالية : Public Function LunchNDinnerNights(StartDate As Date, EndDate As Date) As String Dim SH As Integer 'Start Hour Dim TH As Integer 'Total Hours Dim x As Integer Dim H As Integer Dim L As Integer 'Lunches Dim D As Integer 'Dinners Dim N As Integer 'Nights SH = Format(StartDate, "HH") 'Debug.Print "Start Hour=" & SH TH = DateDiff("H", StartDate, EndDate) 'Debug.Print "Total Hours=" & TH For x = 0 To TH H = Format(DateAdd("h", x, StartDate), "HH") 'Debug.Print "Hour=" & H If H = 12 Then L = L + 1 If H = 21 Then D = D + 1 If H = 0 Then N = N + 1 Next x LunchNDinnerNights = L & " Lunch , " & D & " Dinner , " & N & " Night ." End Function ثم تناديها هكذا : If IsNull(Me.StartText) Or IsNull(Me.EndText) Then Exit Sub Me.ResultText = LunchNDinnerNights(Me.StartText, Me.EndText) مع مراعات أن تضع تنسيق التاريخ في المربعات بالصورة التالية : dd/mm/yyyy hh:nn:ss AM/PM جربها وأخبرني برأيك 🙂 أدركتم العشاء والمبيت.accdb

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته بعد الاتفاق مع الاخ سيف الدين وردنا على استئذان اخونا / megonil ونقول له ان نحن اسرة واحدة مكملين لبعضنا البعض وقد بادرت بجمع الملفين مع بعض واضفت بعض الميزات الجديدة وهي : 1- شاشة دخول وخروج مع اخفاء القوائم واشرطة الادوات وامكانية الحفظ والخروج واظهار القوائم واشرطة الادوات 2 - وضعت الاستعاذة والبسملة قبل بدء البرنامج 3 - تنبيه (اثناء البحث وفي حالة انك لم تضع كلمة البحث وضغطت زر بحث) 4 - تنبيه (اثناء البحث وفي حالة عدم ظهور نتائج للبحث ) 5 - تلوين الكلمة هدف البحث باللون الأحمر اثناء رؤيتها في الملف وفي الاستخدام مايغني عن الشرح تفضلوا المرفق ولا تنسوا الدعاء لكل من ساهم في هذا الملف ودمتم في حفظ الله وسلامته تحياتي وسلامي اخوكم/ خبور _____________________.rar

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

تفضل أخي @hougar جرب هذا : DLookUp("[Barcode]","[products]","[Barcode] Like '*"& Me.srchb &"*'")

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

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

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

السلام عليكم ورخمة الله فى الملفين التاليين تم الاستغناء عن عمود الجنسية لتوفير عمود للرقم القومى و استكمال باقى البيانات المرتبطة به و قد تم التعديل على لاالملفات الاصلية و بدون خلل فى اداء الملفات ملحوظة هامة اخلب الاكواد لن تعمل اذا لم تسجل اسماء الطلاب فى الشيت العام ( اسم واحد على الاقل ) ملحوظة ثانية : اذا لوحظ ان بعذ المعادلات لاتعمل فى احد الشيتات - اعمل الخطوات الاتية : من تبويب Formulas ثم Calculation Options ثم اختر Automatic و تنتهى المشكلة اليكم الملفين شيت كنترول ثانية تجارة.xlsm شيت كنترول اولى تجارة.xlsm

اعتذر إليكم.. هذا الرابط LINK_TABLE.zip

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

انا المشتاق الى اخوتي في هذا السرح الجميل وما يمنعني عنكم الى مشاغل العمل تحياتي للجميع

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

بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم كل الشكر والتقدير والاحترام لعمالقة المنتدى والاساتذه الافاضل سيتم هنا عرض بعض الاكواد التى يتم استخدامها فى الفورم مع التيكست بوكس سادسا--التعرف على كيفيه تقيد الادخال فى التيكست بوكس هنا سوف يتم اضافة كود للاخ والاستاذ ضاحى وهو كود كتابة التاريخ فقط فى التيكست بوكس كما تم اضافة اكواد اخرى ارجو من الاخوه والاساتذه الافاضل شرح معنىUBound(Filter(Split(arr, ",") TEXTBOX CODES.rar

هو بخير إن شاء الله جاء ذلك فى رسالة رد على بها

هو بخير إن شاء الله جاء ذلك فى رسالة رد على بها

السلام عليكم و رحمة الله لإلغاء الحماية بواسطة الكود جرب الكود التالي Sub UnProtectMySheet() ActiveSheet.Unprotect "Excel4Us" End Sub او من خلال الطرق العادية و كلمة السر هي Excel4us

السلام عليكم و رحمة الله أخي حسب طلبك في المرفق سيمكنك التعامل فقط مع الخلايا في المدى من a2:b50 بعد تعبئة البيانات إضغط على الزر الموجود داخل الصفحة يحيى حسين - حماية الخلايا.rar