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

وهذا كود لفتح التقرير على صفحة معينة: Private Sub Report_Open(Cancel As Integer) PageNo = 5 'required page If PageNo > 1 Then String_ = "{PGDN " & PageNo - 1 & "}" mySendKeys String_, True End If End If End Sub

رحم الله والديك .. أزلت عنا مشكلة عاشت معنا عشرات السنين. لو تفتح موضوع خاص بهذا الحل ليكون سهل الوصول له. تفاديا لتكرار هذه السطور يفضل تحويلها إلى إجراء يستدعى كما الإجراء الأصل كالتالي: Sub mySendKeys(String_ As String, Optional Wait As Boolean = False) Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys String_, Wait Set WshShell = Nothing End Sub وتستدعى كالتالي: mySendKeys "{End}", True

وعليكم السلام اخي احمد 🙂 بداً اردد قول اخي موسى ، ونقطة وانتهى السطر 🙂 الاخوة عندهم "اقتراحات" وانت غير مُلزم حتى بالرد/النظر فيها ، فلا تزعل 🙂 ولتوضيح الكلام عن الريبون/القائمة ، ان الطريقة المتبعة للبرامج وخصوصا برامج الاوفيس من الاصدار 2007 ، هو الريبون بدلا عن القائمة ، ولكن هذا ليس معناه ان عندك اسبابك في استخدام هذه الطريقة بدلا عن تلك 🙂 جعفر

وهذه طرق أخرى مشاركة مع أخي محمد 🙂 '(1) strPath = "C:\Program Files (x86)\adobe\photoshop.exe" Shell "explorer.exe" & " " & strPath, vbNormalFocus --------------------------------------------------------------------- '(2) sFilePath = "C:\Program Files (x86)\adobe\photoshop.exe" CreateObject("Shell.Application").Namespace(0).ParseName(sFilePath).InvokeVerb "Open"

اخي العزيز محمد لن تحتاج الى تغير حجم الايفونات لانه يوجد تقريبا كل الاحجام انظر مثلا لهذه الصورة https://iconarchive.com/show/ecommerce-business-icons-by-designcontest/shopping-icon.html نعم الموقع فيه الكثير من الايقونات ويوجد خانة للبحث ايضا. ولك بالمثل اخي الكريم ورحم الله والديك في الدنيا والاخرة. تحياتي لشخصك الكريم

وعليكم السلام 🙂 بحثت ووجدت هذا الكود DoCmd.OpenReport "rpt_SalesReportBO_Ar", acViewPreview 'goto last page Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{End}", True جعفر

تم بحمد الله ايجاد حل لمشكلة إجراء SendKeys ومشكلته المعضلة مع تعطيل مفتاح NUMLOCK للوحة المفاتيح. وذلك بفضل شيخ المنتدى جعفر @jjafferr مشكورا حيث استطاع إيجاد شفرة بديلة للدالة الأصل للـ vba. رجوت من زميلي فتح موضوع باسمه لهذا الموضوع المهم جدا برأيي ولكنه تأخر في الاستجابة وربما لم يرى فيه قدر الأهمية التي أراها أنا. على كل فليسمح لي على نشره تحت اسمي. الموضوع على الوصلة الآتية: فتح اخر صفحة في التقرير

وهذي لها حل بدون ما تعمل تقرير ثاني أخي علي 😉 كتبت معيار البحث في الاستعلام بهذي الطريقة : Like "*" & Nz([Forms]![نموذج1]![txt];"*") & "*" بمعنى : أنه يحضر السجلات التي بها كلمة البحث .. وإذا مربع البحث فاضي ( يحط مكانه * ) ويجيب كل السجلات .. Search in MultiValue Feild.rar

الموضوع الذي أشار له أخي محمد احمد لطفى يقوم بحذف الجداول المرتبطة بشكل كامل .. ولمزيد فائدة .. هذا الكود يقوم بإلغاء ارتباط الجداول ( بدون حذفها من البرنامج ) : Public Function DeleteLinks() As Boolean On Error GoTo Err_Handler Dim dbs As DAO.Database Dim lng As Long Set dbs = CurrentDb With dbs.TableDefs For lng = .Count - 1 To 0 Step -1 If (.Item(lng).Attributes And dbAttachedTable) <> 0 Then .Delete .Item(lng).Name End If Next lng End With DeleteLinks = True Exit_Handler: On Error Resume Next Set dbs = Nothing Exit Function Err_Handler: MsgBox Err.Description, vbExclamation, "Error No: " & Err.Number Resume Exit_Handler End Function 🙂

وعليكم السلام ورحمة الله وبركاته أخي ahmedsaadzeed 🙂 ننتظر إبداعاتك أخي العزيز .. أعرض الموضوع كما تحب .. وكما تراه مناسبا .. ولا نستغني عن أفكاركم الرائعة 👍🏼 😉🌹

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي ...قد تم اضافة جميع الاكواد الى الملف المرفق Sub AutoF_Data() Dim c As Integer Dim MH As String Dim ws1 As Worksheet, ws2 As Worksheet Dim Y As ListObject, Y1 As ListObject, Y2 As ListObject Dim Lastrow As Long Lastrow = Feuil1.Range("H" & Rows.Count).End(xlUp).Row + 1 'خلية شرط معيار الفلترة MH = Sheets("Sheet1").Range("C1").Value If Len(Range("C1").Value) = 0 Then MsgBox "المرجوا ادخال معيار الفلترة" Exit Sub End If 'افراغ النطاق قبل الترحيل Range("H1:K" & Lastrow).Clear 'جدول البيانات Set ws1 = Sheets("Sheet1") 'مكان وضع البيانات المفلترة Set ws2 = Sheets("sheet1") 'في حالة الرغبة في اضافة شيت جديد وترحيل البيانات اليه 'Set ws2 = Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)) 'نسخ الى شيت موجود سابقا 'Set ws2 = Sheets("اسم الشيت") ''''''''''''''الجدول 1 Set Y = ws1.ListObjects(1) Application.ScreenUpdating = False 'تحديد عمود معيار الفلترة Y.Range.AutoFilter Field:=2, Criteria1:=MH Y.Range.SpecialCells(xlCellTypeVisible).Copy 'تحديد موضع اللصق ws2.Cells(3, 8).PasteSpecial xlValues Application.CutCopyMode = False '''''''''''''''الجدول 2 Set Y = ws1.ListObjects(3) Y.Range.AutoFilter Field:=2, Criteria1:=MH Y.Range.SpecialCells(xlCellTypeVisible).Copy ws2.Cells(12, 8).PasteSpecial xlValues Application.CutCopyMode = False '''''''''''''''الجدول 3''''''''''''''''''''''' Set Y = ws1.ListObjects(2) Y.Range.AutoFilter Field:=2, Criteria1:=MH Y.Range.SpecialCells(xlCellTypeVisible).Copy ws2.Cells(21, 8).PasteSpecial xlValues Application.CutCopyMode = False '''''''''''''''نسخ رؤؤس الجداول''''''''''''''''' Set Y1 = ws2.ListObjects.Add(SourceType:=xlSrcRange, Source:=ws2.Cells(3, 8).CurrentRegion, xlListObjectHasHeaders:=xlYes) Set Y1 = ws2.ListObjects.Add(SourceType:=xlSrcRange, Source:=ws2.Cells(12, 8).CurrentRegion, xlListObjectHasHeaders:=xlYes) Set Y1 = ws2.ListObjects.Add(SourceType:=xlSrcRange, Source:=ws2.Cells(21, 8).CurrentRegion, xlListObjectHasHeaders:=xlYes) Feuil1.Activate ActiveSheet.ListObjects("Tableau3").Range.AutoFilter Field:=2 ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=2 ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2 'تنسيقات الجداول Call MH3 Application.ScreenUpdating = True End Sub بالتوفيق تصفية في شيت واحد.xlsm

وعليكم السلام ورحمة الله وبركاته تم عمل المطلوب في الملف المرفق... اسم الخلية.xlsm

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

فورم بحث عن اسماء الله الحسنى ووضع البيانات فى تكست بوكس صورة للفورم الفيديو الملف 2085155775_.rar

بسم الله الرحمن الرحمن الرحيم الدرس الثاني لليوزفورم التفاعلي تعال نفكر مع بعض خارج المألوف والمعقول بمعني ايه اي حد بفكر يعمل فورم يسهل استخدام البيانات بقعد يفكر في شكل الفورم وتصميمه وتركيب الاكواد وما الي ذلك في موضوعات تناولت الفورم المرن او حسب مايكون اسمه فورم بيركب علي ورقة العمل وتضبط شغلك عليه لو فكرنا بطريقة مختلغة برمجية خارج حدود التصميم والاكواد والوقت والمجهود طيب الفكرة هنا ايه ...........!!! فورم يصنع لك الفورم يلي انت عاوزه بالالوان والاعمدة والشكل نفس فكرة مواقع التصميم والبلوجر يلي بتعطيك template قالب جاهز وتعدل عليه ندخل في الموضوع النهاردة موضوعنا فورم تفاعلي يصنع لك فورم خدمي نضيف ورقة عمل جديد من خلال التبويب Insert Sheet نضيف عدد الاعمدة يلي انت عاوزها في قاعدة بياناتك من خلال Enter No of columan مثال اضافة ورقة عمل جديدة باسم Officana عدد الاعمدة 5 مثلا (Sno-Name-username-password-Contact) اقوم بادخال اسماء الاعمدة ثم Add من خلال الفورم هاتقدر تعدل المسيات تضيف تحذف كما تشاء بعد ما تنتهي من الاعداد للتصميم لقاعدة بيانات كل يلي عليك تختار الشيت تدخل طريق العرض من خلال عدد الاعمد مثلا 3 وتضغط openForm وشوف النتيجة وهنا هتلاقي وظايف البحث والتعديل والحذف كما اخترت طريقة العرض 3 طيب لو غيرنا طريق العرض 2 لاحظ تغير الفورم معاك لتغير اللون اضغط علي Color هاسيبك تجرب بنفسك وتشوف النتيجة اتمني من الله اكون قدرت اوصلك المعلومة وافيدك الملف بالمرفقات Advance Data Entry Software Officana.xlsm الدرس القادم الفورم التفاعلي المتقدم عن نقاط البيع ان شاء الله برنامج POS لادارة نقاط البيع مع فاتورة ضريبية

اولا :::::::::::: تم حلها ..... انظر يتم انشاء مجلد بجوار البرنامج باسم شهادات وبداخلها تقارير الطلاب حسب رقم الملف ......... كنترول.accdb

السلام عليكم ورحمة الله تنويه: المعادلة التي وضعتها بالأعلى (في ردي السابق) تبحث عن الكلمة حتى وإن كانت داخل نص طويل... بالتوفيق..

عملت لك استعلام بدون استخدام دالة DLoockup ولي ملاحظات: - لا تستخدم حقل مذكرة إلا للنصوص أطول من 255 حرف. حقل رقم التسجيل إما تجعله رقمي نوع Long أو نصي مع تحديد طوله، يعني إذا طول رقم التسجيل 10 فليكون طول الحقل 10 فقط. موفق. test 003_02.mdb

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي بالنسبة لطلبك اعتقد ان جواب استادنا الكبير بن علية حاجي يوفي بالغرض لاكن لاثراء الموضوع وتعميم الفائدة للجميع بالمعادلات يمكنك بهده الطريقة =SI(ESTNA(EQUIV("ALI";$S$9:$S$25;0));"غير موجود";"موجود") او =SI(ESTNA(RECHERCHEV("ALI";$S$9:$S$25;1;FAUX));"غير موجود";"موجود") او =SI(ESTNA(EQUIV(A9;$S$9:$S$25;0));"غير موجود";"موجود") ملاحظة: المعادلات تمت كتابتها على اوفيس فرنسي .كما سبق الدكر اتجنب اعادة صيغتها تفاديا للاخطاء .يمكنك تحميل الملف من المرفقات سيتم ترجمتها تلقائيا على جهازك اما بالنسبة للاكواد هناك عدة طرق منها لنفترض انك ترغب ظهور النتيجة في الخلية ("A5") Sub test1() Dim code As String Dim Trouve As Range With Sheets("Sheet1") Set Trouve = .Range("S:S").Find(what:="ALI", LookIn:=xlValues, lookat:=xlWhole) If Trouve Is Nothing Then Range("A5") = " غير موجود" Else Range("A5") = "موجود" End If End With End Sub وبهده الطريقة ادا كانت لك رغبة بالبحث بقيمة خلية معينة ولنفترض انها M4 Sub test2() Dim code As String Dim Trouve As Range With Sheets("Sheet1") ' تحديد العمود ورقم الخلية Set Trouve = .Range("S:S").Find(what:=Range("M4"), LookIn:=xlValues, lookat:=xlWhole) If Trouve Is Nothing Then 'M6 ظهور التنيجة في الخلية Range("M6") = " غير موجود" Else 'في حالة عدم العثور على القيمة Range("M6") = "موجود" End If ''''''''''''''''''''''''''''''''''''''''''' Sub test4() Dim MH As Range Set MH = Range("S9:S25").Find(What:=Range("M4").Value, LookIn:=xlValues, LookAt:=xlWhole) If Not MH Is Nothing Then Range("M6").Value = "موجود" Else Range("M6").Value = " غير موجود" MsgBox " غير موجود" End If End Sub End With End Sub اما في حالة الرغبة في البحث وتنفيد نفس الامر على عدة قيم في نطاق معين يمكنك بهده الطريقة Sub test3() Dim X As Variant Dim Rng As Range 'تحديد نطاق القيم المبحوث عنها ' مثال من الصف 9 الى 13 For i = 9 To 13 'تحديد رقم العمود X = Cells(i, 11) 'تحديد نطاق القيم المبحوث عنها With Sheets("sheet1").Range("S9:S25") Set Rng = .Find(what:=X, After:=.Cells(.Cells.Count), _ LookIn:=xlValues, lookat:=xlWhole, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not Rng Is Nothing Then 'في حالة العثور على القيمة Cells(i, 10).Value = "موجود" Else 'في حالة عدم العثور على القيمة Cells(i, 10).Value = "غير موجود" End If End With Next i End Sub قد تم اضافة الاكواد والمعادلات للملف المرفق بالتوفيق........... التحقق من وجود قيمة معينة.xlsm

إذا أردته في حقل نوعه تاريخ فلابد من إضافة اليوم ، فقط عليك جعل اليوم 1 أو أعتقد في حالة أضافة التاريخ بتنسيق سنة وشهر Format([Date],"yyyy/mm") فالأكسس سوف يجعل اليوم 1 بشكل ذاتي ، أما طريقتك فيناسبها حقل من نوع نصي.

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

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

السلام عليكم الريبون الموضوع بالمثال اعتقد أنة اداه جيدة للأسباب الآتية 1-للتحكم فى كافة الفورم عن طريق الضغط على الايكونات المصممة 2-وكما يوجد بة ميزة دبوس اخر الشريط تمكنك من طرى الشريط إلى اعلى أو ارجاع إلى وضعة مرة أخرى 3-يعطيك ميزة توفير مساحة عمل أسفل الشريط لتظهر بها الفورم والتقارير هو ليس بهذا السوء وتغيير لون شريط الريبون متوقف على تعديل الإعدادات الخاصة بكل ويندوز تستطيع التغير كيفما تشاء وهناك icon open folder تستطيع ايجاد كافة الصور والمستندات التى تم تسجيل المسار لها يمكنك نسخ كافة الصور والمستندات المسار مسجل بشكل تلقائي بداخل الجدول أسفل الصورة هذا بعض الشروحات الملف وسوف يتضح الشرح بالنموذج القادم لماذا تم الاعتماد على الريبون

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

رجاء قراءة الموضوع التالي جعفر

جرب الآن أبو ماجد 🙂 compoboxMoosak.zip

وعفوا ، رجاء تخبرنا كيف تريد النتائج تكون ، ولو تعملها على ملف اكسل ، او اكتبها لنا هنا

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

تفضل Shell ("C:\Program Files (x86)\adobe\photoshop.exe") فقط غير مسار البرنامج

حاول وضع هدا الكود في حدث الشيت ..... سيتم تغيير تنسيق الخلايا في عمود التاريخ تلقائيا بعد جلب البيانات يمكنك تعديل الكود على حسب النطاق الموجود عندك في الملف الرئيسي Private Sub Worksheet_selectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A10:A1000")) Is Nothing Then Dim lastRow As Long lastRow = Cells.Find("*", [A9], , , xlByRows, xlPrevious).Row Range("A10:A1000" & lastRow).NumberFormat = "dd-mm-yyyy" Range("G2:G4").NumberFormat = "dd-mm-yyyy" End If End Sub وهدا مثال على ملفك لتغيير تنسيق الخلايا بعد جلبها بالمعادلات من شيت اخر بتنسيقات مختلفة. وفلترة التواريخ بدون مشاكل بالتوفيق اظهار نطاق محدد.xlsm

تفضل جرب اخي Public Sub Filter() Dim rng1 As Long, rng2 As Long rng1 = Range("G2").Value rng2 = Range("G4").Value Range("A9:A1000").AutoFilter Field:=1, _ Criteria1:=">=" & rng1, _ Operator:=xlAnd, _ Criteria2:="<=" & rng2 End Sub اظهار نطاق محدد.xlsm

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

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات والنطاقات بالتسمية... استعلام.xlsm - ماكرو.xlsm

السلام عليكم ورحمة الله محاولة متواضعة في المرفقات... تم إضافة نطاق بالتسمية Rng في ملف "تقارير.xlsb" للنطاق المراد نسخه في ملف "الخزينة.xlsb". الخزينة.xlsb تقارير.xlsb

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

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

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

السلام عليكم ورحمة الله تعالى وبركاته بعد إذن الأستاذ الكبير بن علية حاجي تعديل بسيط على الملف بإضافة التقويم لجميع خلايا عمود التاريخ ربما يفيدك وتقويم آخر مستقل لخلية تاريخ تقديم الطلب . Private Sub Worksheet_selectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B17:B28")) Is Nothing Then Dim UnJour As Date Application.EnableEvents = False Cancel = True UnJour = FormCal.Calendrier If UnJour <> 0 Then Target = Format(UnJour, "mm/dd/yyyy") Else Target = "" End If Selection.Offset(0, 0).Select Application.EnableEvents = True End If Sub ShowCal() Dim myDate As Date myDate = CalendarForm.GetDate(FirstDayOfWeek:=Monday, SaturdayFontColor:=RGB(250, 0, 0), SundayFontColor:=RGB(250, 0, 0)) If myDate > 0 Then Range("M4").Value = myDate End Sub End Sub نموذج ساعات 3.xlsm

السلام عليكم تم استعمال أكواد تقوم بما تريد جلبته من النت (وليس لي فيها أي يد عدا بعض التعديلات الخفيفة لتعمل على ملفك)... ملاحظة: الملف يعمل في ويندوز 64 بت وإذا حدث فيه خطأ عند تنفيذه في جهازك فجرب أن تغير مكان العلامة ' بين السطرين (تحذفهما من السطرين الأخيرين -32 بت- وتضعهما في اآخرين -64 بت-) في الجزئية التالية من كود Module1: 'في حالة استعمال وينودوز 64 بت Private Declare PtrSafe Function GetDC& Lib "user32.dll" (ByVal hwnd&) Private Declare PtrSafe Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&) 'في حالة استعمال وينودوز 32 بت 'Private Declare Function GetDC& Lib "user32.dll" (ByVal hwnd&) 'Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&) وليس لي فكرة أخرى... نموذج ساعات1.xlsm

اخي الملف يشتغل عندي بدون مشاكل مع العلم اني اشتغل على نسخة اوفيس 2021 جرب الان او احد الاخوة يقوم بالتجربة ويوافينا بالنتيجة. اليك الملف بعد التعديل __احمد_mh - نسخة 3.xlsm

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

أخي تايجر .. 🙂 سأخبرك أحد أسرار الحصول على رد على استفساراتك في أسرع فوقت : 1- أن يكون السؤال واضح ومفهوم ومدعوم بالصور في حال صعوبة توضيح الشرح كتابة . 2- أن يكون الملف المرفق شبيه تماما بالنموذج الذي ستعمل عليه فعليا ( به جداول واستعلامات و نماذج .. حسب نوع السؤال ) .. وتوضح بالتفصيل أين علينا أن نتوجه عند فتح البرنامج . 3- أن يكون المرفق معبأ ببيانات واقعية يمكن التطبيق عليها .. ( الجداول الفارغة لا تساعد ) . تقبل تحياتي 🙂

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

وعليكم السلام-تفضل =IFERROR(INDEX($G:$G,MATCH($C3,$H:$H,0)),"لا يوجد") Book3.xlsx

يمكنك استخدام هذه المعادلة على الرغم انك لم توضح أين يتم وضع معادلة البحث ,, فقد تـــم عمل وتنظيم كل شيء ..فقد تم عمل قائمة منسدلة بكل أرقام السيارات ما عليك سوى إختيار السيارة المراد البحث عنها واترك الباقى على الإكسيل =LOOKUP(2,1/($B$2:$B$500=$N2),$G$2:$G$500) 1تموين سولار.xlsb

أحسنت أستاذ ماجد بارك الله فيك

وعليكم السلام لا يمكن استخدام معادلة VLOOKUP لطلبك, وذلك لعدم تنظيمك لجدول البيانات وعدم جعلك لإسم الشركة بعمود يسبق رقم الفاتورة وليس العكس ..ملحوظة :لابد من تطابق اسم الصفحة للإسم الموجود بالصفحة التى سيتم البحث بها ولكن يمكنك استخدام المعادلة التالية : =IFERROR(LOOKUP($C3,INDIRECT("'"&H$1&"'!$I$6:$I$61"),INDIRECT("'"&H$1&"'!$b$6:$B$61")),"") INVOICE COLLECT. TEST1.xlsx

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

احسنت وشرحك جميل مداخلتي من باب طرح حلول وافكار اخرى بالنسبة لاجبار المستخدم على ادخال ارقام في حقل نصي انت استخدمت قناع الادخال وهي فكرة جيدة وتؤدي المطلوب تماما مع ذالك بعض قدامى المبرمجين لا يستخدمون قناع الادخال ويفضلون ان يكون التقييد عن طريق الكود لذا ممكن كتابة الامر التالي ⬇️ بدلا من قناع الادخال If Not IsNumeric([tx]) Or Len([tx]) <> 10 Then MsgBox "هذا الحقل رقمي فقط وبعدد 10 ارقام" Me.tx = "" End If ايضا بالنسبة لاغلاق النموذج لا داعي لكتابة اسمه والافضل كتابة الامر على النحو التالي ⬇️ DoCmd.close acForm, Me.Name اخيرا ماذا لو كان رقم الهوية غير موجود ؟ سوف يفتح النموذج فارغ والاجراء الامثل ان يتم فحص الرقم اذا كان مسجل يفتح النموذج او يظهر رسالة بان السجل غير موجود ويوقف الاجراء وتوجد امثلة بالموقع تشرح ذلك وهنا نتوقف ونشير كما اعتدنا ان الامر يتحدث عن افكار اخرى فقط تحياتي

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