نجوم المشاركات
Popular Content
Showing content with the highest reputation on 26 أغس, 2019 in all areas
-
بارك الله فيك أستاذ علة لخضر تفضل يمكنك استخدام هذه المعادلة للعد =SUMPRODUCT(($E$4:$E$14=$E$18)*($B$4:$B$14=$D$18)*($G$4:$G$14=$C$18)*SIGN((($B$4:$B$14<>"")/COUNTIF($B$4:$B$14,$B$4:$B$14&"")))) عدد العملاء.xlsx3 points
-
3 points
-
3 points
-
تفضل كان عليك من البداية استخدام خاصية البحث في المنتدى https://www.officena.net/ib/topic/50897-تفقيط-مبلغ-معين-من-الأرقام-الى-الحروف-سواء-باللغة-العربية-أو-الإنجليزية-بدون-اكواد/?tab=comments#comment-313355 https://www.officena.net/ib/topic/91682-دالة-التفقيط-وتثبيتها-في-جميع-الملفات-في-الاكسل/?tab=comments#comment-5749573 points
-
الف سلامة على صحة حضرتك استاذى الكريم ونتمنى لك جميعا الشفاء العاجل والعودة الى بيتك واحبائك مرة اخرى3 points
-
معادلات ممتازة بارك الله فيك أستاذ سليم وزادك الله من فضله ورحم الله والديك3 points
-
3 points
-
مبروك أستاذ أبو ياسين المشولي إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله2 points
-
مشاركة مع اخي كنري ضع هذا الكود في مدويل او براس النموذج Function AddRefs() Dim loRef As Access.Reference Dim intCount As Integer Dim intX As Integer Dim blnBroke As Boolean Dim strPath As String On Error Resume Next 'Loop through each reference in the database 'Add all references Debug.Print "----------------- Add References -----------------------" With Access.References .AddFromFile "C:\Windows\System32\DBPix20.ocx" .AddFromFile "C:\Windows\SysWOW64\DBPix20.ocx" End With ' Call a hidden SysCmd to automatically compile/save all modules. Call SysCmd(504, 16483) End Function ثم استدعيه عند فتح النموذج او في زر امر كما تشاء Call AddRefs2 points
-
2 points
-
2 points
-
2 points
-
جرب هذاالماكرو Option Explicit Sub test_5() Dim str$: str = "غ" Dim k%: k = 30 Dim cont%, col% Dim i%, x%: i = 3 Range("Ag5").Resize(3, 3).ClearContents For col = 5 To 7 For x = i To k If Application.CountIf(Range(Cells(col, x), Cells(col, x + 7)), str) >= 5 Then cont = cont + 1 Cells(col, "ag").Offset(, cont - 1) = "Ok" & cont x = x + 5 End If Next cont = 0 Next End Sub الملف مرفق للمعاينة Inzar.xlsm2 points
-
2 points
-
وعليكم السلام -جرب هذا أستاذ محمد بمعادلات المصفوفة Quiry-لمساعدة فى كود استعلام بناء على اكثر من شرط.xlsx2 points
-
السلام عليكم هل يمكن تشغيل الاصوات تباعا من المكتبة الصوتية الموجوده بالمرفق هنا يعنى بعد الانتهاء من - aoj3ene يتم تشغيل - nor ثم بعد الانتهاء منه يتم تشغيل - فضلكم ياوالدي بطريقة اليه وان امكن هل ممكن وضه مثلا Checkbox ان كان True يتم التشغيل تباعا وان كان False يتم التوقف بعد الانتهاء من تشغيل الملف الحالى ؟! المرفق APP_Player.zip1 point
-
السلام عليكم احبتي الكرام عملت قاعدة بيانات لمدرسة اهلية و طبعا ما دامت اهليه ففيها اقساط يدفعها الطالب من اضع قيم للحقول التي تمثل الاقساط و اجمالي الاقساط و المتبقي من الاقساط الواجب على الطالب دفعها يظهر عندي الرقم بالسالب من احذف قسط من الاقساط فما السبب و ما الحل ؟ جزاكم الله تعالى خير الجزاء1 point
-
بسم الله الرحمن الرحيم برنامج المحاسب للمحاسبين نرجو الأفادة في حالة وجود أخطاء محاسبية الرقم السري 1975 المحاسب.rar1 point
-
1 point
-
برنامج سهل وصغير لتقديم الأقرار الضريبي ، الرقم السري 1975 للأكسس2003 ، أي ملاحظة نرجو الأفادة أبدأ بنموذج الأقرارات الدائنة أولا اقرار.rar1 point
-
1 point
-
1 point
-
شكرا خبير الاكسيس ابو عارف على مساعدتى فى طباعة 75 نقرير دفعة واحدة بدل من فتح 75 تقرير وطباعتة على حدى1 point
-
جزاك الله خيرا استاذى الفاضل Ali Mohamed Ali والشكر موصول للأستاذ حسين مأمون1 point
-
1 point
-
شكراً اخي @ابو ياسين المشولي لو جربت الزر الثاني يفي نفس غرض اما اجبار المستخدم استخراج ملف من ارشيف ، تعمدت عليه بسبب مسار برنامج في ارشيف تكون في مجلد Temp ويصعب عثور المستخدم على الملف المستخرج لهذا لسبب وضعت شرط if حتى يضطر مستخدم وضع البرنامج في مجلد يعرف مساره اما اذا حذفت شرط if يعمل ككود اللي تفضلت به حتى لو برنامج في ارشيف أو خارج ارشيف.1 point
-
مشاركة مع اخي ابو عارف هذا كود تحويل الى بي دي اف في حدث تحويل تقرير الى PDF DoCmd.OutputTo acOutputReport, "NewUrine", acFormatPDF, CurrentProject.Path & "\" & "المرضى" & ".PDF", True1 point
-
عزيزي @jo_2010 اضقت لك زرين في نموذج عند ضغط على الاولى ستفتح لك نافذة غير اسم الملف في مربع اسم الملف ثم عند ضغط على موافق، سيستخرج ملف pdf في مجلد مستندات أو حدد مجلد مراد استخراج تقرير اليه من مجلدات معروضة في شاشة ثم اضغط زر موافق و عند ضغط على زر الثاني سيقوم البرنامج بإنشاء pdf في نفس مسار قاعدة بيانات ولكن بعد استخراج القاعدة من ارشيف بتوفيق،، Lab.rar1 point
-
قم بعمل التنسيق في كل ورقة من الأوراق تم عمل ماكرو إظهار كل الصفوف حتى تتمكن من تنسيق الخلايا هناك فكرة يمكن عمل حيلة وهي إخفاء الصفوف الفارغة تلقائيًا عند فتح ورقة العمل Shool.xlsm1 point
-
1 point
-
وعليكم السلام استاذ محمد اسال الله الكريم ان يشفيك شفاء لا يغادر سقما1 point
-
السلام عليكم ورحمة الله وبركاته بعد اذن الاساتذة الكبار حفظهم الباري عز وجل ولهم كل التقدير لجهودهم الكبيرة في المنتدى الرائع استاذ سليم والاستاذ احمد اخي ناصر سعيد نسق الشيتات بما تريد وسيظهر الترحيل كما منسق مسبقا للشيت اما الترقيم التلقائي فاستخدم اي معادلة للترقيم التلقائي مثلا SUBTOTAL او غيرها واجعل النسخ والترحيل يبدا من العمود الثاني اي غير المدى من "A" الى "B" الموجود في الكود اليك الملف Shoolترقيم تلقائي.xlsm1 point
-
بعد اذن استاذنا الفاضل الاستاذ سليم جزاه الله عنا خير الجزاء واثراء للموضوع انظر لهذ الملف لعله يفى بالغرض نسخة من انذار غياب.xlsm1 point
-
1 point
-
اسال الله العظيم ان يشفيه ويرفع عنه المرض ويعطيه الصحه والعافيه1 point
-
هون الاداره اعطت الاستاذ ابو ياسين ترقيه الى رتبه خبير ويستحقها نشكر الاداره على الاهتمام بالكوادر نبارك ونقول يستاهل ابو ياسين الترقيه تحياتي للجميع1 point
-
شوف جرب هذا المرفق يطبع كل اللي في التاريخ الموجود بالنموذج حاول تعمل كم تقرير بتاريخ اليوم ولاحظ بيطبع ماهو بالتاريخ اللي موجود بالنموذج Lab.accdb1 point
-
1 point
-
السلام عليكم ورحمة الله وبركاته اسأل الله العظيم رب العرض الكريم أن يرفع عنك الباس ويجعل العافية لك لباس ولجميع المسلمين طهور أخوي أبا جودي وأسأل الله أن يجمع لك بين الأجر والعافية والشكر .... أخوك أباريان_مكة المكرمة1 point
-
1 point
-
1 point
-
رائع بارك الله فيك أستاذنا الفاضل أستاذ سليم بعد إذن حضرتك أرى يجب تعديل بإضافة سطر لمسح المحتويات قبل الترحيل حتى لو أنه كان هناك تعديل لا يستبب في مشاكل فيصبح الكود هكذا Private Sub ComboBox1_Change() Dim R As Integer, M%: M = 5 Dim My_sh As Worksheet Application.ScreenUpdating = False Select Case Me.ComboBox1.Value Case "راسب": Set My_sh = Sheets("رسوب") Case "ناجح": Set My_sh = Sheets("ناجح") Case "دور ثانى": Set My_sh = Sheets("دور ثان فى") Case Else: GoTo End_Me End Select My_sh.Range("A5:t1005").ClearContents For R = 5 To 100 If Sheets("الشيت").Cells(R, 20) = Me.ComboBox1.Value Then Sheets("الشيت").Range("A" & R).Resize(1, 20).Copy My_sh.Range("A" & M).PasteSpecial xlPasteValues M = M + 1 End If Next End_Me: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Shool.xlsm1 point
-
لا أعلم لما هذا التفصيل والاطالة في الكود واستعمال ثلاث متغيرات(R,M,O) (الجزء الاول من الكود) يمكن الاختصار هكذا (اذا كنت لا تريد ان يعمل علي اوتو _فلتر) Option Explicit Private Sub ComboBox1_Change() Dim R As Integer, M%: M = 5 Dim My_sh As Worksheet Application.ScreenUpdating = False Select Case Me.ComboBox1.Value Case "راسب": Set My_sh = Sheets("رسوب") Case "ناجح": Set My_sh = Sheets("ناجح") Case "دور ثانى": Set My_sh = Sheets("دور ثان فى") Case Else: GoTo End_Me End Select For R = 5 To 100 If Sheets("الشيت").Cells(R, 20) = Me.ComboBox1.Value Then Sheets("الشيت").Range("A" & R).Resize(1, 20).Copy My_sh.Range("A" & M).PasteSpecial xlPasteValues M = M + 1 End If Next End_Me: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub1 point
-
جزاك الله خيرا كيف يمكننى رفع الصور بطريقه الشرح هدا وشكرا ع برنامج جميل1 point
-
جرب هذا الماكرو Private Sub ComboBox1_Change() Application.EnableEvents = False On Error Resume Next ''''''''''''''''''''''''''''' Dim sheet_to As Worksheet Dim t$: t = ComboBox1.Value Dim My_name$ Dim My_rg As Range Select Case t Case "راسب": My_name = "رسوب" Case "ناجح": My_name = "ناجح" Case "دور ثانى": My_name = "دور ثان فى" End Select Set My_rg = Sheets("الشيت").Range("a4").CurrentRegion On Error Resume Next Sheets(My_name).Cells.Clear My_rg.AutoFilter 20, t My_rg.SpecialCells(12).Copy Sheets(My_name).Range("a4") If Sheets("الشيت").FilterMode Then Sheets("الشيت").ShowAllData: My_rg.AutoFilter End If Application.EnableEvents = True End Sub الملف مرفق Shool.xlsm1 point
-
وعليكم السلام لابد من رفع الملف للعمل عليه لكى تتم المساعدة1 point
-
1 point
-
اليك هذا الرابط به ما تريد واذا تريد شيء اضافي ارفق نسخة مصغرة من قاعدة بياناتك كما اشر به استاذ @ابو ياسين المشولي ليتم التعديل عليه لاني لا احب الموضوعات اللي ما بها المرفق1 point
-
اخي العزيز بارك الله فيك من الافضل كي يتم الرد عليك من الاخوه الاعضاء يفضل ترفق ملف فيه المثال لانه فيه عده طرق وكل واحد يفضل طريقه خذ هذا مثال اجعل مصدر عنصر التحكم هكذا =DLookUp("[user]";"fbi") او مثل اخر في عنصر التحكم اسم المستخدم والقيمه الافتراضيه =[Forms]![login]![a] طبعا تغير الاسماء حسب المسميات عندك1 point
-
اخي يمكنك ذلك بطريقتين الاولى الدخول الى خصائص النموذج - بيانات - ادخال بيانات \ حول القيمة الى نعم وبهذه الطريقة لا يمكنك استعراض السجلات السابقة في النموذج فقط ادخال بيانات جديدة الثانية وضع كود الانتقال الى سجل جديد عند الفتح والكود هو DoCmd.GoToRecord acDataForm, , acNewRec1 point