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

كلامك صحيح والسبب ان الرسالة داخل الحلقة التي تمر على حقول النموذج فاذا كان عدد الحقول الفارغة 1 تظهر رسالة واحد وان كان عدد الحقول الفارغة اكثر سوف تظهر بعدد الحقول الحقيقة انا لم احمل المثال ولكن كفكرة بسيطة ممكن نجرب اضافة متغيير بسيط رقمي ونستفيد من قيمة المتغيير الافتراضية "0" Dim x As Byte Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If Len(ctl.Value & "") = 0 Then x = 1 Cancel = True End If End If Next ctl If x <> 0 Then MsgBox "كمل شغلك :)" End If كما اشرت انا لم اجرب المثال ولكن منطقيا ستكون الاجابة صحيحة تحياتي

دكتور @الحلبي اسمح لنا ناخذ راحتنا شوي 🙂 كلنا نستعمل كود اخونا @ابوبسمله ، اللي اعاد ترويضه اخونا @Moosak ، واخونا @مبرمج متقاعد 🙂 طيب ايش رايكم في اخبارنا بجميع الحقول الفارغة ، وبرسالة واحدة : Option Compare Database Private Sub Form_BeforeUpdate(Cancel As Integer) Dim I_am_Empty As String, Set_Focus_On_Me As Control Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If Len(ctl.Value & "") = 0 Then I_am_Empty = I_am_Empty & vbCrLf & ctl.Name Set Set_Focus_On_Me = ctl End If End If Next ctl If Len(I_am_Empty & "") <> 0 Then Cancel = True MsgBox "رجاء تعبئة الحقول الفارغة التالية" & I_am_Empty Set_Focus_On_Me.SetFocus Set ctl = Nothing: Set Set_Focus_On_Me = Nothing Exit Sub End If End Sub . جعفر عدم الحفظ.zip

اهم شي كبسنا وجودك في الموضوع طيب لو اردنا العمل بدون تكرار الرسائل وبدون متغيير نضع Exit For عند اول مرور على حقل فارغ ويكون كود الاستاذ موسى Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If Len(ctl.Value & "") = 0 Then MsgBox "كمل شغلك :)" Cancel = True Exit For End If End If Next ctl تحياتي

السلام عليكم 🙂 وبتعديل على كود اخوي موسى : الرسالة تخبرك اي حقل فارغ ، تلغي عملية الحفظ ، ويكون التركيز على الحقل الفارغ : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If Len(ctl.Value & "") = 0 Then MsgBox "رجاء تعبئة الحقل الفارغ " & ctl.name Cancel = True ctl.setfocus exit for End If End If Next ctl End Sub . وانا كذلك مثل اخوي خالد ، لم اقم بتجربة الكود 🙂 جعفر

شكرا لك أخي أبو بسملة 🙂 وهذي إضافة بسيطة لنفس الكود في حال أردت ألا تلتغي البيانات .. وإنما يعطيك رسالة تنبيه لإكمال الحقول الناقصة 🙂 Private Sub Form_BeforeUpdate(Cancel As Integer) Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If Len(ctl.Value & "") = 0 Then MsgBox "كمل شغلك :)" Cancel = True End If End If Next ctl End Sub

السلام عليكم ورحمه الله وبركاته اتفضل يادكتور محمد @الحلبي ان شاء الله يكون ما تريد بالتوفيق عدم الحفظ.rar

ملاحظة عمي خالد : الكود للحبيب @ابوبسمله 🙂

الله .. الله .. ما أجمل هذي المدارسة بين الفطاحل 😄 وهذه إضافة من عندي 😁 يمكن الخروج من الكود أيضا بكتابة كلمة End فقط والتركيز على الحقل الفارغ ( لندمج الأفكار 😉 ) فيصبح الكود هكذا : Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If Len(ctl.Value & "") = 0 Then Cancel = True ctl.SetFocus MsgBox "رجاء تعبئة الحقل الفارغ " & ctl.name End End If End If Next ctl

وعليكم السلام ورحمة الله أهلا أ. @عبد الله قدور بالنسبة لي مع دوال التجميع أفضل دمج أعمدة البحث مع استعمال المعامل ()Like بالطريقة التالية Dim Result Result=DlookUP("[Your Field]","[Your Table],"[Field One]&[Field Two] Like '*" & [Text One]&[Text Two] & "*'") Or Result=DlookUP("[Your Field]","[Your Table],"[Field One]&[Field Two] Like '*" & [Your Text] & "*'") :: تستطيع التعويض عن جزء البيانات بعلامة النجمة أو علامة الاستفهام

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

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

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

السلام عليكم ورحمه الله وبركاته اتفضل اخى @husseinharby الترقيم للنموذج والرصيد السابق فالتقرير بالتوفيق yasser_10_1.rar

اخي هناك فكرة قد تم تناولها مع احد الاخوة سابقا في احد المواضيع ربما تسهل عليك عملية التلوين بما ان الكلمات و الحروف مكررة يمكنك استخدام كود ينوب عنك في هده المسالة فقط ادخل اوقم بنسخ الكلمة او الحرف المطلوب في الخلية (F2) بنفس الشكل المكتوب به مثال : ( فَبَشِّرْهُم) لا يمكن كتابتها (فبشرهم) وسوف يتم تلوين جميع الكلمات دفعة واحدة مع الاحتفاظ بالتنسيق ..كما يمكنك تعديل رقم اللون المطلوب داخل الكود للون المطلوب كما في الصورة تحت Sub ChangeColor2() 'البحث في عمود("a") Application.ScreenUpdating = False Dim Rng As Range Dim MH As String Dim MH2 As String Dim x As Long Dim m As Long Dim y As Long Dim xFNum As Integer Dim xArrFnd As Variant Dim xStr As String MH = Range("F2").Value If Len(MH) < 1 Then Exit Sub xArrFnd = Split(MH, ",") ''' قم بتحديد النطاق المطلوب '''''' Range("A1:A100000").Select For Each Rng In Selection With Rng For xFNum = 0 To UBound(xArrFnd) xStr = xArrFnd(xFNum) y = Len(xStr) m = UBound(Split(Rng.Value, xStr)) If m > 0 Then MH2 = "" For x = 0 To m - 1 MH2 = MH2 & Split(Rng.Value, xStr)(x) '3= اللون الاحمر 'قم باستبدال الرقم 3 برقم اللون المطلوب .Characters(Start:=Len(MH2) + 1, Length:=y).Font.ColorIndex = 3 MH2 = MH2 & xStr Next End If Next xFNum End With Next Rng Range("F2").Select Application.ScreenUpdating = True End Sub قائمة الالوان اختر اللون المناسب وقم باستبداله داخل الكود في حالة تعدر عليك الامر يمكنك رفع الملف للتعديل فسوف نكون سعداء بمساعدتك في هدا العمل الطيب (فخِدْمَةَ الْقُرْآنِ مِنْ خَيْرِ الْأَعْمَالِ وَأَشْرَفِهَا، وَأَعْظَمِ الْقُرُبَاتِ وَأَعْلَاهَا، فَهُوَ خَيْرُ دَارٍ، وَحَسَنَاتٌ جَارِيَةٌ لِصَاحِبِهِ، حَيًّا وَمَيِّتًا.) ووفقنا الله واياكم اخي لما يحب ويرضى 4.xlsm

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

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

وعليكم السلام ورحمة الله وبركاته 🙂 اولا خليني اوضح ، سجلات قاعدة البيانات مو مثل الاكسل ، تقدر تغير مكان الخليه بتحريكها من مكانها ، في قاعدة البيانات نستخدم الفرز كطريقة لتحديد مكان السجل (سطر السجل) بين السجلات. بالنسبة لطلبك ، 1. فالاسهل عمل حقل تسلسل ولنسميه Seq ، ونعمل تحديث لبيانات هذا الحقل ، ليتناسب مع الاسم الذي تم اختياره (طبعا هذا حسب اعتقادي بأنك لا تريد تكرار السجل) ، 2. ما فهمت قصدك بالبدء من السجل الثاني ، طيب وشو يكون في السجل الاول ؟ جعفر

مشاركة مع الاساتذه ممكن تقسيم الشرطين كل شرط في سطر Dim strWhere As String strWhere = "[Field1]='" & [tx1] & "'" strWhere = strWhere & " and [Field2]='" & [tx2] & "'" Me.tx2 = DLookup("[Your_Field]", "tbl", strWhere) واعتقد ان هذه الطريقة اكثر سهولة تحياتي

شكرا للجميع الحمد لله لقد توصلت الي الحل كشف ملاحظة 1.xlsx شكرا جزيلا اخي بن علية لم اري رد حضرتك .... وفعلا الحل تمام وحل رائع ... شكرا لحضرتك جزاك الله خير

السلام عليكم تم الاستغناء عن معادلات الصفيف كلها وتبديل معادلات العمود S بمعادلات عادية بحيث تقوم بما تريده في العمود S فقط بعد التغيير في القائمة المنسدلة في الخلية S3... هذا إن كنتُ قد فهمتُ منك المطلوب جيدا... إن كان غير ذلك فأرجو الشرح أكثر... كشف ملاحظة 1.xlsx

وعليكم السلام ورحمة الله ........... اخي عبدالله انظر الى هذه الاداة ....................

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @TQTHAMI ع ما فهمت جرب واخبرنا بالنتيجه بالتوفيق النسخ واللصق مثال - 1.rar

ضبط معي ي ابا بسمله الله يحفظك من كل شر

ان شاء الله نمشي خطوة خطوة حتى تكمل المطلوب نبدا أولا بالترحيل ثم الاستدعاء 2-(ماهو معيار البحث) بمعنى سوف يتم استدعاء البيانات برقم الفاتورة او الكود او...... 3- وعند الانتهاء نقوم بتصميم الفاتورة للطباعة وبالنسبة للفورم المضاف لم تذكر دوره في الملف المرفق Sub Tarhil() Dim DL1%, DL2%, DL3%, MH% Application.ScreenUpdating = False DL1 = Range("B65500").End(xlUp).Row - 1 With Sheets("اليومية العامه") DL2 = .Range("B65500").End(xlUp).Row + 1 DL3 = .Range("R65500").End(xlUp).Row + 1 MH = DL2 + DL1 - 9 .Range("F" & DL2 & ":K" & MH) = Range("B9:G" & DL1).Value .Range("B" & DL2 & ":B" & MH) = Range("D3") 'التاريخ .Range("C" & DL2 & ":C" & MH) = Range("D4") 'اسم الشركة .Range("D" & DL2 & ":D" & MH) = Range("D5") 'رقم الفاتورة .Range("E" & DL2 & ":E" & MH) = Range("D6") 'كود الفاتورة .Range("L" & DL2 & ":L" & MH) = Range("B3") 'اسم العميل .Range("M" & DL2 & ":M" & MH) = Range("B4") 'التيلفون' .Range("N" & DL2 & ":N" & MH) = Range("B5") 'العنوان .Range("O" & DL2 & ":O" & MH) = Range("B6") 'المحافظة .Range("P" & DL2 & ":P" & MH) = Range("F3") 'شركة الشحن .Range("Q" & DL2 & ":Q" & MH) = Range("F4") 'اسم المندوب .Range("R" & DL2 & ":R" & MH) = Range("F5") 'رقم التيلفون .Range("S" & DL3) = Range("F6") 'خدمة التوصيل End With Application.ScreenUpdating = True End Sub officena 1.xlsm

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

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

بارك الله فيك أستاذنا العزيز @ابوبسمله 🙂 فعلا كود رائع ويحل معضلة عويصة 😅 وأستأذنك في وضع الكود هنا ليسهل البحث عنه واستخدامه .. Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Form]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function

ارفقت لكم الملف TRANGEL.xlsm

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

وبعد بحث وعناء هنا وهناك يأتي ابو بسملة بمودل تحل لنا مشكلة عويصة ظلت معنا لسنين شكرا ياغالي

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

ي ابو بسلمه قل آمين الله انه يسعدك ويفرج همك هذا هو المطلوب الله يوفقك ي الأمير

السلام عليكم مشاركه مع اخوتى واساتذتى جزاهم الله عنا كل خير اتفضل اخى @أبو ماجد الغامدي لعل هذا ما تريد بالتوفيق compobox_1.rar

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

وعليكم السلام 🙂 نعم يمكن ، مثلا : 1. اعمل نموذج فيه البيانات التي تريد (يعني يعمل تصفية حسب اللي تكتبه في الحقل X) ، ولنسميه frm_1 ، واخذ في بالك يكون حجمه يتناسب مع المكان اللي تريده يظهر في النموذج الآخر ، 2. في النموذج الرئيسي ، في الحقل اللي تكتب فيه ، ولنسميه X ، في الحدث "عند التغيير" ، افتح النموذج frm_1 منبثق ، واستعمل الامر MoveSize لتجعله تحت الحقل X ، 3. وكلما كتبت شيء ، اعمل Requery للنموذج frm_1 ، 4. اعمل طريقة لإغلا ق النموذج frm_1 عند الانتهاء منه. 5. انا لن اقوم بهذا العمل 😁 جميع هذه الخطوات = عمل مربع التحرير والسرد ، فليش تقوم بهذا العمل من اول وجديد 🙂 اذا كنت تريد تصفية معينه ، فالمنتدى مليء بهذه المواضيع ، وكل اللي عليك عمله هو استعمال خاصية البحث في المنتدى 🙂 جعفر

الملف مش محمي الرسالة من مايكروسوفت اضضط كليك يمين علي الملف ...اتبع كما بالصورة

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Sub Copysh() Dim SourceSht As Worksheet Set SourceSht = Sheets("sheet1") Application.ScreenUpdating = False Set Closesh = Workbooks.Open(ThisWorkbook.Path & "\تسويات العهد.xlsm", Password:="123") SourceSht.Copy After:=Closesh.Sheets(Closesh.Sheets.Count) 'حدف الاشكال ActiveSheet.Shapes("copy").Delete ActiveSheet.Shapes("Rounded Rectangle 5").Delete ActiveSheet.Shapes("شكل بيضاوي 1").Delete ActiveSheet.Shapes("صورة 5").Delete Closesh.Close SaveChanges:=True Application.ScreenUpdating = True End Sub بنامج تسوية العهدة.xlsm تسويات العهد.xlsm

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

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي بالنسبة لطلبك اعتقد ان جواب استادنا الكبير بن علية حاجي يوفي بالغرض لاكن لاثراء الموضوع وتعميم الفائدة للجميع بالمعادلات يمكنك بهده الطريقة =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

وعليكم السلام ورحمة الله وبركاته * حل بالمعادلات: إذا فرضنا أن الخلية C1 تحوي كلمة ALI التي تبحث عنها... المعادلة تكون على الشكل التالي: =IF(COUNTIF($S$9:$S$25;"*"&$C$1&"*");"موجود";"غير موجود") * الحل نفسه بـ VBA : Sub Test() If Application.CountIf(Range("S9:S25"), "*" & [C1].Value & "*") <> 0 Then MsgBox "موجود" Else MsgBox "غير موجود" End If End Sub في انتظار حلول أخرى...

استخدم هذا الكود قبل تشغيل الاستعلام DoCmd.RunCommand acCmdSaveRecord

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

السلام عليكم ورحمة الله وبركاته مرحبا بكم اعزائي و ضيوفي الكرام في هذا المنتدى العظيم اليوم اقدم لكم ملف وبدون اطالة يقوم بضرب العدد اي ضعف العدد على سبيل المثال : 5*5=25 هذا هو غمل الملف. ضع القيمة على سبيل المثل 04 وعندها اضغط على الزر ايجاد ضعف النتيجة انتهى الشرح أخوكم في الله مناد سفيان الجزائر. ضرب القيمة.rar

الأخ الحبيب مستر محمد إليك الملف التالي فيه عدد 2 موديول كل موديول منفصل . وقمت بإضافة شيت أي ورقة عمل باسم Conditions ضع في العمود الأول الكلمة المراد التخلص منها ، والعمود الثاني للكلمة الجديدة .. لأي عدد من الكلمات .. يعني مش هتضطر تكتب كود لكل نوع سيارة ... فقط اكتب كل الكلمات التي تريد استبدالها .. ولو الحل عجبك متنساش تضغط أفضل إجابة . تقبل تحياتي Replacement Multiple Instances.rar

استخدم الدالة التالية اكتب مصدر الحقل المراد الترقيم فيه كما يلي =RowNum([Forms]![Data]) حيث data هو اسم النموذج ضع الدالة التالية في موديول جديد Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Forms]![theNameoftheForm]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function

اخوي ابو بسمله لو اضفت حقل المكان للإستعلام يتكرر الأسم فماهو الحل واذا الغيت حقل المكان يطلع 100% مثل ما سويته انت ولكن الرغبة ان يكون المكان من ضمن الحقول