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

السلام عليكم هذا البرنامج عملته من سنين ، حين كنت اعمل في مكتبة المدرسة برنامج مكتبة مدرسية شامل 1- تسجيل الكتب وتوصيفها 2- تسجيل الطلاب 3- شاشة احترافية لإعارة الكتب واسترجاعها باستخدام قارىء الباركود ، أو باستخدام ادخال رقم الكتاب ورقم الطالب 4 - تقارير متنوعة شاملة 5- محاولة لتفعيل جهاز البصمة للزوار لم تكتمل بعد وميزات اخرى تجدونها عند تجربة البرنامج ارجوا ممن يستفيد منه الا ينساني من دعوة في ظهر الغيب . mktbah.rar

اكتب هذا في مصدر بيانات التقرير تحي حقل الفصل الدراسي Like "*" & [Forms]![نموذج1]![مربع_تحرير_وسرد2] & "*" Or Is Null

اهلا استاذي الفاضل ..... الاضافه هي كما في الصورة اضفنا عملية ترقيم للحقلين ( xPosition و code ) عند طريق كود تحت حقل الاسم في النموذج الفرعي .... بالتوفيق .....

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

جرب هذا الملف واجبرنا ...... Allijan.accdb

وعليكم السلام مشاركه مع اخى واستاذى العزيز محمد @أبو عبدالله الحلوانى جزاه الله خيرا بالتنسيق الشرطى يمكن يلبى طلبك بالتوفيق test.accdb

اخي الكريم بالنسبة للحقلين xPosition و code ضع فيهما ارقام متسلسلة فقط في كل حقل فقط . وجرب ...

راجع هذا الموضوع وان شاء الله تجد ما تريد

حياك أخي @Lotfy141414 بالتوفيق ....

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

فيديو شرح للفرز المتخصص حسب تسلسل المنصب وليس الابجدية https://www.youtube.com/watch?v=2yeQw4COGeI ان شاء الله تستفيدون منه

وعليكم السلام-الخطأ عندك انت عند صياغة المعادلة ... فهذه معادلة مصفوفة , يجب عليك بعد كتابتها الضغط على Ctrl+Shift+Enter من لوحة المفاتيح وكل حاجة تمام وشوف بنفسك بالملف .... واذا كنت تريد زيادة نطاق المعادلة فيمكنك فعل ذلك بنفسك بتعديل الرقم 10 بالمعادلة وتعديل ايضا نطاق الخلايا الى النطاق الجديد الذى تريده , ويكفيك هذا ويجب غلق الموضوع حتى لا يأخذ أكبر من حجمه 3.xlsx

غير فقط activesheet الى نطاق الصفحة الاولى ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard لتصبح ActiveSheet.Range("A1:i33").ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard

هو شخصية محترمه وسريع الاجابه فى طلبات المستجدين مثل حالاتى ومشاء الله خبره

السلام عليكم ورحمة الله استخدم هذا الكود Sub AnalysesData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, i As Long, j As Long, p As Long Dim Arr, Data As String Set ws = Sheets("ورقة1") Set Sh = Sheets("ورقة2") Sh.Range("B5").Resize(100, 6).ClearContents LR = ws.Range("D" & Rows.Count).End(xlUp).Row Data = Sh.Range("B2") Arr = ws.Range("B3:G" & LR).Value ReDim Preserve Arr(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 4) = Data Then p = p + 1 For j = 1 To UBound(Arr, 2) Arr(p, j) = Arr(i, j) Next End If Next If p > 0 Then Sh.Range("B5").Resize(p, UBound(Arr, 2)).Value = Arr End Sub

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

يتقدم فريق الموقع و أعضاؤه بخالض العزاء للأخ @مجدى يونس لوفاة والدته اللهم اغفر لها و ارحمها و أدخلها فسيح جناتك إنا لله و إنا إليه راجعون عظم الله أجركم

السلام عليكم ورحمة الله وبركاته في أحد المشاريع التي قمت بها ، كنت محتاج الى برنامج خارجي ليقوم ببعض المهام للمشروع ، فالطريقة المعتادة التي نستعملها هي ، وضع البرنامج هذا داخل احد مجلدات المجلد الرئيسي لقاعدة البيانات ، وبما ان فقدان/حذف هذا البرنامج يجعل المشروع عاجز عن العمل ، لم يكن عندي خيار ، سوى ان اجعل هذا البرنامج داخل قاعدة البيانات ، بطريقة تسمى Blob المرفق فيه هذه الملفات: . النموذج frm_Blob مهم في انه يسمح لك بوضع برامجك في قاعدة البيانات بسهولة ، والزر الاخر هو لتصدير هذا البرنامج الى اي مجلد في الكمبيوتر (لعمل التجارب مثلا) ، وقد وضعت برنامجين في قاعدة البيانات المرفقة: 1. pdftk.exe والذي يقوم بالعديد من العمليات لملفات الـ pdf ، 2. Arc5_S_BE.mdb ، وهي قاعدة بيانات فاضية ، وبها جداول مؤقته ، فبدل ان اعمل هذه الجداول المؤقته داخل قاعدة بياناتي ، ويكبر حجمها ، رأيت ان استعمل جداول خارجية ، وعند اغلاق البرنامج ، كنت اقوم بحذفها من المجلد: . لعمل البرنامج الاول ، استخدم الزر رقم 1 ، والذي سيصدر البرنامج pdftk.exe الى مجلد قاعدة البيانات ، ثم سيدمج الملفين a.pdf و b.pdf ويحفظ النتيجة في ملف ab.pdf ، ويفتحه ، بينما الزر رقم 2 ، سيصدر قاعدة البيانات Arc5_S_BE.mdb الى المجلد الرئيسي لقاعدة بياناتنا: . عند الضغط على الزر 1 ، سنرى هذه الملفات في المجلد الرئيسي لقاعدة البيانات: . ان شاء الله يكون فيه فائدة للجميع جعفر Blob.zip

السلام عليكم تم تعديل آلية الترقيات السابقة ، حيث تم اضافة شرط لعدد نقاط الاعجاب لتنفيذ الترقية الالية ، كما هو مبين أدناه الدرجة الحالية المشاركات نقاط االاعجاب عضو جديد 01 50 - 02 الأعضاء 100 10 03 عضو مميز 500 50 04 عضو فضي 1000 100 05 عضو ذهبي 1000 500 06عضو ماسي 1000 1000 عند وصول نقاط الاعجاب الي 1000 للعضو الماسي سيتم الترقية الي مجموعة أعضاء الشرف و التي تضم أيضا المكرمين من ممن لهم مساهمات خارج الموقع و ستتغير الدرجة بالترقية للأعلى بعد اول مشاركة للعضو ، و لن يتم تخفيض أي درجات حالية. و تبقي مجموعات الخبراء و فريق الموقع و فريق الموقع السابق و أعضاء الشرف دون تعديل كما سيتم قريباً بإذن الله استحداث درجة خبير مخضرم لتكون الترقية التالية لدرجة خبير و سيتم الاعلان قريبا عن موعد تطبيقها و آلية التطبيق

السلام عليكم ورحمة الله نعم اخى الكريم يمكنك اضافة عشرات الشيك بوكس الاخرى

السلام عليكم ورحمة الله انظر الى هذا الملف ربما يكون هذا مطلبك ملف توضيح.xlsm

السلام عليكم ورحمة الله استخدم هذا الكود فى اليوزرفورم الثانى Private Sub CommandButton1_Click() UserForm1.TextBox1 = "" Dim ChekCapn As String, Data As String Dim ChekBx As Control For Each ChekBx In Me.Controls If TypeName(ChekBx) = "CheckBox" Then ChekCapn = ChekBx.Caption If ChekBx.Value = True Then Data = Data & "," & ChekCapn End If End If Next UserForm1.TextBox1.Value = Data Unload Me End Sub

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

تمام شكراً جداً

متشكر جزيلا اخى على مجهودك معى بارك الله فيك

هل الويندوز لديك 64 bit

شريف سوفت طالما انك لم تقدم اى ملف او قاعدة بيانات لكى تتمكن الأساتذة من مساعدتك ... فيمكنك الإستعانة بهذه الفيديوهات ستفيدك فى طلبك , فكما تعلم جيداً ان المنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة https://www.youtube.com/watch?v=XnrVixuEKrQ وهذا فيديو اخر

اكتبها بهذا الشكل ---------> =Sum([price])

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

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

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

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

وعليكم السلام اخى @at_aziz اتفضل ان شاء الله يكون ما طلبت بالتوفيق azizk.rar

اي خدمة ميهمكش ان شاء الله لو محتاج اي حاجة متترددش اطلب المنتدي مليان ناس زي الفل

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

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

السلام عليكم اخي sabry fahmy كدة انت مش عايز تعديل انت عايز قاعدة علي بعضها عموما ماشي الحال مفيش مشكلة عملت لك قاعدة كاملة شوف ايه اللي ناقص ( الخانة بتاعة نسبة الاجور معرفتش دي هتبقي ايه عملتها رقم لغاية ما توضح ) الرجاء ارسال صورة سليمة للشهادة يعني مفيهاش اعوجاج علشان لما نحط علي اساسها البيانات متبقاش طالعة ونازلة الشهادة اللي انا عاملها في التقرير اعتبرها لاغية كل الهدف منها اني اجرب عليها الاستعلام علشان المعاينة والطباعة للسجل الحالي هيحل محلها التخطيط اللي هاخده من الصورة السليمة اللي هتبعتها ان شاء الله 121.mdb

السلام عليكم في مكتبتي برنامج مكتبة مدرسية احترافي من عملي سأبحث عنه .. فقط احتاج لبعض الوقت اتفرغ لأجلس اما الحاسوب

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

أخي الكريم لاحظ الصورة ..... تجد فيه الفرز حسب الفرز الموجود في النموذج بالتوفيق .....

الحمد لله انك وجدت الخطأ استاذى العزيز 😀 وجزاك الله خيرا على مشاركتك لنا الموضوع الذى يشير الى الحل 💐 وفقك الله لما يحبه ويرضاه

السلام عليكم ورحمة الله وبركاته جزا الله أخوتي وأساتذتي الكرام كل خير أحسن الله اليكما لقد وجدت الحل والحمد لله - كنت أكتب الاستعلام بطريقة خاطئة أضفت علامة أقتباس زائدة بدون قصد (دا الأكسس دا المعاملة معاه صعبة قوي حرف واحد ما بيعدهوش دا ايه معاملة يهود 😀).

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

عدد الساعات.xlsx

السلام عليكم اولا أخي أنصحك أن تبتعد عن الأسماء المحجوزة بالأكسس لا تستعملها لتسمية عناصر التحكم أو الحقول بالجداول وهكذا فهذا سيؤدي بك للوقوع بمشاكل عند استخدام الأكواد فمثلا كلمة (Width) كلمة محجوزة ثانيا- هذا محاولة للحل لعلها تفيدك جرب هذا test.accdb

عمل ممتاز استاذ محمد

بعد اذن اخى عبد الفتاح ,على الرغم اننا نبهنا كثيراً انه لابد من رفع ملف مدعوم بشرح كافى عن المطلوب فى كل مشاركة وذلك تجنباً لعدم اهدار وقت الأساتذة ولأنه لا يمكن العمل على التخمين ..فيمكنك استخدام هذا الكود Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnameList)) Then If (UBound(fnameList) > 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count) Next wbkSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub كما يمكنك الإستعانة بهذا الفيديو COMBINE Multiple Excel WORKBOOKS into One | ExcelJunction.com كما يمكنك استخدام هذا الكود أيضاً Sub ConslidateWorkbooks() 'Created by Sumit Bansal from https://trumpexcel.com Dim FolderPath As String Dim Filename As String Dim Sheet As Worksheet Application.ScreenUpdating = False FolderPath = Environ("userprofile") & "DesktopTest" Filename = Dir(FolderPath & "*.xls*") Do While Filename <> "" Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop Application.ScreenUpdating = True End Sub وهذا أيضاً كود ثالث لطلبك Sub mergeFiles() 'Merges all files in a folder to a main file. 'Define variables: Dim numberOfFilesChosen, i As Integer Dim tempFileDialog As fileDialog Dim mainWorkbook, sourceWorkbook As Workbook Dim tempWorkSheet As Worksheet Set mainWorkbook = Application.ActiveWorkbook Set tempFileDialog = Application.fileDialog(msoFileDialogFilePicker) 'Allow the user to select multiple workbooks tempFileDialog.AllowMultiSelect = True numberOfFilesChosen = tempFileDialog.Show 'Loop through all selected workbooks For i = 1 To tempFileDialog.SelectedItems.Count 'Open each workbook Workbooks.Open tempFileDialog.SelectedItems(i) Set sourceWorkbook = ActiveWorkbook 'Copy each worksheet to the end of the main workbook For Each tempWorkSheet In sourceWorkbook.Worksheets tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.Count) Next tempWorkSheet 'Close the source workbook sourceWorkbook.Close Next i End Sub وفى هذا الرابط ايضاً عدة أكواد ستفيدك فى طلبك How to combine multiple workbooks into one master workbook in Excel?

وعليكم السلام ورحمة الله وبركاته بارك الله فيك

الحمدلله ( كل الملفات التي أحتاجها في ملف واحد )!! ممكن تشرح هذه المعلومة لوسمحت ، نحب نستفيد منها لاحظت ان حجم برنامجك كبير ، ولما تصفحته ، لقيت ان عندك صورة كثيرة ، ولكنك عامل ربط في الكود لكل صورة ، بس الغلطة اللي وقعت فيها هي انك في اعدادات الصورة في النموذج/التقرير جعلتها مضمنه ، فارتفع حجم قاعدة البيانات اذا تسمح تعمل هذه الخطوات ، وان شاء الله العشاء بيكون على حسابك ، لأن حجم قاعدة البيانات اصبح عندي 20% (19MB) من حجمه الاصل اعمل نسخة من برنامجك ، واشتغل على النسخة. اتبع خطوات الصورة: . 1. اعمل وحدة نمطية جديدة ، والصق فيها هذا الكود: Function Convert_img_Embed_to_Link() Dim frm As AccessObject Dim rpt As AccessObject Dim dbs As Object Dim frm1 As Access.Form Dim rpt1 As Access.Report Dim ctl As Access.Control Set dbs = Application.CurrentProject For Each frm In dbs.AllForms Debug.Print frm.name DoCmd.OpenForm frm.name, acDesign Set frm1 = Forms(frm.name) For Each ctl In frm1.Controls If ctl.ControlType = acImage Then ctl.PictureType = 1 End If Next ctl DoCmd.Close acForm, frm.name, acSaveYes Next frm For Each rpt In dbs.AllReports Debug.Print rpt.name DoCmd.OpenReport rpt.name, acDesign Set rpt1 = Reports(rpt.name) For Each ctl In rpt1.Controls If ctl.ControlType = acImage Then ctl.PictureType = 1 End If Next ctl DoCmd.Close acReport, rpt.name, acSaveYes Next rpt End Function . 2. افتح النافذة الصغيرة اللي في اسفل الكود ، واللي ممكن تعطينا نتائج مباشرة من الكود ، 3. تأكد ان لغة الكيبورد بالانجليزي ، ثم اطبع: علامة استفهام ، واسم الوحدة النمطية (بدون مسافة وبدون اقواس) ، مثل الصورة ، وهو امر بأن يشغل الوحدة النمطية: ?Convert_img_Embed_to_Link . الكود سيفتح كل نموذج وكل تقرير (وسترى هذا في نافذة البرنامج) في وضع التصميم ، ثم سيبحث عن كل كائن صورة ، ويغيره من "مضمن الى ربط" ، ويحفظ النموذج/التقرير ، ورجاء لا تعمل شئ الى ان ينتهي كل شئ ، وذلك عندما يتم اغلاق جميع النماذج والتقارير المفتوحة عندها اعمل ضغط واصلاح ، وشوف حجم قاعدة بياناتك الجديدة جعفر

أخي office 2003 بخصوص السؤال الأول و هو تجميد الصفوف و الاعمدة مع بعبضها البعض قم أولا بإلغاء التجميد الموجود و من ثم ضع المؤشر في الخلية F2 و من ثم اختر الامر تجميد الأجزاء و سيقوم تلقائياً بتجميد الصفوف و الأعمدة ********* أما طلبك الثاني انت تتحدث عن drop - down list و ما تفضلت به هو مجرد إظهار لمحتويات الخلايا التي تعلو هذه الخلية و بمجرد كتابة اول حرف من اي اسم سيقوم الاكسيل باظهاره القيمة المشابهة لها من الخلايا التي تعلوها و لكن يوجد خاصة في الاكسيل تعرف ب " التحقق من صحة " Validation و من خلالها يمكن عمل قائمة منسدلة تبقى محتفظة بقيمة بداخلها تقوم انت بتعرفيها كما في الملف المرفق في صفحة Validation في الخلية الصفراء ستجد قائمة منسدلة تقرأ في العمود d و الصفحة الثانية Drop في الخلية الصفراء اكتب حرف c او d او a و سيظهر عندك الحرف مع ارقام و هي من ضمن اسطر تم اخفائها أتمنى أن تكون قد اتضحت لك الصورة Example.rar