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

والله ابطال بجد و الله فعلا عاجز عن شكركم .. أبو ياسين واخي شفان ....فعلا الصديق يظهر وقت الضيق

اتفضل Dim stDocName As String stDocName = "اسم التقرير " DoCmd.OpenReport stDocName, acPreview DoCmd.Close acForm, "اسم النموذج", acSaveYes

السلام عليكم ورحمة الله تعالى وبركاته أقدم لكم دالة تفقيط التاريخ لن أطيل عليكم الدالة في المرفق لا تنسونا من خالص دعائكم Function DateToLettre(Dat As Date) As String ' Created By Benkhalifa ' Djemoui Alger: 23/02/2018 Dim MyDays As Variant Dim MyMonths As Variant Dim MyChif As Variant Dim Cent As String Dim Mill As String Dim i, J As Byte: J = 0 '=============================================================================================================================== MyDays = Array("اليوم الأول", "اليوم الثاني", "اليوم الثالث", _ "اليوم الرابع", "اليوم الخامس", "اليوم السادس", _ "اليوم السابع", "اليوم الثامن", "اليوم التاسع", _ "اليوم العاشر", "اليوم الحادي عشر", "اليوم الثاني عشر", _ "ليوم الثالث عشر", "اليوم الرابع عشر", "اليوم الخامس عشر", _ "اليوم السادس عشر", "اليوم السابع عشر", "اليوم الثامن عشر", _ "اليوم التاسع عشر", "اليوم العشرون", "اليوم الواحد و العشرون", _ "اليوم الثاني و العشرون", "اليوم الثالث و العشرون", "اليوم الرابع و العشرون", _ "ليوم الخامس و العشرون", "اليوم السادس و العشرون", "اليوم السابع و العشرون", _ "اليوم الثامن و العشرون", "اليوم التاسع و العشرون", "اليوم الثلاثون", _ "اليوم الواحد و الثلاثون") '=============================================================================================================================== MyMonths = Array("شهر يناير", "شهر فبراير", "شهر مارس", _ "شهر أبريل", "شهر مايو", "شهر يونيو", _ "شهر يوليو", "شهر اغسطس", "شهر سبتمبر", _ "شهر أكتوبر", "شهر نوفمبر", "شهر ديسمبر") '=============================================================================================================================== MyChif = Array("صفر", "واحد", "إثنان", "ثلاث", "أربع", "خمس", "ست", "سبع", "ثمان", "تسع", _ "عشرة", "إحدى عشر", "إثنى عشر", "ثلاثة عشر", "أربعة عشر", "خمسة عشر", "ستة عشر", "سبعة عشر", "ثمانية عشر", _ "تسعة عشر", "عشرون", "واحد و عشرون", "إثنان و عشرون", "ثلاثة و عشرون", "أربعة و عشرون", "خمسة و عشرون", "ستة و عشرون", _ "سبعة و عشرون", "ثمانية و عشرون", "تسعة عشرون", "ثلاثون", "واحد و ثلاثون", "إثنان و ثلاثون", "ثلاثة و ثلاثون", "أربعة و ثلاثون", _ "خمسة و ثلاثون", "ستة و ثلاثون", "سبعة و ثلاثون", "ثمانية و ثلاثون", "تسعة و ثلاثون", "أربعون", _ "واحد و أربعون", "إثنان و أربعون", "ثلاثة و أربعون", "أربعة و أربعون", "خمسة و أربعون", "ستة و أربعون", _ "سبعة و أربعون", "ثمانية و أربعون", "تسعة و أربعون", "خمسون", "واحد و خمسون", "إثنان و خمسون", "ثلاثة و خمسون", "أربعة و خمسون", _ "خمسة و خمسون", "ستة و خمسون", "سبعة و خمسون", "ثمانية و خمسون", "تسعة و خمسون", "ستون", "واحد و ستون", _ "إثنان و ستون", "ثلاثة و ستون", "أربعة و ستون", "خمسة و ستون", "ستة ستون", _ "سبعة و ستون", "ثمانية و ستون", "تسعة و ستون", "سبعون", "واحد و سبعون", "إثنان و سبعون", "ثلاثة و سبعون", _ "أربع و سبعون", "خمس و سبعون", "ستة و سبعون", "سبعة و سبعون", "ثمانية و سبعون", "تسعة و سبعون", "ثمانون", "واحد و ثمانون", _ "إثنان و ثمانون", "ثلاث و ثمانون", "أربعة و ثمانون", "خمسة و ثمانون", "ستة و ثمانون", "سبعة و ثمانون", _ "ثمانية و ثمانون", "تسع و ثمانون", "تسعون", "واحد و تسعون", "إثنان و تسعون", "ثلاثة و تسعون", "أربعة و تسعون", _ "خمسة و تسعون", "تسعون", "سبعة و تسعون", "ثمانية و تسعون", "تسعة و تسعون", " مائة ") '=============================================================================================================================== Do While J < 2 i = Mid$(Year(Dat), J + 1, 4) '=============================================================================================================================== If Len(i) = 4 Then Select Case i Case 1 To 999: Mill = MyChif(i) Case 1000 To 9999: Select Case Int(i / 1000) Case 1: If Format(Mid$(i, 2, 4), "000") = "000" Then Mill = " ألف" Else: Mill = " ألف و " Case 2: If Format(Mid$(i, 2, 4), "000") = "000" Then Mill = " ألفان" Else Mill = " ألفان و " Case 3 To 10: If Format(Mid$(i, 2, 4), "000") = "000" Then Mill = MyChif(Int(i / 1000)) & " آلاف" Else If Int(i / 1000) = 8 Then Mill = MyChif(Int(i / 1000)) & "ية آلاف و " Else Mill = MyChif(Int(i / 1000)) & "ة آلاف و " End Select End Select End If '=============================================================================================================================== If Len(i) = 3 Then Select Case i Case 1 To 100: Cent = MyChif(i) Case 101 To 199: Cent = " مائة و " & MyChif(i Mod 100) Case 201 To 299: Cent = " مائتان و " & MyChif(i Mod 100) Case 300 To 999: Select Case (i Mod 100) Case 0: If Format(Mid$(i, 2, 4), "00") = "00" Then Cent = MyChif(Int(i / 100)) & " مائة " Else Cent = MyChif(Int(i / 100)) & " مائة و " Case 1 To 99: Cent = MyChif(Int(i / 100)) & "مائة و " & MyChif(i Mod 100) End Select End Select End If '=============================================================================================================================== J = J + 1 Loop '=============================================================================================================================== DateToLettre = MyDays(Day(Dat) - 1) & " من " & MyMonths(Month(Dat) - 1) & " عام " & Mill & Cent End Function منقول لنشر العلم جزى الله .. المحترم الخلوق بن خليفه الجموعي بكل خير دالة تفقيط التاريخ.rar

هذه محاولة متميزة من الاخوة المبرمجين المتميزين قام بعملية برمجة البحث عربي انجليزي تكتب حتى في حالة عدم التحويل اللغة يبحث بنفس طريقة جوجل المطلوب هو تطوير الفكرة بنفس الفورم ser م1-جعل التكست اللست مطاطي يطول ويقصر على قدر البيانات المبحثة بنفس جوجل . 2- التكست اللست يختفي ويظهر عندما تقوم بالبحث فيه . 3- تنتقل البيانات من اللست الى تكست البحث بمجرد النقر عليها وتستقر في الجدول الحقل المخصص للاسم 4- التلوين على الاسم عند المرورعليه الى لون اخر خطوات للوصول الى بحث جوجل.rar

واليك طريقة اخرى اذا تستخدم اصدار 2010 DoCmd.BrowseTo acBrowseToReport, "MyReport" حيث ان MyReport هو اسم التقرير

شاكرين ومقدرين جزاك الله خيرا هو المطلوب

ريما يكون هذا المطلوب 33 salim.xls

بارك الله فيك اخي وان شاء الله تجد من اهل الخبرة من يساعدك وهذا المنتدى من كان لديه علم فتاكد انه لن يبخل عليك

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

اشكر مشاركتك اخي ابو ياسين .. تحياتي لك .

اتفضل ان شاء الله ميه في المية Dim i, x As Integer x = Me.tr i = Me.T2 If i > x And Me.types = "سند صرف" Then MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ") Me.Undo Else

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

الان فهمتك بس للاسف لست خبرة الى هذة الدرجه لان اكسل يعتمد على خليا c1+c2 وهكذا ومن قال لا اعلم فقد افتى

الله يهدينا ويهديك قول امين انا عكست المسميات وانت لم تراجعني بارك الله فيك شوفها الان واعطيني خبر Dim x As Boolean x = Me.tr If Me.T2 > x And Me.types = "سند صرف" Then MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ") Me.Undo Else بدل trعملت t2 المعذرة لم ترد عليا هل هو المطلوب

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

هذا المطلوب جزاك الله الف الف الف خير واغناك الله من حيث لا تحتسب

يمكن ان يكون المطلوب Dates.xlsx

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

وإياكم أستاذ مجدي ، شكرًا لك.

ممكن ترفق نسخة مصغرة من قاعدة بياناتك الاصلية لكي نستخدم دي لوك اب معه و نشوف ما هو الاسباب و القي نظرتا الى هذا تم استخدام دي لوك اب في مربع نصي =DLookUp("[zname]";"qry";"[age]=" & [t]) IIF.rar

اتفضل اليك هذا استعلام باسك كويري 2 SELECT tp_natega.c_dept, tp_natega.dept, tp_natega.magmo, Count(tp_natega.magmo) AS CountOfmagmo, DCount("[sit_no]","tp_natega","[tp_natega]![magmo]>=" & [magmo] & "and [tp_natega]![c_dept]=" & [c_dept]) AS Expr1 FROM tp_natega GROUP BY tp_natega.c_dept, tp_natega.dept, tp_natega.magmo HAVING (((tp_natega.c_dept)=[ادخل کود الادارة])) ORDER BY tp_natega.magmo DESC; توزيع تكراري ادارات.rar

السلام عليكم أولا: في النموذج أنت لم تضع مصدر مربع النص حقل معين بل وضعت دالة تستند لقيمة أخرى ثانيا: في التقرير وضعت مصدر مربع النص الحقل stage و لما نرجع للجدول نجد أن هذا الحقل فارغ يجب عليك توحيد مصدر مربع النص لتحصل على نفس النتيجة

جرب هذا الكود ضعه في وحدة نمطية جديدة ثم قم باستدعائه في حدث التقرير في المكان الذي تريد ان يظهر فيه العلامة المائية اجعلها نقطة البداية لهذا الامر وانطلق ،،، تحياتي Call Watermark(Me) Public Function Watermark(rpt As Access.Report) Dim strMessage As String Dim lngHorSize As Long Dim lngVerSize As Long Debug.Print rpt.Name strMessage = "Alwazeer" With rpt 'Set scale to pixels, and set FontName and 'FontSize properties. .ScaleMode = 3 .FontName = "Courier" .FontSize = 48 .ForeColor = 12632256 ' Horizontal width. lngHorSize = .TextWidth(strMessage) ' Vertical height. lngVerSize = .TextHeight(strMessage) ' Calculate location of text to be displayed. .CurrentX = (.ScaleWidth / 2) - (lngHorSize / 2) .CurrentY = (.ScaleHeight / 2) - (lngVerSize / 2) ' Print text on Report object. .Print strMessage End With End Function

اتفضل تم العمل هذه الوحدة النمطية Option Compare Database Option Explicit Public Function GetQablaRimoz(SText) Dim i Dim Text Dim Nu As Integer For i = 1 To Len(SText) If (Mid(SText, i, 1)) = ":" Then Nu = Nu + 1 Text = Text & Mid(SText, i, 1) End If Next Dim LArray() As String LArray = Split(SText, ":") If Nu > 0 Then GetQablaRimoz = LArray(0) End If End Function Public Function GetBaadaRimoz(SText) Dim i Dim Text Dim Nu As Integer For i = 1 To Len(SText) If (Mid(SText, i, 1)) = ":" Then Nu = Nu + 1 Text = Text & Mid(SText, i, 1) End If Next Dim LArray() As String LArray = Split(SText, ":") If Right(SText, 1) <> "." Then If Nu = 0 Then GetBaadaRimoz = SText & " ." ElseIf Nu = 1 Then GetBaadaRimoz = LArray(1) & " ." ElseIf Nu = 2 Then GetBaadaRimoz = LArray(1) & LArray(2) & " ." ElseIf Nu = 3 Then GetBaadaRimoz = LArray(1) & LArray(2) & LArray(3) & " ." End If Else If Nu = 0 Then GetBaadaRimoz = SText ElseIf Nu = 1 Then GetBaadaRimoz = LArray(1) ElseIf Nu = 2 Then GetBaadaRimoz = LArray(1) & LArray(2) ElseIf Nu = 3 Then GetBaadaRimoz = LArray(1) & LArray(2) & LArray(3) End If End If End Function وهذه الاستعلامات التحديث Q1 UPDATE T3reeft SET T3reeft.AlT3reef = GetQablaRimoz([T3reeft]![T3reeftText]) WHERE (((T3reeft.AlT3reef) Is Null)); Q2 UPDATE T3reeft SET T3reeft.T3reeftText = GetBaadaRimoz([T3reeft]![T3reeftText]); قم بتشغيل استعلام الاول وبعدين الاستعلام الثاني اليك المرفق حذف البيانات المكررة.accdb

أخي العزيز اين حقل المادة في الجدول

قام الاستاذ @منتصر الانسي بكتابة النص بواسطة الكود شوف هذا هو الكود لكتابة ( قيد مقفل ) Public Sub RptLockedOpr(Rpt As Report) On Error Resume Next Dim RptWidth As Double Dim RptHight As Double Rpt.ScaleMode = 7 Rpt.DrawMode = 3 Rpt.DrawStyle = 0 Rpt.ForeColor = RGB(0, 0, 255) Rpt.DrawWidth = 10 RptWidth = (Rpt.ScaleWidth - 2) / 2 RptHight = Rpt.ScaleHeight / 2 Rpt.Line (RptWidth + 5.5, RptHight - 9)-(RptWidth + 6, RptHight - 9.5) Rpt.Line (RptWidth + 6, RptHight - 9.5)-(RptWidth + 9.5, RptHight - 6) Rpt.Line (RptWidth + 9.5, RptHight - 6)-(RptWidth + 3.5, RptHight - 0) Rpt.Line (RptWidth + 3.5, RptHight - 0)-(RptWidth + 2, RptHight - 1.5) Rpt.Line (RptWidth + 2, RptHight - 1.5)-(RptWidth + 3.5, RptHight - 3) Rpt.Line (RptWidth + 3.5, RptHight - 3)-(RptWidth + 3.25, RptHight - 3.25) Rpt.Line (RptWidth + 2.75, RptHight - 3.25)-(RptWidth + 1.5, RptHight - 2) Rpt.Line (RptWidth + 1.5, RptHight - 2)-(RptWidth + 1.5, RptHight - 3) Rpt.Line (RptWidth + 1.5, RptHight - 3)-(RptWidth + 2.5, RptHight - 4) Rpt.Line (RptWidth + 3.5, RptHight - 4)-(RptWidth + 4, RptHight - 3.5) Rpt.Line (RptWidth + 4, RptHight - 3.5)-(RptWidth + 5, RptHight - 4.5) Rpt.Line (RptWidth + 5, RptHight - 4.5)-(RptWidth + 4.5, RptHight - 5) Rpt.Line (RptWidth + 4.5, RptHight - 5)-(RptWidth + 4.5, RptHight - 6) Rpt.Line (RptWidth + 4.5, RptHight - 6)-(RptWidth + 5.5, RptHight - 5) Rpt.Line (RptWidth + 5.5, RptHight - 5)-(RptWidth + 7.5, RptHight - 7) Rpt.Line (RptWidth + 7.5, RptHight - 7)-(RptWidth + 7, RptHight - 7.5) Rpt.Line (RptWidth + 7, RptHight - 7.5)-(RptWidth + 6, RptHight - 6.5) Rpt.Line (RptWidth + 6, RptHight - 6.5)-(RptWidth + 5.5, RptHight - 7) Rpt.Line (RptWidth + 6, RptHight - 8.5)-(RptWidth + 6.5, RptHight - 8) Rpt.Line (RptWidth + 6.5, RptHight - 8)-(RptWidth + 6, RptHight - 7.5) Rpt.Line (RptWidth - 0, RptHight - 1)-(RptWidth + 0.5, RptHight - 1.5) Rpt.Line (RptWidth + 0.5, RptHight - 1.5)-(RptWidth + 3, RptHight + 1) Rpt.Line (RptWidth + 3, RptHight + 1)-(RptWidth - 3.5, RptHight + 7.5) Rpt.Line (RptWidth - 4, RptHight + 8)-(RptWidth - 8, RptHight + 4) Rpt.Line (RptWidth - 8, RptHight + 4)-(RptWidth - 8, RptHight + 3) Rpt.Line (RptWidth - 8, RptHight + 3)-(RptWidth - 5, RptHight + 6) Rpt.Line (RptWidth - 5, RptHight + 6)-(RptWidth - 3.5, RptHight + 4.5) Rpt.Line (RptWidth - 3.5, RptHight + 4.5)-(RptWidth - 4, RptHight + 4) Rpt.Line (RptWidth - 4, RptHight + 4)-(RptWidth - 5, RptHight + 5) Rpt.Line (RptWidth - 5, RptHight + 5)-(RptWidth - 5.5, RptHight + 4.5) Rpt.Line (RptWidth + 0.5, RptHight - 0.5)-(RptWidth + 1, RptHight + 0) Rpt.Line (RptWidth + 1, RptHight + 0)-(RptWidth + 0.5, RptHight + 0.5) Rpt.Line (RptWidth - 5.5, RptHight + 2.5)-(RptWidth - 5, RptHight + 2) Rpt.Line (RptWidth - 5, RptHight + 2)-(RptWidth - 3, RptHight + 4) Rpt.Line (RptWidth - 3, RptHight + 4)-(RptWidth - 1.5, RptHight + 2.5) Rpt.Line (RptWidth - 1.5, RptHight + 2.5)-(RptWidth - 2, RptHight + 2) Rpt.Line (RptWidth - 2, RptHight + 2)-(RptWidth - 3, RptHight + 3) Rpt.Line (RptWidth - 3, RptHight + 3)-(RptWidth - 3.5, RptHight + 2.5) Rpt.Line (RptWidth - 3.5, RptHight + 0.5)-(RptWidth - 3, RptHight + 0) Rpt.Line (RptWidth - 3, RptHight + 0)-(RptWidth - 1, RptHight + 2) Rpt.Line (RptWidth - 1, RptHight + 2)-(RptWidth - 0, RptHight + 1) Rpt.Line (RptWidth - 3, RptHight + 1)-(RptWidth - 2.5, RptHight + 1.5) Rpt.Line (RptWidth - 2.5, RptHight + 1.5)-(RptWidth - 3, RptHight + 2) Rpt.Line (RptWidth - 5, RptHight + 3)-(RptWidth - 4.5, RptHight + 3.5) Rpt.Line (RptWidth - 4.5, RptHight + 3.5)-(RptWidth - 5, RptHight + 4) Rpt.Circle ((RptWidth + 6.5), (RptHight - 8)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth + 6.5), (RptHight - 8)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth + 3), (RptHight - 3)), 0.35, , 0.8, 2.35 Rpt.Circle ((RptWidth + 3), (RptHight - 3.5)), 0.7, , 0.8, 2.35 Rpt.Circle ((RptWidth + 1), (RptHight + 0)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth + 1), (RptHight + 0)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth - 2.5), (RptHight + 1.5)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth - 2.5), (RptHight + 1.5)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth - 4.5), (RptHight + 3.5)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth - 4.5), (RptHight + 3.5)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth - 5), (RptHight + 8)), 1, , 3.5, 6.28318530718 Rpt.Circle ((RptWidth - 4.5), (RptHight + 8.5)), 1.4, , 3, 0.8 Rpt.Circle ((RptWidth + 5.5), (RptHight - 9.6)), 0.35 Rpt.Circle ((RptWidth + 5), (RptHight - 9.1)), 0.35 Rpt.Circle ((RptWidth - 3.5), (RptHight - 0.1)), 0.35 Rpt.Circle ((RptWidth - 4), (RptHight + 0.4)), 0.35 Rpt.Circle ((RptWidth - 5.7), (RptHight + 2.1)), 0.35 Rpt.Circle ((RptWidth + 7), (RptHight - 2.5)), 0.35 Rpt.Circle ((RptWidth + 6.5), (RptHight - 2)), 0.35 End Sub

Sub FindTextInDatabase() strSearchText = "find this text" Dim varTableDef As TableDef, varTableName As String, varFieldObj As Field, varFieldName As String, varFieldType As Integer Dim varCN As ADODB.Connection, varRS As ADODB.Recordset Dim strSearchText As String, strSearchClause As String 'Loop through every table For Each varTableDef In Application.CurrentDb.TableDefs varTableName = varTableDef.Name 'Loop through every field in the table For Each varFieldObj In varTableDef.Fields varFieldType = varFieldObj.Type 'If not a system table and if a memo or text field then run query to find text If Left(varTableName, 4) <> "MSys" And Left(varTableName, 4) <> "usys" And Left(varTableName, 1) <> "~" And (varFieldType = dbMemo Or varFieldType = dbText) Then varFieldName = varFieldObj.Name varFieldRefID = varTableDef.Fields(0).Name Set varCN = CurrentProject.Connection Set varRS = CreateObject("ADODB.Recordset") varRS.CursorLocation = adUseClient 'adUserServer would be faster, but need RecordCount. could use adUserServer and SELECT Count(ID) From MyTable to get count too varRS.CursorType = adOpenForwardOnly varRS.LockType = adLockReadOnly varOkay = varRS.RecordCount > 0 If varOkay Then vSQL = "SELECT [" & varFieldRefID & "], [" & varFieldName & "] FROM [" & varTableName & "] " & strSearchClause varRS.Open vSQL, varCN 'Do something here to add it to GridView or DataTable or Repeater Control to display results to user on seperate page(like google) varRS.Close Set varRS = Nothing End If End If Next Next End Sub