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

بسم الله الرحمن الرحيم كنا قد اشرنا سابقا الى امكانية قراء ملفات التكست اونلاين وقام الاخوة الافاضل بعمل بتطبيق ذلك بافضل الامثلة منها التحديث لقواعد البيانات والتفعيل وما الى ذلك وها انا ذا احذو بكم بعيدا قليلا عن مجال الاكسس واقدم لكم تطبيقى لقراءة الملفات اونلاين فى الواقع قمت بتنفيذ ذلك الموضوع بالاكسس مسبقا ولكن لم يروق لى الموضوع ببساطه هو مجلة نعرض بها اى موضوع يرسله لى اى عضو اذا احب ان يشارك موضوعه معنا مثلا لديك برنامج تريد عرضه على المجلة بطريقة جميلة وجذابة او شرح لك ابدعت به واستفاد منه الاخوة فقط ارسله الى المجلة وسيتم مراجعته وادراجه فى المجلة المجلة تنقسم الى تطبيقين اول تطبيق هو ( ماى اكسس ) وهو للمستخدمين ويتم عرض به الموضوعات وهو على هذا النحو اما التطبيق الثانى وهو الخاص بالتحكم بالمجلة وهو انشأته لدى على هذا النحو ومن خلاله اتلقى طلباتكم بخصوص عرض برامجكم وموضعاتكم اما عن كيفية العمل فالموضوع بسيط جدا ويمكن تنفيذه بالاكسس لانه فى الاساس مربوط بقاعدة بيانات اكسس قد يتسائل احدكم كيف تصلك طلباتكم الى هل هى استضافة ام ماذا فى الواقع كل ما استخدمه فى هذا الموضوع هو انشاء حساب على دروبوكس مجانى فقــــــــط اما طلباتكم فهى تصلنى على هيئة بريد اليكترونى تم تصميمه بكيفية معينة وتم ربط قاعدة بيانات لوحة التحكم ببالبريد هكذا وتقوم لوحة التحكم بتهيئة البريد الذى يصلنى وفلترته وانشاء المقالات يمكنك ارسال مقالك من هنا اولا اتمنى ان تستمتعو ثانيا بعد الاستمتاع بقى التجربة هههههههههه شكرا لكم الصور التى على المجلة يقوم العضو برفعها اوللا على الانترنت وادراج الرابط الخاص بها عند انشاء المقال الخاص به اى ان رابط الصورة المستخدمه لا يكون رابط محلى على جهاز المستخدم بل صورة مرفوعة على الانترنت MyAccess.rar

الاخ M.NHAKAMI ربما يكون هذا الكو يوفي طلبك انظر المرفقات Three_Button.rar

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... تم إضافة عمود "الجنس" (للضرورة) وجداول الملاحظات والإرشادات (يمكن تخصيصها حسب الأستاذ) حسب الجنس مع المعادلات المناسبة لإدراج ما تريده حسب معدل التلميذ... ليس لي فكرة أخرى... وجمعة مباركة. بن علية حاجي example12.xls

الاخ idriss idrissou تفضل جرب المرفق CONSULTATION_1.rar

انظر هذا مثلا ....

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

الحمد لله ذي الرضا المرغوب، يعفو ويصفح ويغفر الذنوب... يملي ويمهل لعل العاصي يتوب، يعطي ويرضى ويحقق المطلوب... يُطعم ويَسقي ويستر العيوب، يغني ويشفي ويكشف الكروب... نحمده تبارك وتعالى حمدًا هو للذات العليا منسوب... ونعوذ بنور وجهه الكريم من شر الوسواس الكذوب... ونسأله السلامة فيما مضى وما سوف يأتي من خطوب... اما بعد موضوعنا هذا الشهر يشغل بال الكثيرين الذين يلجؤون للاقتراض التمويلي لشراء منزل او سيارة او اقامة مشروع ما ، وما يترتب علي هذا القرض من فوائد وبدون الخوض في الناحية الشرعية سوف نتاول كيفية حساب القرض الفائدة المركبة هي إحدى طُرُق احتساب الفوائد البنكية على القروض، وحيث أن الفائدة هي مقدار الزيادة على أصل المبلغ على أساسٍ سنوي، فإن الفائدة المركبة هي تركيب للفائدة وزيادة قيمتها – وليس نسبتها – على أصل القرض في كل سنةٍ من عمر القرض. وبما أن عوائد الفوائد هي المصدر الرئيسي لإيرادات البنوك في شتى بلاد العالم؛ فإنه يتم اتِّباع طريقة الفائدة المركَّبة على القروض وليس على الودائع؛ حتى يستفيد البنك من مقدار الفرق الهائل بين ما يدفعُه من فوائد للودائع للعملاء؛ وبين ما يأخذُه على القروض من فوائد. إجمالي المبلغ النهائي مع الفوائد يساوي أصل المبلغ مضروبا ب 1+معدل الفائدة مرفوعاً لعدد الفترات الزمنية. مثال : اقترض أحد الأعضاء من بنك أوفيسنا التجاري مبلغا وقدره 1000 وحدة نقدية بفائدة سنوية 10% لثلاث سنوات. يصبح المبلغ بنهاية المدة 1000 × ( 1.10 ^3 ) = 1000 × 1.331 = 1331 وبذلك تكون الفائدة المركبة بعد 3 سنوات 331 وحدة نقدية في حال كانت الفائدة بسيطة تكون قيمتها بعد 3 سنوات 300 فقط حيث تحسب على أصل المبلغ فقط دون اعتبار الفوائد المتراكمة ولحساب قيمة القرض باستخدام الدالة PMT =PMT(a,n,p) حيث a هي قيمة الفائدة (المتراكمة) في الفترة ، في هذه الحالة هنا الشهر n هي عدد الأقساط المتساوية ، في هذه الحالة هنا 36 p هي قيمة القرض ويوجد شروحات علي المنتدي لشرح الدالة بالتفصيل وشرح القيمة الحالية للفوائد المتراكمة . تسهيلا للبعض اعددت فورم بسيط يقوم بحساب القرض والفائدة المتناقصة (( وبدون الخوض في الأحكام الشرعية المتعلقة بالقروض )) شرح الفورم .... (1920x1080) اضبط تباين الشاشة على loan_calculator2.xls loan calculatorV1-2019.xls

اخي الكريم السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير هل يراودك شك احيانا في بعض الكلمات او الرموز عند تسمية الحقول هل هي محجوزة أم لا ؟ اليك الحل هدية العيد : في المرفقات تطبيق بحثي يشتمل على جميع كلمات ورموز الاكسس المحجوزة والتي يجب أخذ الحيطة عند تسمة الحقول واجتناب التسمية بها لان ذلك يؤدي الى ظهور أخطاء أمام المبرمج يخفى عليه سببها . آمل ان تجدوا الفائدة ،،، dbx.rar

فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو6تعديل الفيديو

جزاك الله خيرا واللهم يجمعنا واياكم دائما في الخير

اللهم امين ولك بالمثل اخي الفاضل وجزاك الله خيراً وفقك الله لما يحب ويرضى تحياتي

بكل بساطة الدالة iif تقول اذا كانت القيمة = صغرى = 1 والا 0 ثم نقوم بجمع القيمة الخارة بدالة sum تحياتي

تفضل اخي =Sum(IIf([COPU1]="صغرى";1;0)) مرفق الملف بعد التعديل Dcount.rar تحياتي

الله يبارك والله ابهرني الملف رقم 2 ملف رائع لم اطلب هذا العمل لكني اعجبت به اتم الاعجاب بحيث ادرج فقط القسم يعطيني كل اساتذته رائع رائع يا اخي يا ريت فقط تضيف عليه تعديلات الحجم فقط بحيث يحوي 100 استاذ الملف المرفق يوضح لك الحجم بارك الله فيك page_2.xlsx

جرب هذا الملف Masouliya.xlsx

جرب احد هذين الملفين لاني لم افهم ماذا ترد بالضبط رجاء الرد ايهما تريد page_1.xlsx page_2.xlsx

السلام عليكم كنت أعمل على الملف حيث أني لاحظت أن الملاحظات في كل ورقة (شيت) حسب كل فصل (ثلاثي) يتم جلبها من العمود DA (الذي كان مخفيا وتم إظهاره) والكود خاصته تجده في حدث ThisWorkbook (كود النقر المزدوج)... (لم أتصرف في الكود).. بن علية حاجي عبد اللاوي فصل 1.rar

انا علقت على ردك سابقا بس واضح ان النت خزلنى اعتذر لك اخى صالح

بارك الله فيك وزادك الله من فضله كلها اعمال رائعة

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

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

وعليكم السلام-تفضل لك ما طلبت بهذه المعادلة =IFERROR(DGET($B$4:$G$12,B4,$C$17:$D$18),"") صفحة 1.xlsx

جرب وضع المعيار تحت الحقل نفسه في الاستعلام >Format(Date();"mm/dd/yyyy") DATE().rar تحياتي

و عليكم السلام و رحة الله وبركاته جرب المرفق Sub MUTAKHEEN_ALL() Dim FS As Worksheet, TS As Worksheet Dim ER, FSN, FR, TR Set TS = Sheets("ÊÃÎíÑ") TR = 6 For FSN = 1 To Sheets.Count Set FS = Sheets(FSN) If FS.Name = TS.Name Then GoTo 9 With FS For FR = 5 To 999 If .Cells(FR, 14) < 0 Then For FC = 1 To 18 TS.Cells(TR, FC) = .Cells(FR, FC) Next FC TS.Cells(TR, 19) = .Name TR = TR + 1 End If Next FR End With 9 Next FSN End Sub برنامج ايجار.xlsm

بالتوفيق اخي الكريم وفقك الله لما فيه الخير تحياتي

ولك مثل دعائك اضعاف اخ بشير او بالامكان عبر الكود التالي اخف من السابق بحيث الحلقة تمشي فقط على الخلايا الفارغة في نطاق البيانات والتي تعتبر افتراضيا فيها دمج Sub Ali_Merg() Dim C_Rng As Object Dim A, B Application.ScreenUpdating = False For Each C_Rng In Application.ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks) With C_Rng If .MergeCells Then A = .MergeArea.Address: B = .Value .UnMerge: Range(A).Value = B End If End With Next Application.ScreenUpdating = True End Sub

تفضل تأكد من المخرجات واذا ظهرت لديك اخطاء او ملاحظات بالخدمة ملاحظة ادخال نوع السكن حاول الادخال عبر القائمة لكي لايظهر لديك اختلال بتقرير التسكين برنامج المعتمرين _A3.xlsm

فى المرات القادمة حاول استاذ تامر ان تيسر على نفسك ولا تعسر كما نصحك جميع الأساتذة تفضل لك ما طلبت طبعا بعد ضبط تنسيقات وفورمات الملف =IFERROR(MAX(0,MIN(EOMONTH(0+(1&LOOKUP("zz",$L$1:L$1)),0),INDEX($C$3:$J$3,MATCH(L$2,$C$2:$J$2,0)+1))-MAX(0+(1&LOOKUP("zz",$L$1:L$1)),INDEX($C$3:$J$3,MATCH(L$2,$C$2:$J$2,0)))+1),0) 1تاريخ تواجد الموظفين.xlsx

السلام عليكم جرب المرفق الشهر تحط رقم 1 او 2 وهكذا Ali_Tst.xlsm

خذ راحتك اخي العزيز

وعليكم السلام ورحمة الله وبركاته لديك في جدول = CODPUNISH قيمة للصغرى قيمة = 0 وقيمة = 2 عموما قم بتعديل الكود ليكون كالتالي من =DCount("[GAZ1]";"[QUIERY_23]";"[QUIERY_23]![COPU1]=صغرى") الى =DCount("[GAZ1]";"[QUIERY_23]";"[QUIERY_23]![COPU1]=2") تحياتي

وعليكم السلام اتفضل اخى ان شاء الله يكون ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم Dcount.rar

السلام عليكم لا أعتقد أن إيجاد النسبة الإجمالية ممكن مباشرة، لا أرى أي مشكلة في حساب هذه النسبة بهذه الطريقة... راجع الملف المرفق... بن علية حاجي نسبة إجمالية.xlsx

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

السلام عليكم ورحمة الله تم تطويع وتكييف كود طباعة إلى PDF من المنتدى (لأحد الإخوة الكرام لا أتذكره) على ملفك حتى يتم طباعة كل الشهادات (كل شهادة في صفحة A4 -باتجاه عرضي Landscape-) في ملف PDF بالتسمية "الشهادات.pdf" في مجلد backup يتم إنشاؤه تلقائيا في نفس موقع الملف الذي يتم العمل عليه... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي المصنف2.xlsm

لا علاقة لنواة الويندوز سواء كانت 32 بيت او 64 بيت بعمل او ايثاق الاكواد ولكن هند اعداد الاوفيس على نظام ويندوز 64 بيت من خلال ملف الاوتو رن للاوفيس يقوم باعداد اوفيس 64 بيت لذلك اذا كانت نواة الويندوز 64 بيت يجب الدخول الى ملفات الاوفيس واختيار تنصيب الاوفيس 32 بيت

السلام عليكم انشأت اوراق لأشهر وهمي يشترط اذا ضفت اوراق اخرى لاشهر تسميها بنفس الطريقة وعمود ارقام الايام في Sheet1 تسجل التاريخ لليوم وليس ارقام الايام كود بسيط اضافة الى حلول الاساتذه الافاضل تفضل المرفق ترحيل بيانات_1.xls

تم التعديل على المشاركة السابقه اعد تحميل الملف

بارك الله فيك استاذنا الكريم بالتأكيد معادلة رائعة بارك الله فيك وجزاك الله كل خير

في المرفق تجد حلا بمعادلات صفيف... تم الاستغناء عن الأعمدة الزائداة لتجنب دمج الخلايا... بن علية حاجي الصف_الاول.xlsx

السلام عليكم لست أدري ما تريد تمثيله في البيان CHART، جرب المرفق مع بعض الإضافات لعل فيه ما تريد... لأي تعديلات أخرى تجدني إن شاء الله في الخدمة... بن علية حاجي Chart.xlsx

السلام عليكم استاذى واخى الحبيب / عبد العزيز البسكرى يعجز الكلام عن التعبير عن مدى امتنانى لحضرتك ..كلام طيب ..دعاء لوالدتى رحمها الله لا يسعنى سوى شكر الظروف التى جمعتنى بكم اخى الكريم .. جزاك الله خيراً ..وأسال الله ان يوفقنا جميعاً لما فيه الخير بالنسبه للكود .. هو يتخطى وفقط ظهور نافذه خيارات الطباعه عند الضغط على Print اثناء المعاينه Sub PrintAll() Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Feuil1.Range("J7").Value iEnd = Feuil1.Range("L7").Value For I = iStart To iEnd Feuil1.Range("I3").Value = I Feuil1.PrintOut Preview:=True Next I End Sub خالص حبى وتقديرى لك اخى واستاذى الحبيب عبد العزيز ولاستاذى ابو البراء ولكل اعضاء المنتدى الماس

ولاثراء الموضوع ها هى معادلة اخرى =OFFSET(INDIRECT(ADDRESS(7;MATCH($AD$5;$B$7:$AB$7;0)));ROW(A1);1;;)

اخى الفاضل استخدم المعادلة التالية =INDEX($B$8:$AB$50;ROW(A1);MATCH($AD$5;$B$7:$AB$7;0)) بحث عن الاحياء والمراكز2.rar

اليك شرح الكود Sub مستطيلمستديرالزوايا6_Click() ' التعريف بالمتغيرات Dim Ls As Long, LR As Long, u As String ' U الموجودة بشيت الفاتورة فى المتغير L1 تخزين قيمة الخلية u = Sheets("فاتوره").Range("L1") ' كود ايجاد اخر صف بة بيانات فى صفحة الفاتورة Ls = Sheets("فاتوره").Cells(Rows.Count, 4).End(xlUp).Row ' U كود ايجاد اول صف فارغ فى الصفحه المرحل اليها البيانات LR = Sheets(u).Cells(Rows.Count, 2).End(xlUp).Row + 1 ' وقف اهتزازات الشاشة اثناء عملية التنفيذ لما يلى Application.ScreenUpdating = False ' اخر صف بة بيانات LS بدلالة o الى B7 نسخ النطاق من Range("B7:O" & Ls).Copy ' U لصق القيم المنسوخة فى اول صف فارغ فى ورقة العمل Sheets(u).Cells(LR, 2).PasteSpecial Paste:=xlPasteValues ' عودة الى شيت الفاتورة وتحديد النطاق المرحل ثم حذف الخلايا التى لا تحوى معادلات Range("B7:O" & Ls).SpecialCells(xlCellTypeConstants, 23).ClearContents Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox ("تم بحمد الله ترحيل فاتورة " & u) End Sub

أ.عادل ابوزيد مرورك شرفنى واسعدنى بارك الله لك وجزاك خيراعلي كلماتك الطيبة تفضل اخى الكريم LOOKUP.rar

والدالة لأكثر من شرط ، وبطريقة سهلة: كل نوع من انواع الحقول له طريقة معينة للتعامل معه في الكود ، وهذا يجعل كتابة كود بأكثر من شرط ، صعب نوعا ما ، لذلك ، الطريقة التي اقترحها هي في التعامل مع كل نوع بسطر مستقل (انظر للمثال في الاسفل) ، مما لا يدع مجال للخطأ في السطر ، ثم نجمع الاسطر في سطر واحد ، وهذا السطر يكون مجموع الشروط : myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [iDate]=#29-05-2015#" myCriteria = myCriteria & " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria = myCriteria & " Or [EmployeeID]=" & Me.EmployeeID 'myCriteria = myCriteria & " Or [ID]=12" a = DLookup("[myID]", "tbl_Employees", myCriteria) او myCriteria_1 = "[detach]='موظف'" myCriteria_2 = " Or [iDate]=#29-05-2015#" myCriteria_3 = " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria_4 = " Or [EmployeeID]=" & Me.EmployeeID myCriteria_5 = " Or [ID]=12" myCriteria = myCriteria_1 & myCriteria_2 & myCriteria_3 & myCriteria_4 & myCriteria_5 a = DLookup("[myID]", "tbl_Employees", myCriteria) والشرح 'في الاسطر، ممكن استعمال والخلط بين 'Or او And 'كما يمكن استعمال اي سطر، و عدم استعمال اسطر اخرى، اي يمكن الخلط في استعمال الاسطر 'للمتغيرات الثابته 'نص myWhere = "[detach]='موظف'" myWhere = myWhere & " Or [ID]=12" 'رقم myWhere = myWhere & " Or [iDate]=#29-05-2015#" 'تاريخ 'للمتغيرات myWhere = myWhere & " Or [Employee_Name]='" & Me.Employee_Name & "'" 'نص myWhere = myWhere & " Or [EmployeeID]=" & Me.EmployeeID 'رقم myWhere = myWhere & " Or [Payment_Month]=#" & Me.txtMonth & "#" 'تاريخ a = DLookup("[myID]", "tbl_Employees", myWhere) جعفر

اضافة بسيطة هنا : expr هو تعبير اي ممكن اسم حقل او اي تعبير مقبول مثلا [qty]*[unitprice] وهنا ميزة اضافية وكل هذا ينطبق على جميع دوال المجال ! dsum,dcount,dfirst ! مشكورين

بقية الملفات NumericMathematical Functions.rar String Functions.rar

مرفقات الموضوع على رابط خارجي خوفاً من فقدان الرابط ومحتوياته يتم التحميل على الموقع ACCESS FUNCTION.rar Advanced Functions.rar Data Type Conversion Functions.rar Date Functions.rar Domain Aggregate Functions.rar FileDirectory Functions.rar Functions used by Group By Feature in queries.rar