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

أخي حسين : من الخطأ أن تجعل رقم الفاتورة يتغير بتغير الحذف أو غيره ..... المفروض يبقى ثابت لأغراض الحسابات والاسترجاع والضمان وغيره ..... لكن حسب طلبك انظر المرفق ..... Music.rar

السلام عليكم مشاركة لي مع الاخ kanory أن هذا الترقيم اذا كان مرتبط بعلاقة مع جدول اخر وانت عدلت الترقيم ممكن تسبب لك المشاكل إعادة الترقيم يصلح فقط إذا كان الرقم بالنسبة لك هو مسلسل عادي ولا يرتبط بأي شيء اخر (علاقات) احدى الطرق استخدمها اخي kanory وفي كمان استخدام الدالة DMAX وايضا يمكن عمل ذلك عن طريق الوحدات نمطية لعمل ذلك تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل ما أردت الجرد.xlsx

وعليكم السلام -يمكنك استخدام هذه المعادلة =SUMPRODUCT(--($H$10:$H$20=$N1),SUBTOTAL(2,OFFSET($G$10:$G$20,ROW($H$10:$H$20)-ROW(H10),0,1))) فلترة1.xlsx

اتفضل اخى الحل موجود فالرابط التالى جزاه الله خيرا اخى واستاذى العزيز جعفر ورمهان تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Microsoft Access قاعدة بيانات جديد(1).accdb

برنامج الكنترول المدرسي اليمني إهداء لكل مدارس اليمن – مجاني ولا يسمح المتاجرة به . المهام يقوم البرنامج بالمهام التالية : إحصائيات حافظة الدوام إقرار بالقوى العاملة بيانات هيئة التدريس طباعة بيانات الشهادات الرسمية سجل توزيع الكتب كشف أسماء الطلاب خاص بيانات ورصد الطلاب تقسيم الشعب سجلات الغياب الرصد الشهري كشوف المحصلة الأولى والثانية شيت كنترول نصفي وآخر كشوف المناداة نصفي وآخر دليل الطالب نصفي وآخر دليل سري نصفي وآخر استمارة تفريغ درجات نصفي وآخر كشوف نهائية نصفي وآخر أوائل نصفي العام وآخر نتيجة نصفي وآخر تحليل مواد على مستوى الشعب نصفي وآخر رفع درجات نصفي وآخر خلاصات عامة وصف ومواد إعداد أرقام الجلوس والأرقام السرية الحساب التراكمي للمدارس التي تعمل بالحساب التراكمي يمكن تحميل البرنامج المحدث من الرابط التالي : https://cutt.us/ur8My للاخوة مستخدمي برنامج الكنترول المدرسي والسكرتارية يمكنكم التواجد بهذه المجموعة على الواتساب ليصلكم كل جديد عن البرنامج ولتلقي ملاحظاتكم . https://chat.whatsapp.com/Cxlu6FtAS6QL9G2ddVcgEB

تفضل أخي

جرب هذا الماكرو Sub Update_Values() Dim S As Worksheet Dim T As Worksheet Dim S_rg As Range, T_rg As Range Dim F_rg As Range, Ro%, I%, SS, My_Sum# Set S = Sheets("Source_Sh") Set T = Sheets("Target_Sh") Set S_rg = S.Range("B2", S.Range("B1").End(4)) Set T_rg = T.Range("B2", T.Range("B1").End(4)) For I = 1 To S_rg.Cells.Count Set F_rg = T_rg.Find(S_rg.Cells(I), lookat:=xlWhole) If Not F_rg Is Nothing Then Ro = F_rg.Row SS = IIf(IsNumeric(S_rg.Cells(I).Offset(, 3)), S_rg.Cells(I).Offset(, 3), 0) My_Sum = IIf(IsNumeric(T.Cells(Ro, 3)), T.Cells(Ro, 3), 0) T.Cells(Ro, 3) = SS + My_Sum S_rg.Cells(I).Offset(, 3) = 0 End If Next End Sub الملف مرفق Summation.xlsm

تفضل اخي اخي الكريم بمجرد ادخال عدد ايام الغياب يتم الخصم بصورة تلقائية (استخدم النموذح لتغيير البيانات) تحياتي الرواتب شهر او 2 او 3_2.rar

اخى الفاضل محمود اتفضل حاجه على قدى واعتذر عن التقصير لان عندى مشكله بالمكتبات لعل احد الاخوه او اساتذتنا يساعد كنت اريد ان تختار القاعده اللى هتختار منها الجدل ثم الاستيراد ولكن عندى مشكله بالمكتبات ولا اعلم ماهى ولست بحال يساعدنى على البحث فيها الان فتقبل عذرى عند فتح قاعده بيانات الحاق لن تجد بها جدول studen سيتم استيراده بالكامل من قاعده بيانات التلاميذ وعند استيراده مره اخرى سيتم حذفه ثم يتم استيراده مره اخرى Private Sub importData_Click() On Error Resume Next Dim ad As Office.FileDialog DoCmd.DeleteObject acTable, "studen" DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentProject.Path & "\بيانات التلاميذ.accdb", acTable, "studen", "studen", False End Sub تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Q.rar

السلام عليكم 🙂 اخواني ، الجميع يساعد في المنتدى بوقته وبدون مقابل ، وعندنا مثل يقول: حبة الزبيب ما تشبّع ، ولكنها تحلّي الفم 🙂 فرجاء خلونا نشجع الاعضاء في العطاء 🙂 لما تحصل على رد له قيمة ، فتشجيعا للعضو الذي يساعدك ، اخبر العضو بأنك مُعجب برده ، هكذا : . . ولما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) : . شكرا 🙂 جعفر ومع الاعتذار لأخي احمد لإستخدام اسمه في المثال 🙂

انظر الصورة وطبق .....

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

بارك الله بك و بهم أستاذي الكريم @أحمد الفلاحجى شكرآ جزيلآ

شكرا لكم جميعا

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

تفضل مع ملاحظة الايقونات المنقوله لم يتم ربطها بكود في الورقة الاصلية !! يعني مجرد ايقونات تم نقلها حسب طلبك تفريغ واسترجاع - نسخه.rar

تفضل 1- يكون العمل فقط في الاعمدة (A,D,E) 2- الاعمدة باللون الاصفر تحوي معادلات 3- تم عمل قائمة منسدلة في العمود ( A ) لاختيار رقم الموظف اعتمادا على ورقة Sheet1 4- تم اضافة عمود (G) لبيان الحالة عند التجاوز على رصيد الاجازات رصيد الاجازات.xlsx

ممكن مثال مرفق للتطبيق عليه ؟؟؟؟؟

@اشرف

الملف يعمل لدى وقمت بتحميل المثال ويعمل لا اعلم ماهى المشكله لديك سارفع الملفين من غير مجلدات فحملهم واجعلهم بجوار بعض او بفولدر جديد من عندك ووافنا بالنتيجه جزاك الله خيرا اخى @alaa aboul-ela ولكن هل قرات رد اخى محمود يوسف بعدما وضعت له استعلام الحاق فى جدول التلاميذ تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق الحاق.accdb بيانات التلاميذ.accdb

شوف كدة هو ده المطلوب az.rar

هذه العلامة طالما انك تريد من المعادلة العد فلابد من وضعها واذا جربت ازالتها فلم يخرج الناتج كما تريد

جرب هذا الماكرو (النتيجة في شيت "Salim" Option Explicit Sub Every_two() Dim my_max%, i%, k% my_max = Sheets("Main").Cells(Rows.Count, 3).End(3).Row Sheets("Salim").Cells(1, 1).CurrentRegion.ClearContents k = 1 For i = 1 To my_max Step 2 With Sheets("Main").Cells(i, 3) Sheets("Salim").Cells(k, 1) = _ .Value & " " & .Offset(1) k = k + 1 End With Next End Sub الملف مرفق two_in_One.xlsm

تفضل .. لعله ما تريد az.accdb

وعليكم السلام 🙂 بعد ان انزلته ، شفت ان فيه بيانات شبه خاصة ، فحذفته من مشاركتك 🙂 ولا حاجة لرفع المرفق مرة ثانية 🙂 الاستعلام اللي عملناه في السؤال الآخر ، هو في الواقع نفسه اللي نحتاج له هنا ، ولكن بسبب اختلاف مسميات الحقول ، فأقوم حاليا بتغييرها 🙂 جعفر

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

واليك صورة توضع الخطوات https://www.up-00.com/7pfso5m4dced الصورة مجرد استرشاد انسخ الكود بتاعك بعد اختيار الملف في استعراض وللعلم انت لست في حاجة للاستيراد او التصدير الفكرة بس انك تعرف مكان او مسار الملف ودي احدى الطرق لمعرفة مسار الملف apend query.rar

السلام عليكم ورحمة الله اسمحوا لي ان اشارككم في الرد على استفسار الاخ العزيز الفكرة كلها موجودة في الكود ده INSERT INTO studen ( code, SPOS, stu_code, first_alaltahak_date, asase_code, stu_name, Parthday, parthplace_code, dyana_code, sex_code, code_alnoa, EPOS, addres, alhay_code, markaz_code, whda_code, karia_code, walealkmrname, saltalkarba_code, waleaalkamraddres, waleaalkamrjob, waleaalkamr_phone, fathername, fatheraddres, fatherjob, username, computer_name, [date], Photo, mather_name, mohaftha_elmelad, karia_elmelad, date_segl_alwaga, kyd_no, stu_tel, elram_elbarede, waleaalkamr_qawme, waleaalkamr_elsabab, fathername_qawme, fathername_elnashat, fathername_elmstawa_taleme, mother_qawme, mother_elmstawa_taleme, motherjob, stu_tarteep, no_ekhwa, waleaalkamr_mobile, mother_mobile, stu_eltamen, waleaalkamr_tel_work, segel_no, [select], HE_CODE, FIRST_NAME, FATHER_NAME, GF_NAME, FAMILY_NAME, COLUMN71, FIRST_NAME_e, FATHER_NAME_e, GF_NAME_e, FAMILY_NAME_e, stu_name_e, date_end, email, user_name, pass, [image], mantka, perm, familyFriend, selaFamily, familyFriendTel, tateem, memobody, Problems, user_name_fa, pass_fa ) IN 'C:\Users\Nada\Desktop\استعلام الحاقي\الحاق.accdb' SELECT studen.code, studen.SPOS, studen.stu_code, studen.first_alaltahak_date, studen.asase_code, studen.stu_name, studen.Parthday, studen.parthplace_code, studen.dyana_code, studen.sex_code, studen.code_alnoa, studen.EPOS, studen.addres, studen.alhay_code, studen.markaz_code, studen.whda_code, studen.karia_code, studen.walealkmrname, studen.saltalkarba_code, studen.waleaalkamraddres, studen.waleaalkamrjob, studen.waleaalkamr_phone, studen.fathername, studen.fatheraddres, studen.fatherjob, studen.username, studen.computer_name, studen.Date, studen.Photo, studen.mather_name, studen.mohaftha_elmelad, studen.karia_elmelad, studen.date_segl_alwaga, studen.kyd_no, studen.stu_tel, studen.elram_elbarede, studen.waleaalkamr_qawme, studen.waleaalkamr_elsabab, studen.fathername_qawme, studen.fathername_elnashat, studen.fathername_elmstawa_taleme, studen.mother_qawme, studen.mother_elmstawa_taleme, studen.motherjob, studen.stu_tarteep, studen.no_ekhwa, studen.waleaalkamr_mobile, studen.mother_mobile, studen.stu_eltamen, studen.waleaalkamr_tel_work, studen.segel_no, studen.[select], studen.HE_CODE, studen.FIRST_NAME, studen.FATHER_NAME, studen.GF_NAME, studen.FAMILY_NAME, studen.COLUMN71, studen.FIRST_NAME_e, studen.FATHER_NAME_e, studen.GF_NAME_e, studen.FAMILY_NAME_e, studen.stu_name_e, studen.date_end, studen.email, studen.user_name, studen.pass, studen.image, studen.mantka, studen.perm, studen.familyFriend, studen.selaFamily, studen.familyFriendTel, studen.tateem, studen.memobody, studen.Problems, studen.user_name_fa, studen.pass_fa FROM studen; ادخل على استعلام الالحاق سواء كان في قاعدة بيانات التلميد او قاعدة الالحاق ودقق النظر في الكود ستجد الحل باذن الله في السطرالسادس ستجد الجملة التالية 'C:\Users\Nada\Desktop\استعلام الحاقي\الحاق.accdb' وهي مسار الملف الذي تريد الحاق بيانات الجدول فيه قم بتغييره الى 'C:\Users\اسم المستخدم او المدير لجهازك \Desktop\اسم قاعدة البيانات .accdb' جهازي مثلا موقع الملف على ال سي / الديسك توب / اسم الملف الحاق 'C:\Users\alaa\Desktop\الحاق.accdb' لو عايز تعرف مكان الملف بتاعك بالظبط فين ادخل على استيراد او تصدير واضغط على لينك وانسخ مسار قاعدة بياناتك وضيفها في الكود مكان سطر 6 وبمجرد اتباع الخطوات ان شاء الله يظبط معاك وبالتوفيق

السلام عليكم نسيت الشرط الثالث "اسم الشركة"، وقد تم التصحيح في الملف المرفق... بن علية حاجي report.xlsb

هذه صورة الرسالة استاذي اسف للتكرار وذلك بسبب سرعة النت عندنا

السلام عليكم حسب فهمي للمطلوب، هذه محاولة في الملف المرفق... بن علية حاجي report.xlsb

اخي الكريم ممكن البرنامج يحسب لك الخصم بمجرد ان تضع عدد ايام الغياب المهم تقضل اتمنى يكون المطلوب اعلمنا النتائج تحياتي الرواتب شهر او 2 او 3_2.rar

شكراً كتير , مشي الحال التعديل , ألف شكر اخي ابو ايسل

جرب هذا id.xlsx

تفضل 🙂 والمعلم على رأسي 🙂 جعفر 1180.02.MARK.zip

وعليكم السلام اخى الفاضل وليد لا تكرر المواضيع وتابع بعد ذلك على نفس الموضوع واكتفى بكلمه للرفع حاجه على قد حالى جرب ووافنا بالنتيجه واكيد فى حلول افضل ان شاء الله يشاركنا اخونى واساتذتنا بالموضوع للاستفاده Private Sub S_Click() If (AA - BB) = 0 Then Else MsgBox "عفــواً ... القيــــد غــير متـــوازن", , "aboeyad" Exit Sub End If If Me.S1 <> 0 And Me.S3 <> "" Then CurrentDb.Execute ("Insert into TransActions select * from TransActions1") CurrentDb.Execute ("Insert into MoneyMoves select * from MoneyMoves1") CurrentDb.Close DoCmd.GoToRecord , , acNewRec S1 = 0 S2 = "" S2.SetFocus Else DoCmd.CancelEvent MsgBox "يجب تعبئه البيانات" End If End Sub تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_ROYAL_ACCOUNT_-1.mdb

الحل E4-1.xlsx

السلام عليكم اخي اشرف عطوة هل تقصد هكذا =IFERROR(INDEX($C$9:$C$999999,SMALL(IF($B$9:$B$999999=$C$1,ROW($A$9:$A$999999)-ROW($A$9)+1),ROWS($A$3:C3))),"")

تفضل .. ان شاء الله هو المطلوب 1استعلام الحاقي.rar

وعليكم السلام الفكره عمل سجل للسيارات واعطالها

تمام بارك الله فيك انظري الصور وبها ارقام والاؤقام ستوضح لك لماذا تحياتي قاعدة القاعدة بعد التعديل الاخير مبيعات_3.rar تحياتي