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

السلام عليكم 🙂 برامج الاكسس ممكن ان يصيبها العطب corruption لعدة اسباب ، وبرامج تصليح العطب يجب ان تكون من ضمن مكتبة برامج المبرمج 🙂 يُعتبر برنامج DataNumen Access Repair من احد البرامج المهمة في اصلاح ملفات الاكسس المعطوبة ، والآن الشركة تعطي النسخة الاحدث 2.9 للإستعمال الشخصي الغير تجاري ، مجانا ، من موقعهم : https://www.datanumen.com/access-repair/ انزلته وجربته ، بس لاحظت ان البرنامج بطيء بالمقارنة مع بعض البرنامج الاخرى ، ولكن لا تنسى أنها نسخة مجانية (للإستعمال الشخصي الغير تجاري) 🙂 جعفر رجاء استعمل رابط الشركة حتى تنزل آخر نسخة هناك ، بينما ارفق هنا النسخة 3 (احتياطا ، اذا غيرت الشركة رأيها لاحقا والغت النسخة المجانية ، فتكون عندنا هنا النسخة المجانية 🙂 ) daccr.zip

السلام عليكم أخي الكريم تفضل ما هو قريب من المطلوب حيث تقوم الفاصلة المنقوطة بإخفاء الأرقام والأحرف..كما يمكنك إضافة النجوم التي تريد لتظهر بدلاً من الأرقام والحروف تقبل تحياتي العطرة

تفضل اخي العزيز ارجو ان يكون طلبك ملاحظة : تم عمل دالة يتم استدعائها عن طريق زر امر الناتج ويمكن استدعائها بالطريقة التي تحب Root250.rar

السلام عليكم و رحمة الله تعالى و بركاته بعد أن أنهينا الشطر الأول الخاص بالتعامل مع الويب من الأكسس بإستخدام أداة WebBrowser و هذا رابط الموضوع: نبدأ الآن بحول الله تعالى في الشطر الثاني و هو التعامل مع صفحات الويب بدون إستخدام أداة WebBrowser سوف نستخدم في هذا الموضوع طريقتين الأولى التعامل المباشر مع المتصفح Internet Explorer و الثانية بإستخدام سرفر معين الجزء الأول: التعامل المباشر مع المتصفح Internet Explorer في هذا الجزء إن شاء الله سوف نقوم بفتح نسخة من المتصفح Internet Explorer و نرسل لها بيانات أو نستقبل منها. سوف نستخدم مثال الأخ @ابوآمنة للتطبيق عليه بإرسال بيانات لنموذج غوغل من خلال متصفح خارجي: هذا هو الكود: Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.Navigate sURL oBrowser.Visible = False Do ' Wait till the Browser is loaded Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE Set HTMLDoc = oBrowser.Document HTMLDoc.getElementsByTagName("input").Item(0).Value = Me.n1 HTMLDoc.getElementsByTagName("input").Item(1).Value = Me.n2 HTMLDoc.getElementsByClassName("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Item(0).Click Do ' Wait till the Browser is loaded Loop Until oBrowser.LocationURL <> sURL oBrowser.Quit MsgBox "لقد تم إرسال البيانات بنجاح" Me.n1 = "" Me.n2 = "" Err_Clear: If Err <> 0 Then Err.Clear Resume Next End If شرح الكود: Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String هنا قمنا بتعريف المتغيرات التي نحتاجها sURL = "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform" هذا رابط الموقع Set oBrowser = New InternetExplorer إسناد نسخة من جديدة من Internet Explorer للمتغير oBrowser oBrowser.Silent = True oBrowser.Navigate sURL oBrowser.Visible = False السطر الأول هو إيقاف ظهور رسائل الأخطاء من المتصفح السطر الثاني تصفح الرابط sURL السطر الثالث التحكم في إظهاء أو إخفاء المتصفح أثناء العمل عليه Do ' Wait till the Browser is loaded Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE الإنتظار إلى حين تحميل الصفحة HTMLDoc.getElementsByTagName("input").Item(0).Value = Me.n1 HTMLDoc.getElementsByTagName("input").Item(1).Value = Me.n2 إرسال قيم للمربع الأول و الثاني HTMLDoc.getElementsByClassName("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Item(0).Click الضغط على زر إرسال Do ' Wait till the Browser is loaded Loop Until oBrowser.LocationURL <> sURL إجراء حلقة دورانية لا يخرج منها إلا عند تغير رابط الصفحة و ذلك عند الضغط على زر الإرسال oBrowser.Quit إغلاق المتصفح بعد إرسال البيانات للتجربة افتح المرفق و ادخل بيانات في المربع الأول و المربع الثاني و اضغط على زر الإرسال و لاحظ ماذا يحدث و للإطلاع على ظهور النتائج ادخل على هذا الرابط: https://docs.google.com/spreadsheets/d/e/2PACX-1vSi73gAAIE9Rv8Ux43jjcvq9SSpzdVzs3M3ZEtehWqqP0pW4NLFLnkX3Iqoc9dYm_cx8vPz9S1465zd/pubhtml ارسال بيانات لنماذج غوغل.rar

شوف هذا الرابط قد يساعدك : https://exceldevelopmentplatform.blogspot.com/search?q=jQuery+ جعفر

هلا والله ابو آمنه 🙂 يا رجال ، جمعت الاشياء من هني وهناك ، مو تصدق 😁 انا اكسس وبس 🙂 جعفر

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

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

اخي طارق 🙂 فهمنا للطلب ، يسهل علينا الاجابة ، وطلبك ليس بالسهل ولا بالصعب ، ولكننا علشان نساعدك ، لازم نبرمج لهذا الطلب (1. للشبكة الداخلية) ، او ذاك (2. على الانترنت) ، للمواد التي تريد استعمالها ، وعلى الاكسس : واليك الفرق بينهم : 1. الشبكة الداخلية : برنامج جدا عادي ، حسب المواد اللي عندك ، والصفوف ، تضبط مجلداتك ، وعليه ، تقدر يكون عندك نموذج لإدخال المواد (عن طريق الاستاذ مثلا) ، ونموذج قراءة المواد (للطلبة) ، الواجهة والجداول ممكن تكون على الاكسس ، الواجهة على كمبيوتر الطلبة ، والجداول والمواد (المرفقات) يتم حفظها في مجلد المشاركة على السيرفر (او الكمبيوتر الذي به مجلد المشاركة) ، عمل نموذج/نماذج لعرض المرفقات . 2. على الانترنت : برنامج يقرأ من مكان ما من الانترنت ، ولا ينفع السيرفر المحلي الموجود عندك في المكتب حتى ولو عليه SQL Enterprise 2014 ، لأن الاساتذه/الطلبة ما ممكن يتصلوا به من بيوتهم (وهذا هدفك) ، تستطيع جعل الكمبيوتر المحلى سيرفر لقواعد بيانات سيكوال SQL Server والاتصال به محليا وعن بعد ، بإتباعك هذه الخطوات : وسواء اذا اتبعت الخطوات في الرابط اعلاه ، او عملت استضافة في احد مواقع الانترنت ، فبرنامج سيكون على الانترنت ، ولا يمكن لأحد الوصول اليه وادخال المواد (المرفقات) بالطرق التقليدية ، مثل ما عملنا برنامج اكسس عادي لقراءة البيانات ، فيجب ان نعمله هنا كذلك ، طبعا تقدر تعمل واجهات بإستخدام برامج الواجهات مثل php ، Java ، Python ، JavaScript ، CSS / HTML ، او برامج NET. ، وووو ، ولكن هذا خارج منتدى الاكسس ، لرفع المرفقات ، تقدر انك تضمن المرفقات في حقول قاعدة البيانات SQL Server ، او تعمل واجهة خاصة لفعها من برنامجك ، او ترفعها عن طريق FTP ، اما انزالها الى كمبيوتر الطلبة ، فهم محتاج الى رابط هذا المرفق (واللي هي سبب اسئلتي انا والاستاذ صالح من اول مشاركة) 🙂 فالموضوع مو انه ممكن او لا يمكن عمل هذا البرنامج عن طريق الاكسس ، وانما الموضوع هو ان يكون الطريق واضح امامك ، وانك تمتلك الامكانيات اللوجستية والمادية والوقت (والبرمجة هو جزء بسيط من الموضوع) للوصول لهذه الاشياء 🙂 اتمنى هذا الملخص قد شرح لك لماذا اصرارنا على هذه الاسئلة ، وسببها قولك (التدريس عن بعد) ، وفهمي انها على الانترنت : جعفر

وعليكم السلام-الطلب ليس بسيط كما تدعى وان كان بسيطاً لقمت انت بعمله بمفردك وعلى الرغم ان هذا يعتبر مخالفة لقوانين وتعليمات المنتدى من رفع ملف مشروح -فتفضل هذا الملف سيفيدك كثيرا اداره المخازن.xlsm

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

بعد اذن الأستاذ الرائد ولإثراء الموضوع تفضل Camtend(1).xlsm

اهلا بك فى المنتدى هناك عدة أكواد يمكنها عمل ذلك , عليك بإختيار الأنسب لك Public Sub PrintOneLine() Dim rng As Range For Each rng In Range(Range("A5"), Cells(Rows.Count, "A").End(xlUp)) With rng.Parent .PageSetup.PrintArea = rng.EntireRow.Address '.PrintOut 'remove the apostrophy .PrintPreview 'Add an appostrophy End With Next rng End Sub وثانى كود Sub PrintOneLine() Dim Rng As Range Dim WorkRng As Range Dim xWs As Worksheet On Error Resume Next xTitleId = "Officena" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Set xWs = WorkRng.Parent For Each Rng In WorkRng xWs.PageSetup.PrintArea = Rng.EntireRow.Address xWs.PrintPreview Next End Sub وهذا ثالث واخر كود Sub Printseprete() Dim c As Range For Each c In ActiveSheet.Range("A5:A105") ActiveSheet.PageSetup.PrintArea = c.EntireRow.Address ActiveSheet.PrintOut Next c End Sub Print.xlsm

اتفضل استخدم هذا اذا كان هناك ملف محفوظ من قبل سيخبرك والا سيعمل لك تقرير جديد Dim X As String X = Me.ZTeacher2.Column(1) & ".pdf" If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then MsgBox "هناك ملف محفوظ من قبل" Else DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End If

وعليكم السلام ورحمة الله وبركاته أخي الجبيب @احمدزمان أشكرك على ردك الطيب بارك الله بكم أما عن تحويل الرقم إلى نجوم في Txtbox يتم من خلال عرض الخصائص خاصية PasswordChar يتم وضع نجمة بالحقل المجاور لها * فتصبح كل الأرقام والحروف التي تضعها على هيئتها والله أعلى وأعلم. والسلام عليكم

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

شاهد هذا الفيديو https://www.youtube.com/watch?v=gHN4yOOIrnE

+1

وعليكم السلام ورحمة الله وبركاته 🙂 شكرا لك اخي صالح على الشرح وبالتفصيل لهذه المواضيح المهمة 🙂 من تجربتي ، فالتصفح من داخل الاكسس عن طريق webbrowser ، والذي يستعمل ieFrame.dll ، والذي هو جزء من الانترنت اكسبلورر Internet Explorer ، لا يحتوي على جميع خواص Internet Explorer الكامل ، فهذا الموضوع سيكون اشمل و أعم 🙂 فانا هنا من المتابعين كذلك ان شاء الله ، وبصمت 🙂 جعفر

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

عَنْ عَبْدِ اللهِ بْنِ عَمْرٍو، أَنَّ رَسُولَ اللهِ صَلَّى اللهُ عَلَيْهِ وَسَلَّمَ، قَالَ: الدُّنْيَا مَتَاعٌ، وَخَيْرُ مَتَاعِ الدُّنْيَا الْمَرْأَةُ الصَّالِحَةُ الله يصلح لنا ولكم

بالضبط هذا ما أريده ولك أحلى عروسه جزاك الله خيرا ..

وعليكم السلام اخى فايز اطلع على المرفق هل هذا ما تريد؟ تقبل تحياتى ly.rar

الله يعافيك والشكر لله سبحانه

مع ان الاستاذ @husamwahab وضع حل متميز عن طريق عمل استعلامين بعد انشاء علاقة رأس باطراف بين الجدولين والنتيجة متميزة ومن باب اثراء الموضوع وتعدد الحلول ممكن الوصول للنتيجة بدون اجراء اي تعديل وباستعلام واحد عن طريق دالة dsum بثلاثة معايير Nz(DSum("[total]";"كتب_الشكر";"[تاريخ_الكتاب]>" & Format([تاريخ اخر علاوة];"\#mm\/dd\/yyyy\#") & "And [تاريخ_الكتاب]<" & Format([تاريخ العلاوة القادمة];"\#mm\/dd\/yyyy\#") & "and [الاسم]='" & [الاسم] & "'");0) تفسير التعبير اجمع عدد كتب الشكر اذا كان تاريخ الكتاب اكبر من تاريح العلاوة وتاريخ الكتاب اصغر من تاريخ العلاوة القادمة واسم الموظف يساوي اسم الموظف وفي حالة عدم التطابق ضع العدد يساوي صفر ايضاح بسبب استخدام اسماء عربية للحقول لا يظهر الكود في المنتدى بشكل صحيح الملف مرفق Database910.accdb

بإذن الله يوجد حل أخي الكريم بدأت أمل من هذا الموضوع يأخذ مني الكثير من الوقت و تفاعل الأعضاء فيه نادر. يعني أنت رجعت شوي حوية مشكور. لقد قسمت موضوع تعامل الأكسس مع الويب إلى قسمين : الجزء الأول هو بإستخدام الأداة WebBrowser و الجزء الثاني بدون استخدام هذه الأداة يعني التعامل مباشرة مع المتصفح أنت الآن سبقت الأوان بهذا السؤال. لكن سوف أعطيك مرفق صغير مقفل يقوم بالواجب على أكمل. هذا من أجل عدم خلط الموضوعين مع بعض تملأ المربعات و تضغط على زر إرسال. و في المساء إن شاء الله تعالى سوف أبدأ بالجزء الثاني في موضوع مستقل. و لا تنسى تخبرني بنتيجة المرفق web_SALEH2020.rar

طبعا يمكن عمل هذا من خلال هذه المعادلة =VLOOKUP($A2,$M$7:$O$16,MATCH(B$1,$M$6:$O$6,0),0) معادلة vlookup1.xls

عليكم السلام ورحمة الله وبركاته الطريقة هو ان تنشء حقلا رقميا في الجدول تكون قيمته الافتراضية صفر ، وعند كل امر طباعة للتقرير يتم تحديث هذا الحقل + 1 بحيث لو تمت طباعة التقرير للمرة الرابعة يظهر لك في التقرير الرقم 4

شكرا لك جزاك الله خيرا

واهلا بك وجزاك الله كل خير

ممتاز أخي لقد طبقت جميع الخطوات بشكل جيد لا يا أخي يتم التحديث بشكل آني للجدول

هههههه انت كذا دعيت عليه 😃

شكر الله لك .

العفو اخي والشكر لله سبحانه وجزاك الله خير

خالد ضلميي أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!💙

يعطيك الف عافيه هذا هو المطلوب شكررررررررررررررررررررررررررررررررررا

شكرا جزيلا استاذي العزيز ... ربي يجعلها في ميزان حسناتكم

السلام عليكم أخي الكريم يمكنك فعل ذلك باستخدام دالة CHOOSE للمساعدة في اختيار العمود بعد التحويل من نطاق إلى جدول كما هو موضح في الملف المرفق: تقبل تحياتي العطرة ...كما أرجو من أخي الكريم @Ali Mohamed Ali المعذرة لعدم اطلاعي على مشاركته إلا بعد عرضي للمشاركة معادلة vlookupحرة (1).xls

شكرااااااااا جدااااااااا بارك الله فيكم

عليك برفع الملف نفسه وليس الكود فقط ,كما أخبرك استاذنا الكبير سليم .. لإختبار وتجربة عمل الكود على الملف , فلا تنتظر المساعدة بدون رفع الملف

hamed.34552 أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!💙

ضع هذه في خلية التاريخ =IFERROR(IF(COUNTIF(Setting!$A:$A;$A2)>=1;TODAY();"كود الموظف غير موجود");"-") و هذه في خلية الوقت =IFERROR(IF(COUNTIF(Setting!$A:$A;$A2)>=1;NOW();"كود الموظف غير موجود");"-")

جزاك الله خيرا اخى صالح @ابوآمنة وبارك الله فيك من خلال الاطلاع عالمثال للاخ بلال فقد قام بوضع مربع قائمه لايتم فتح نموذج خلال مربع قائمه يا اخى بلال بل فى عنصر نموذج فرعى اضف عنصر نموذج فرعى ولا تسند اليه اى نماذج وقم باسناد النموذج المراد فتحه من خلال الكود فالزر الذى سيقوم بفتحه Me.mf.SourceObject = "frm2" مثلا لدينا عنصر نموذج فرعى مسمى mf ولدينا نموذج فرعى اسمه frm2 فقمنا باستدعائه بالكود السابق عند النقر عالزر تبعه لفتحه هذا والله اعلى واعلم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق 20199.rar

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

يمكنك استخدام هذه المعادلة =IF(AND(WEEKDAY($B4)=6,$C4="حضور"),1,"") حساب يوم الجمعة2.xlsx

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

الكثير من العادلات تقوم بهذا الشيء بالاضافة الى ما ذكره الأخ الرائد 77 هذا المعادلة (Ctrl+Shift+Enter) =SUM(IF(LEN(F6:F16)<>0,1,0)) واذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتبدو هكذا =SUM(IF(LEN(F6:F16)<>0;1;0))

الاكسل لم يتمكن من الطباعة لان الطايعة غير مثبتة عندك قم اولاً يتعريف الطابعة ومن ثم تستطيع استعمالها

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

هذا مثال للأسئلة الموضوعية التي قمت بعملها على شكل ملف أكسل ولكن الأسئلة هنا ثابتة وما أريده أن تكون هناك مجموعة من الأسئلة وفي كل مرة نحمل الملف يتم أوتوماتيكيا اختيار عدد من الأسئلة تُكَون الامتحان Electronic_Banck.rar