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

فورم كيفية انشاء مربع بحث مثل جوجل بالاكسل الفيديو

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

بعد اذن اخى عبد الفتاح ,على الرغم اننا نبهنا كثيراً انه لابد من رفع ملف مدعوم بشرح كافى عن المطلوب فى كل مشاركة وذلك تجنباً لعدم اهدار وقت الأساتذة ولأنه لا يمكن العمل على التخمين ..فيمكنك استخدام هذا الكود 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?

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

ههههههه ياباشا أنا مليش دعوة ، هما اللي طلبوا مساعدة الكمبيوتر من خصائص Group رقم القطاع اختر كما بالصورة : توزيع 24.accdb

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

هو انت الى كنت عامل البرنامج .... كفشناك ..... ههههههههه .....

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

تسلم يا غالي ممكن بعد التجربة زي ما تحب ، أنت فقط تحتاج تجربة الكود أنت قدر المستطاع أعطيت عنوان داخل الكود للأجزاء الرئيسية توضح عمل الكود والفكرة لتسهيل التعديل طالما سيكون القطاع يساوي عدد مقاعد القاعة مقسوما على 2 فليس هناك صعوبة الصعوبة كانت في عدد مقاعد القاعة لو 17 مقعد عدد فردي لأن مش هنعرف ناخد نصف مقعد يجلس عليه طالب والنصف الآخر بقاعة أخرى لذلك عدلت لك في اللوب Loop الخاص بالترقيم ليراعي وجود رقم فردي For i = 1 To Labs ' المرور على السجلات داخل الجدول لترقيم القاعات حسب عددها section_no = 1 Lab_no = Lab_no + 1 For h = 1 To 2 ' المرور على صفوف كل قاعة For j = 1 To Me.Rows_count / 2 '.......... عدد قطاعين بكل قاعة Call R("R") ' دالة اجرائية لتسجيل رقم القاعة ورقم القطاع If Not rsTbl.EOF Then rsTbl.MoveNext Next section_no = 2 If Val(Me.Rows_count) Mod 2 <> 0 Then '........ زيادة صف للعدد الفردي Call R("R") If Not rsTbl.EOF Then rsTbl.MoveNext End If Next If Val(Me.Rows_count) Mod 2 <> 0 And Not rsTbl.EOF Then rsTbl.MovePrevious Next وبالنسبة للتقرير قدر الامكان هذا تنسيقه ويناسب عدد مقاعد قليل داخل القاعة حتى تكون بصفحة واحدة للطباعة توزيع 23.accdb

وعليكم السلام -ولإثراء الموضوع وبعد اذن الأساتذة يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP($A2&"المجموع",القوائم!$A$2:$D$132,4,0),"") جمع القوائم تلقائيا1.xlsx

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

تم حل المشكلة dATA_Ameel _(1).xlsm

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

كده هتكون بداية الفترة Date()-120 ونهايتها Date() (Day([StartDate])=26 Or Day([StartDate])=1) And >=Date()-120 And <=Date()

وعليكم السلام-يمكنك استخدام هذه المعادلة =INDEX($P$6:$P$20,MATCH("مؤكد",$F$7:$F$21,0)) الحالات المؤكدة1.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة =COUNTIF($C$7:$C$12,E$6) تواتي 221.xlsx

أنا قلت أبعد الطلبة عن بعض علشان الوقاية من فيروس كورونا على العموم تنسيق التقرير تقدر تغيره لأي عدد من الأعمدة بس تراعي عرض الصفحة مع عرض كل عمود تقسيم والهوامش علشان يتم عرض المحتوى كاملا توزيع 25.accdb

العفو، تم تحديث المرفق ، وشكرا على التنبيه 🙂

ربنا يحفظك يارب ويديك الصحة والعافية ويبارك لك في اسرتك الكريمة استاذ سليم هذا الموضوع رائع انا متابعه واستفدت منه ربنا يبارك لحضرتك والله

هذا الملف يعمل ممتاز ممتاز ممتاز تصميم المبدع استاذ سليم الممتاز ربنا يكرمك مثل ما اكرمتنى وما خيبت املى انت رائع اشكرك اشكرك اشكرك اشكرك اختك

انقلي بياناتك الى هذا الملف ( وقومي بتجربته) أو جربي ان تعدلي بعض البيانات فية وتري النتيجة اذا كانت كلها ممتازة استعمليه مكان الملف الذي تستعملينه صف الاسماء في الشيت Laho يأخذ ما يوجد في الشيت Menho أوتوماتيكياً لذلك لا يمكن كتابة شيء في صف الاسماء في شيت Laho تفادياً للخطأ Last_file.xlsm

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

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

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

سلام ورحمة الله تفضل اخي جمع القوائم تلقائيا01 .xlsx

جرب هذا الملف (من الارشيف القديم) يمكنك اضافة قدر ما تشاء من البيانات Working time.xlsx

ضعي مكان 1 2 3 4.... الأسماء الجديدة للأعمدة (بالضبط دون مسافات زائدة او ناقصة أو تغيير بالخط Capital & Small)

تفضل أخي @abdalrazag هذا البرنامج بعد الترتيب والتعديل .. T1.accdb

السلام عليكم الخلل في عملك هو أن النطاق Plan_Material (النطاق B12:O23 وليس B13:O23) لم تدرجه كجدول بيانات حتى تصبح عناوين هذا الجدول (رؤوس الجدول من الصف 12) حقولا (ويتم ذلك بالطريقة التالية : تحديد النطاق B12:O23 ثم اختيار الأمر إدراج أو Insertion ثم اختيار الأمر جدول أو Table مع تسميته Plan_Material)... وهذا ما فعلتُه في الملف المرفق... بن علية حاجي Budget 2.xlsx

اهلا بك فى المنتدى , يمكنك هذا بالدالة المعرفة ConvertDate ... بوضع هذه المعادلة بالخلية D5 سحباً للأسفل وهذا هو كود الدالة Option Explicit Function ConvertDate(ByRef StringIn As String) As String Dim savedCal As Integer Dim d As Date Dim s As String savedCal = Calendar Calendar = 1 d = CDate(StringIn) Calendar = 0 s = CStr(d) ConvertDate = Format(s, "dd/mm/yyyy") Calendar = savedCal End Function المصنف1.xlsm

لا تكتبي مجموع بل Sum او اي شيء احر باللغة الاجنبية Summation مثلاً على كل حال كتابة اي شيء لا يكون تاريخاً يتم تجاهله

لا أرى اي كلمة محموع في minho و لا في laho

تم معالحة الأمر dATA_Ameel _Updated.xlsm

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

هناك 4 طرق توزيع للطلاب بالمرفق : 1 - "صف مختلف + مادة مختلفة" 2 - "نفس الصف أو صف مختلف + نفس المادة أو مادة مختلفة" 3 - "صف مختلف + نفس المادة" 4 - "صف مختلف وتجاهل المادة" وهذا يحافظ على الترنيب طبقاً لرقم الجلوس والصف إن كانوا في ترتيب تسلسلي ولكن جميعها يستند لتوزيع المقعد الأول في كامل القاعات أولاً وهذا هو الهيكل الرئيسي أو العقل المدبر للكود الذي يمكن العمل عليه لاجقاً للتعديل و جاري تعديل الكود للاختصار وحذف الزيادات ، واذا أتيح الوقت فهناك طريقة اضافية للتوزيع المتزامن للمقعدين معاً بكل صف بالقاعة 'Start ..................... إنشاء الجدول المؤقت من جديد ........................ Call Clear_data_first 'start.......................................------ توزيع الحقل الأول بعدد نصف الصفوف ---- الطلاب ................. DoCmd.RunSQL "INSERT INTO Table1 ( Seat1_class, Seat1_Exam, Seat1_name, Jloss1_no ) " _ & "SELECT Qry1.Safe, Qry1.[N-EXSAM], Qry1.St_name, Qry1.Jloss_no FROM" _ & "(SELECT TOP 50 PERCENT Jloss_tpl.Jloss_no, * FROM Jloss_tpl " _ & "ORDER BY Jloss_no , Jloss_tpl.Safe, Jloss_tpl.[N-EXSAM], Jloss_tpl.St_name ) Qry1;" DoCmd.RunSQL GetSQL.update_action 'start......................................... توزيع الحقل الثاني ............................................. Set rsQry = CurrentDb.OpenRecordset(GetSQL.select_action) Set rsTbl = CurrentDb.OpenRecordset(GetSQL.select_tbl1) 'start......................................... المرور على سجلات الجدول المؤقت لإضافة الطالب بالمقعد الثاني ............................................. For h = 0 To rsTbl.RecordCount Set rsQry = CurrentDb.OpenRecordset(GetSQL.select_action) rsQry.MoveFirst 'start......................................... المرور على سجلات الاستعلام من الجدول الاساسي لاختيار طالب حسب الشروط للمقعد الثاني ............................................. For i = 0 To rsQry.RecordCount 'start................... دالة اختيار طالب واحد عشوائي لأول ثلاثة اختيارات من الكومبوبكس Set rsQry = CurrentDb.OpenRecordset("SELECT top 1 Jloss_no , * FROM Jloss_tpl WHERE (((Jloss_tpl.Action) = False) ) ORDER BY rnd(Jloss_no),Safe;") s = Nz(DLookup("Jloss2_no", "Table1", "[Jloss2_no] = " & rsQry!Jloss_no & ""), 0) ' شرط عدم اختيار مسبق y = (Val(rsTbl!Seat1_Exam) <> Val(rsQry("N-EXSAM"))) ' شرط اختلاف المادة x = (Val(rsTbl!Seat1_Exam) = Val(rsQry("N-EXSAM"))) ' شرط تشابه المادة 'start................................. اختيارات طريقة التوزيع من النموذج Select Case Combo_choice Case 1 If IsNull(rsTbl!Seat2_name) And rsTbl!Seat1_class <> rsQry!Safe And s = 0 And y = True Then: Call dist Case 2 If IsNull(rsTbl!Seat2_name) And s = 0 Then: Call dist Case 3 If IsNull(rsTbl!Seat2_name) And rsTbl!Seat1_class <> rsQry!Safe And s = 0 And x = True Then: Call dist Case 4 'start................... إعادة اختيار بدون العشوائية للمحافظة على ترتيب رقم الجلوس للاختيار الرابع من الكومبوبكس Set rsQry = CurrentDb.OpenRecordset("SELECT Jloss_no , * FROM Jloss_tpl WHERE (((Jloss_tpl.Action) = False) ) ORDER BY Jloss_no;") s = Nz(DLookup("Jloss2_no", "Table1", "[Jloss2_no] = " & rsQry!Jloss_no & ""), 0) If IsNull(rsTbl!Seat2_name) And rsTbl!Seat1_class <> rsQry!Safe And s = 0 Then: Call dist End Select Next ' السجل التالي للاستعلام If rsTbl.EOF Then: rsTbl.MoveFirst: Else: rsTbl.MoveNext Next ' السجل التالي الجدول توزيع 20.accdb

تم التعديل (بالمعادلات صعبة قوي) From_To Rows_Columns_Adv.xlsm

ممكن تلافي مشكلة الأعمدة بأدراج الأرقام غلى شكل X/y حيث تدل X على الصفحة "Minho" و y تدل على الصفخة "Laho" و في حال كان الرقم منفرداً يكون في الصفحة "Minho" تعديل الكود Option Explicit Sub Extact_Data_By_Columns() Rem Created By Salim Hasbaya on 29/5/2020 Application.ScreenUpdating = False Dim M As Worksheet, L As Worksheet, R As Worksheet Dim Rg_M As Range, Rg_L As Range Dim I%, Lr_M%, Lr_L%, RO%, it Dim St_Date As Date, End_Date As Date Dim arr, My_sum#, My_count% Set M = Sheets("Minho"): Set L = Sheets("Laho") Set R = Sheets("Repport") Lr_M = M.Cells(Rows.Count, 1).End(3).Row Lr_L = L.Cells(Rows.Count, 1).End(3).Row R.Range("A2").Resize(26, 3).ClearContents If Not IsDate(R.Range("D2")) Or Not IsDate(R.Range("D2")) Then _ MsgBox "Type Please Correct Dates In The Cells D2 and E2 ": GoTo Leave_Me_Olone St_Date = Application.Min(R.Range("D2:E2")) End_Date = Application.Max(R.Range("D2:E2")) ReDim arr(1 To 26) For I = 1 To 26 arr(I) = I Next '++++++++++++++++++++++++++++++++++++++++ With M .Range("A2:AC" & Lr_M).Interior.ColorIndex = xlNone For I = 2 To Lr_M If .Cells(I, 1) <= End_Date _ And .Cells(I, 1) >= St_Date Then .Cells(I, 1).Resize(, 29).Interior.ColorIndex = 6 End If Next I End With ''++++++++++++++++++++++++++++++++ With L .Range("A2:AC" & Lr_L).Interior.ColorIndex = xlNone For I = 2 To Lr_L If .Cells(I, 1) <= End_Date _ And .Cells(I, 1) >= St_Date Then .Cells(I, 1).Resize(, 29).Interior.ColorIndex = 6 End If Next I End With RO = 2 '++++++++++++++++++++++++++++++++++++++++ With M For Each it In arr My_count = Application.CountA(.Cells(2, it + 3).Resize(Lr_M - 1)) If My_count = 0 Then GoTo NexT_it For I = 2 To Lr_M If .Cells(I, it + 3).Interior.ColorIndex = 6 Then My_sum = My_sum + _ IIf(IsNumeric(.Cells(I, it + 3)), .Cells(I, it + 3), 0) If .Cells(I, it + 3) <> vbNullString Then .Cells(I, it + 3).Interior.ColorIndex = 35 End If End If Next I R.Cells(RO, 1) = it: R.Cells(RO, 2) = _ IIf(My_sum <> 0, My_sum, vbNullString) My_sum = 0: RO = RO + 1 NexT_it: Next it End With '++++++++++++++++++++++++++++++++++++ RO = 2: My_sum = 0 With L For Each it In arr My_count = Application.CountA(.Cells(2, it + 3).Resize(Lr_L - 1)) If My_count = 0 Then GoTo NexT_itm For I = 2 To Lr_L If .Cells(I, it + 3).Interior.ColorIndex = 6 Then My_sum = My_sum + _ IIf(IsNumeric(.Cells(I, it + 3)), .Cells(I, it + 3), 0) If .Cells(I, it + 3) <> vbNullString Then .Cells(I, it + 3).Interior.ColorIndex = 35 End If End If Next I R.Cells(RO, 1) = _ IIf(R.Cells(RO, 1) = vbNullString, it, it & " \ " & R.Cells(RO, 1)) R.Cells(RO, 3) = _ IIf(My_sum <> 0, My_sum, vbNullString) My_sum = 0: RO = RO + 1 NexT_itm: Next it End With '++++++++++++++++++++++++++++++++++++ Leave_Me_Olone: Application.ScreenUpdating = True End Sub

وعليكم السلام 🙂 حيا الله اخوي محمد ، صار لنا زمن ما شفناك 🙂 نعمل الترقيم في النموذج : يمكن ترك الكائنات في مكانها في تصميم التقرير ، ولكن: نغير اسماء الحقول ، حتى يسهل علينا ، مثل lbl_11 و lbl_12 و lbl_13 للسطر الاول ، وطبعا نفس الترتيب للأسطر الاخرى ، نخفي الحقول الغير مطلوبة (في الكود) ، والحقول المطلوبة ، نعطيها موقع (ابعاد) حقول السطر الاول ، Top و Left (في الكود) ، ونعمل الكود في حدث "عند تنسيق" القسم Report Header : . Option Compare Database Option Explicit Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer) 'خطوة مؤقته لإخفاء جميع الكائنات ، وتحريكهم الى السطر العلوي 'Line 1 Me.lbl_11.Visible = False Me.lbl_12.Visible = False Me.lbl_13.Visible = False 'Line 2 Me.lbl_21.Visible = False 'اخفاء Me.lbl_21.Left = Me.lbl_11.Left 'مكانه من يسار التقرير Me.lbl_21.Top = Me.lbl_11.Top 'مكانه من علو التقرير Me.lbl_22.Visible = False Me.lbl_22.Left = Me.lbl_11.Left Me.lbl_22.Top = Me.lbl_11.Top Me.lbl_23.Visible = False Me.lbl_23.Left = Me.lbl_11.Left Me.lbl_23.Top = Me.lbl_11.Top 'Line 3 Me.lbl_31.Visible = False Me.lbl_31.Left = Me.lbl_11.Left Me.lbl_31.Top = Me.lbl_11.Top Me.lbl_32.Visible = False Me.lbl_32.Left = Me.lbl_11.Left Me.lbl_32.Top = Me.lbl_11.Top Me.lbl_33.Visible = False Me.lbl_33.Left = Me.lbl_11.Left Me.lbl_33.Top = Me.lbl_11.Top '----------------------------- Dim L L = Forms!Form1!lst_Line 'نأخذ رقم السطر من النموذج ونختصره في المتغير L '----------------------------- 'اظهار السطر الصحيح ، وتحريكه الى مربعات السطر الاول Me("lbl_" & L & "1").Visible = True Me("lbl_" & L & "2").Visible = True Me("lbl_" & L & "3").Visible = True Me("lbl_" & L & "1").Left = Me.lbl_11.Left Me("lbl_" & L & "1").Top = Me.lbl_11.Top Me("lbl_" & L & "2").Left = Me.lbl_12.Left Me("lbl_" & L & "2").Top = Me.lbl_12.Top Me("lbl_" & L & "3").Left = Me.lbl_13.Left Me("lbl_" & L & "3").Top = Me.lbl_13.Top 'تغيير ارتفاع القسم في التقرير Me.ReportHeader.Height = Me.Label11.Height * 2 End Sub . والنتيجة : . جعفر 1228.R_MultiHead.accdb.zip

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

جرب هذا الملف تم حماية الصفحة لعدم العيث بالمعادلات عن طريق الخطا (بدون باسورد) dATA_Ameel.xlsm

وعليكم السلام ع حسب ما فهمت فى حدث عند الصفحه ضع الكود التالى Private Sub Report_Page() MsgBox "هذا التقرير يتكون من عدد " & Pages & " صفحه " End Sub بالتوفيق

وعليكم السلام 🙂 الموقع الذي ارفقت انت رابطه يقول ، بأنه يجب ان يكون عندك ادوبي اكروبات الكامل ، وليس برنامج القراءة : في الرابط التالي ستجد البرنامج المطلوب وطريقة العمل: جعفر

بعد اذن استاذ سليم ولإثراء الموضوع Tawati2.xlsm

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

وعليكم السلام-يمكنك فقط استخدام هذه المعادلة =IFERROR(VLOOKUP(G3,$A$3:$C$200,3),"") قائمة تسديد 1TEST.xlsx

اغلق قاعدة البيانات من الجهاز( الخادم ) الذي توجد عليه افتح المجلد الذي توجد فيه القاعدة إذا رأيت ملف مشابه لأسم قاعدة البيانات فهذايعني ان القاعدة مفتوحة من احد الاجهزة المتصله لكن لايمكن الجزم بأنه يتم حاليا ادخال سجلات او التعديل عليها لعل المستخدم مثلا فتح ملف الواجهة وتركه مفتوح ::بالتوفيق::

أجل خذ هذه الفائدة.. ترتيب المعرف على هذه الوضعية يعطي سجلا فريدا على مستوى الشبكة؛ بمعنى إذا أردت أن تحصل على سجل فريد في بيئة مستخدمين متعددة على مستوى الشبكة فيمكنك وضع المعرف على هذه وضعية Replication ID .. تعطي هذه الوظعية مصفوفة بيانات يطلق عليها GUID. وبناءً عليه لا ينبغي على مطوري قواعد البيانات القلق بشأن تطوير معرف سجلات فريدة في بيئة شبكة متعددي المستخدمين حتى في بيئة أكسس!

أهلا بالاستاذ @عبد الله قدور أرجو أن تفيدني بسبب ضبط حقل المعرف على هذا النوع من البيانات وكيفية التعامل الجداول المرتبطة معه! لأنه في حد علمي لا أعلم أحدا تكلم عن فائدة ضبط المعرف على هذا النوع من البيانات والفائدة منه... أما عن سؤالك فإن استخدام هذا الضبط في النموذج يعيد بيانات مبهمة! ويعود السبب في ذلك إلى أن البيانات العائدة من الحقل في النموذج هي من نوع البيانات Byte.. والمعروف عن هذا النوع من البيانات يعيد مصفوفة بيانات بطول البيانات المدخلة.. ولكي تستخدم هذه البيانات يجب أخراجها من المصفوفة أولا.. وحتى لا أشغل تفكيرك بكيفية ذلك! فإن أكسس وفر دالة تقوم بهذا العمل نيابة عنك وهي StringFromGUID ولكي نستخدمها في الدالات المجمعة نتبع الطريقة التالية Private Sub CMD_TEST_Click() X = DLookup("ID&CHR(13)&NAME", "TBL01", "ID=" & StringFromGUID(Me.ID)) MsgBox X End Sub لكن إن طلبت الاختصار! يمكنك استخدام الطريقة التالية على سبيل المثال Private Sub CBO_FIND_AfterUpdate() Dim RS As DAO.Recordset Set RS = Me.RecordsetClone RS.FindFirst "Mid(ID, 2, 8) ='" & Me.CBO_FIND & "'" If RS.NoMatch Then Exit Sub Me.Bookmark = RS.Bookmark End Sub أرجو ملاحظة الجانب الأيسر في مجال البحث للفائدة: هناك دالة أخرى بعكس السابقة أعلاه وهي GUIDFromString أرجو أن تقرأ عنهما في ملف التعليمات! إليك هذا المثال:REPLICATION ID(GUID).MDB

تفضلوا إخوتي الكرام البرنامج الآن يعمل على صيغة accde و لا يفتح النموذج في وضع التصميم شريط طباعة accde.rar شريط طباعة.rar

السلام عليكم ورحمة الله وبركاته الموضوع هذا بدأ بسؤال الرابط التالي: http://www.officena.net/ib/topic/65783-البحث-عن-اي-جزء-من-الكلمة-عنوان-معدل/ ولكن لأني غيرت الكود وجعلته يبحث في اي عدد من الحقول في السجل ، لذا رأيت ان اجعل له موضوعا مستقلا يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل او جزء منها ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها. الشئ المهم في الكود هو طريقة إضافة حقول جديدة للبحث فيها: هذا اول حقل يتم البحث فيه fld = "[كلمات ارشادية]" لما نريد ان نضيف حقول إضافية للبحث فيها ، يجب ان يكون الكود كالتالي fld = fld & " & ' ' & " & "[موضوع الخطاب]" fld = fld & " & ' ' & " & "[my other field]" وكل ما عليك الآن هو ان تطبع وترى نتيجة بحثك: . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_Multiple_Fields_jj.mdb.zip