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

كل عام وانتم بخير تفضل اخي العزيز ارجو ان يكون طلبك Root100.rar

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

جهد طيب نفع الله بك

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

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

برغم أن جميع الحلول السابقة ممتازة ومناسبة لكن أحببت المشاركة في اختصار الكود : أوك . ما رأيك بهذا السطر : Me.ID = GENRE & Format(Right(Nz(DMax("id", "TabTeachers", " Left([id],1) = " & GENRE & ""), 0) + 1, 3), "000") Auto serial with creteria.accdb

تفضل تم توحيد اسم الحقل المخصص لكود الموظف إلى emp_id بالجداول الثلاثة للتسهيل فقط. وبهذه الاحصاءات في تقريرك المطلوب لا تحتاج إلى مصدر بيانات للتقرير ولا استعلام ولا علاقات Dsum_Dcount_in rpt_creteria.accdb

هدية متواضعه الاصدار الاخير من برنامج تسجيل الديون ومتابعتها اهداء لكم مفتوح المصدر اوفيس 2013 تسجيل الديون ودفعها 2020.accdb

الاخوة الاساتذة الافاضل كل عام وحضراتكم بكل خير احببت مشاركتكم هذه المجموعة الجميلة من الازرار التى تستخدم بالفورم وهى تجميع من مشاركات الاساتذة بالمنتدى احترامى اخيكم New_Microsoft_Excel_Worksheet.xlsx المجموعة2 ازرار.xls

تقبل الله منا و منكم الطاعات

عيدكم مبارك اخوانى واساتذتى @kha9009lid @حلبي @ابوخليل @أبو عبدالله الحلوانى @ابو تراب وجميع اخوانى واساتذتى 💐 ومايكون خاطركم الا طيب 💐 اخوكم الصغير احمد

جزاك الله خيرا على المشاركه اخى محمد 💐 لكن هل قمت بتجربته هههههه جربته على عجاله ولم اتمعن فارجو السموحه حبيبى اخى محمد @حلبي وجزاك الله خيرا 💐 اتفضل اخى الرهوى المثال الاول بتعديل من كود اخى واستاذى جعفر جزاه الله خيرا المرفق الثانى بتعديل بالكود فالموضوع الثانى لاخى واستاذى فهد جزاه الله خيرا ان شاء الله يكون ما تريد بالتوفيق اخوانى Database1(1).rar Database1.rar

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

سررت بردك جداً .🥰 شاكر مرورك المتواضع استاذي أبو آدم فما نحن إلا حسنة من حسنات علمك المبارك . نفع الله بعلمك وعملك .

استاذ / @الرهوي محاولة منى ومشاركة مع استاذى ومعلمى / @أحمد الفلاحجى تابع المرفق وبعد تحديث التاريخ Database1.accdb

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

جرب هذه الفكرة ربما تفي الغرض وهي أن يتم عمل عمود لكل اسم تريد الترحيل المبلغ فيه ترحيل واستدعاء.xlsm

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

تقصد هذا : مثال للتعديل4.accdb

االسلام عليكم اليك هذا الملف لعله يفى بالغرض ترحيل واستدعاء.xlsm

غير في هذا السطر For i = 1 To Sheets.Count حييث 1 يمثل الورقة 1 مثلا For i = 2 To 5 اي من الورقة 2 الى الورقة 5 غير حسب ما تريد

جرب هذا الملف لنسخ اي خلية 1- حدد الخلية 2- Crtl+C 3- حدد الخلية الهدف 4- Ctrl+V Protect_with_copy.xlsm

لقد تم الامر للاستفادة فقط كل ما في الامر هو مسح معدلة وترك القيم Sheets("TOTAL").UsedRange.Value = Sheets("TOTAL").UsedRange.Value ترحيل تقرير .xlsm

اجسنت

السلام عليكم تم التعديل على قيم العمود A (بالمعادلات) من الورقة 111 (ورقة البيانات) والتعديل على كود "طباعة الكل" بما يفي الغرض المطلوب... برنامج شهادات نصف التيرم صف ثانى.xls

مشاركة مع الاخوة الاحبة ..... عسى أن يكون الكود قصيرا .... تفضل Aziz (2).rar

حياك الله اخي @فايز.. تغيير في حقل الجنس Private Sub GENRE_AfterUpdate() If Not IsNull(Me.GENRE) Then Dim lastID As Integer Dim lastCode As String lastID = Nz(DMax("Units_AutoID", "TabUnitsTeachers", "UNITS = '" & Me.GENRE.Value & "'"), 0) lastCode = Nz(DLookup("CODE", "TabUnitsTeachers", "UNITS = '" & Me.GENRE.Value & "' AND Units_AutoID=" & lastID), vbNullString) If lastCode = vbNullString Then lastCode = Switch(Me.GENRE.Value = "ÐßÑ", "01-000", Me.GENRE.Value = "ÃäËì", "02-000") End If Me.ID_TEACHER.Value = Left(lastCode, 3) & Format(Val(Right(lastCode, 3)) + 1, "000") Else Me.ID_TEACHER.Value = vbNullString End If End Sub وتغيير بعد الحفط Private Sub Form_AfterUpdate() If Not IsNull(Me.GENRE) And Not IsNull(Me.ID_TEACHER) Then DoCmd.RunSQL "INSERT INTO TabUnitsTeachers (UNITS, Code) VALUES ('" & Me.GENRE.Value & "','" & Me.ID_TEACHER.Value & "')" End If End Sub

رأس الصفحة Page Header يمكنك اخفاؤه برمجيا واظهاره في أي صفحة تريدها بكتابة الكود داخل التقرير من حدث تنسيق Format الكود التالي يخفي رأس الصفحة في جميع الصفحات : Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) PageHeaderSection.Visible = False End Sub ولإظهار رأس الصفحة في الصفحة الأولى فقط دون الباقي : Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) If Me.Page > 1 Then PageHeaderSection.Visible = false Else PageHeaderSection.Visible = true End If End Sub وممكن تختار رقم صفحة معينة

شيت اكسيل به معادلة لحساب الضريبة اعتبار من 1 / 7 / 2020 بعد القانون 26 لسنة 2020 حسبة الضريبة.xls

و هذا طريقة خارج بيئة VBA dayname.accdb

في المرفقات ا٠٠تغ٠ر (1).accdb

يمكن وضعه في التقرير من خلال اضافة حقل غير منضم وضع الكود في مصدر السجل لهذا الحقل ويمكن تحديد عدد خانات الترقم من خلال عدد خانات الرقم وعدد الاصفر =Format(Int(Rnd()*12345+1);"00000")

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

الكود بيستخدم فى النموذج وممكن تستخدمه فى الاستعلام Me.id = المفتاح الاساسى عندك (المعرف) رقم العقد = اسم الخلية الجديده هيتم وضع الكود فيها سواء استعلام او نموذج

توليد رقم عشوائي صحيح وفق تنسيق محدد ومرتبط بحقل ترقيم تلقائي لعدم التكرار

طريقة اخرى [رقم العقد] = Format(Int(Rnd * 123456 + Me.id), "000000")

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

السلام عليكم ورحمة الله تعالى وبركاته اولا لم اجد استخدام الرموز الدولية الموحدة Unicode لا فى منتديات عربية ولا اجنبية ولا ادرى ان سبقنى اليها احد من قبل فى ستخدامها داخل الاكسس ولكنه توفيق من الله بالنسبة لى وسوف اشرح طريقة التوصل الى التعامل الصريح بـعلامة ( √ ) أو علامة ( x ) فى قواعد البيانات -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- واخيـــــــــــــ( المرفق )ـــــــــــــــرا ( √ ) أو ( x )علامة.mdb

وعليكم السلام 🙂 تفضل: Dim strSQL As String Dim intHow_Many As Integer مشكلة اكثر من معيار ، هي الطريقة الصحيحة في كتابة الصيغة لذلك، خلينا نتعامل مع حقل واحد كل مرة، لنتفادى الخطأ strSQL = "[KararNom]='" & Me.KararNom & "'" 'نعمل اول معيار في المتغير strSQL strSQL = strSQL & " And [KararYear]='" & Me.KararYear & "'" 'نضيف معيار الحقل الثاني strSQL = strSQL & " And [CompID]=" & Me.CompId 'نضيف معيار الحقل الثالث الآن اصبح المتغير strSQL يحتوي على جميع المعايير، وبالصيغه الصحيحة، اذن فالنستعمله في الامر التالي كم عدد السجلات التي يوجد بها هذه المعايير intHow_Many = DCount("*", "TblKararat", strSQL) If intHow_Many > 0 Then اذا كان عدد السجلات اكثر من صفر، فمعناه ان اسم الموظف موجود مسبقا لذا، اوقف العملية واخبر المستخدم، ولا تحفظ السجل MsgBox "لقد تم تسجيل هذا الموظف مسبقا" Exit Sub End If جعفر

وعليكم السلام 🙂 تفضل: Private Sub Command24_Click() ' مفتاح اضافة موظف اخر لنفس القرار Dim strSQL As String Dim intHow_Many As Integer strSQL = "[KararNom]='" & Me.KararNom & "'" strSQL = strSQL & " And [KararYear]='" & Me.KararYear & "'" strSQL = strSQL & " And [CompID]=" & Me.CompId intHow_Many = DCount("*", "TblKararat", strSQL) If intHow_Many > 0 Then MsgBox "لقد تم تسجيل هذا الموظف مسبقا" Exit Sub End If DoCmd.RunCommand acCmdSaveRecord Dim x As Integer If MsgBox("تم اضافة وحفظ بيانات الموظف للقرار بنجاح. هل تريد اضافة موظف لنفس القرار؟", vbYesNo, "تنبيه") = vbYes Then Dim N, Y, F N = Me.KararNom: Y = Me.KararYear: F = Me.KararFrom DoCmd.GoToRecord , , acNext Me.KararNom = N: Me.KararYear = Y: Me.KararFrom = F Me.CompId.SetFocus Else DoCmd.RunCommand acCmdRecordsGoToNext Me.KararNom.SetFocus End If End Sub جعفر

والآن اجيب على اسئلتك: 1. هناك نوعين من Recordset ، نوع يخص DAO وآخر يخص ADO ، ومع تشابههما ، إلا ان هناك الكثير من الاوامر التي تختلف بينهم ، فإذا لم نخصص نوع الـ Recordset ، فالاكسس يستعمل مكتبة الاولى في القائمة ، مثلا ، في الصور التالية ، مكتبة ADO قبل مكتبة DAO ، فعند كتابة Recordset فقط ، فالاكسس يعتبرها تابعه لـ ADO: في الاكسس 2003 . وفي الاكسس 2010 فما فوق تم دمج مكتبة DAO في MS Office 14 Access Database engine object . 2. هذا امر OpenRecordset ، فيه عدة اختيارات ، والمبرمج اختار هذه لأسبابه ، ويمكنك الاستغناء عن الجزئين الاخيرين منها ، حيث هذا يكفي: (Set rst = db.OpenRecordset(strSQL . 3. المؤشر في سجلات Recordset يكون كما في القائمة التالية: BOF Record1 Record2 .. .. EOF حيث BOF = Begining Of File EOF = End Of File فإذا كنا على BOF او EOF فلا يوجد هناك سجلات ، فالسطر معناه ، اننا مادمنا لسنا قبل بداية ولا بعد نهاية الـ Recordset ، فقم بالخطوة التالية ، 4. انتقل الى اول سجل تصادفه (رجاء متابعة النقطة التالية) ، 5. اذا اردنا ان نجعل الـ Recordset بالكامل في ذاكرة الكمبيوتر ، فعلينا ان نأخذ المؤشر الى آخر سجل ، ثم عندما نأخذ المؤشر الى اول سجل ، فيعرف البرنامج عدد سجلات هذا الـ Recordset ، بينما في الرقم#4 اعلاه ، فنحن طلبنا منه البدء من اول سطر وبدون معرفة عدد السجلات ، والنقطتين معناها سطر جديد في الكود ، يعني: بدل كتابة For i = 1 To RC childrst.Delete childrst.MoveNext Next i يمكننا كتابة For i = 1 To RC: childrst.Delete : childrst.MoveNext : Next i . ولكننا اذا عملنا هذا الشيء لكل الكود ، فلن نعرف كيف نتصيد الخطأ ، ولا نستطيع استعمال Goto ، فنحن نستعمله في نطاق نعمل انه لن تكون لدينا اخطاء فيه جعفر

انظر الى الحقل في الجدول الآن ، ستجد ان المرفقات لاتزال موجودة ، ولكن الاكسس لا يستطيع فتحها!! تفضلي اختي : 1. لكي تحذفي مرفقات السجل الذي انتي عليه فقط ، 2. واذا كان السجل يحتوي على اكثر من مرفق ، واردتي حذف مرفق معين من هذا السجل ، فيمكنك استعمال هذا السطر ، جعفر

كود حذف المرفق.accdbبعد إذن أستاذنا الكبير @jjafferr هذا الكود لحذف المرفق فى السجل الحالى وفقكم الله Dim rst As DAO.Recordset Dim childrst As DAO.Recordset Dim db As DAO.Database Dim nn As String nn = "update table1 set [image].filedata =null WHERE Table1.ID =" & Me.ID strSQL = "SELECT * FROM Table1" Set db = CurrentDb Set rst = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) rst.MoveFirst db.Execute nn Me.Requery كود حذف المرفق.accdb

وعليكم السلام ضعي هذا الكود على زر: Dim strSQL As String Dim rst As DAO.Recordset Dim childrst As DAO.Recordset Dim db As DAO.Database Dim RC As Integer Dim i As Integer 'from https://stackoverflow.com/a/42239279 strSQL = "SELECT * FROM Table1 WHERE Not (Table1.image.FileData) Is Null;" Set db = CurrentDb Set rst = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) If Not rst.BOF And Not rst.EOF Then rst.MoveFirst End If Do Until rst.EOF Set childrst = rst.Fields("image").Value childrst.MoveLast: childrst.MoveFirst RC = childrst.RecordCount For i = 1 To RC 'Debug.Print rst!ID & " > " & childrst.Fields("FileName") 'If childrst.Fields("FileName") = "11.jpg" Then childrst.Delete 'End If childrst.MoveNext Next i rst.MoveNext Loop . جعفر

السادة الخبراء الاستاذ محمد صالح هذا الملف من اعمال الاستاذ محمد صالح المميزة ارسال اميل الى قائمة الاسماء فى الشيث ولكن بعد الارسال مافيش اى اميل وصل فما هى المشكلة وجزاكم الله كل خيراً mas_outlook_mailer2.rar

جرب هذا الملف search salim.rar

أخي الحبيب سليم الخطوات لمن يريد أن يطبقها كالتالي : '[ActiveX Control] على ورقة العمل من النوع [TextBox1] بفرض أن لديك مربع نص '[Linked Cell] لتكون هي [C2] قم بعمل كليك يمين على مربع النص ثم خصائص ثم حدد 'الذي يحتوي البيانات ثم ادخل على التنسيق الشرطي واستخدم [C4:F15] حدد النطاق '=IF($C$2="",FALSE,SUM(--ISNUMBER(SEARCH($C$2,$C4:$F4,1)))>0)

السلام عليكم أخي Sakro ما زلت مصراً على طلبي منك تعريب اسمك الكريم بدايةً ثم من ناحية حجم التقرير اتبع الخطوات التالية: افتح التقرير على طريقة عرض التصميم 1- من طرف التقرير الأيمن ضع مؤشر الماوس عندما يتحول إلى مقيض سحب ثم اسحب إلى الجانب التقرير الأيسر. 2- تقوم بتحديد كل العناصر الموجودة في رأس التقرير وتنزيلها إلى رأس الصفحة .أو بالسهم إلى أسفل لتستقر في رأس الصفحة. 3- تغلق الفراغ الذي تركه رأس التقرير بالماوس - مقبض السحب . 4 - انتقل بزر العرض إلى المعاينة قبل الطباعة وستجد إن شاء الله تعالى ما يرضيك والسلام عليكم..

السيد Sakro المحترم مرحباً بك في منتدى أوفيسنا ...السلام عليكم ورحمة الله وبركاته.. لا أجمل من اللغة العربية على ظهر البسيطة فيرجى العمل على تعريب اسمك الكريم ثم إنني حاولت تعديل تقريرك هذا ليظهر ضمن صفحات لا تتجاوز 10 لا تحتوي على فراغات بينها أوفيس 2007 وكل الصفحات التالية تماثل الصفحة الأولى ...ريثما تجد من يقوم بمساعدتك بشكل أدق والسلام عليكم test program.rar

السلام عليكم ريثما يقوم أحد الأخوة الخبراء الأكارم بمعاينة الملف أرجو أن يسعفك هذا الحل السريع وشكراً. test program.rar