تطبيق البحث بطريقة جوجل

[طاهر الوليدي]

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

م1-جعل التكست اللست مطاطي يطول ويقصر على قدر البيانات المبحثة بنفس جوجل .

2- التكست اللست  يختفي ويظهر عندما تقوم بالبحث فيه .

3- تنتقل البيانات من اللست الى تكست البحث بمجرد النقر عليها وتستقر في الجدول الحقل المخصص للاسم

4- التلوين على الاسم عند المرورعليه الى لون اخر

خطوات للوصول الى بحث جوجل.rar

تم تعديل يناير 25, 2018 بواسطه طاهر الوليدي

[طاهر الوليدي]

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

[محمود_سعيد]

عمل رائع جدا ومجهود مشكور جزاك الله خيرا

[محمد التميمي]

طريقة جميلة في البحث بارك الله لك بالخير

[ابوآمنة]

بدأت تظهر المواهب ماشاء الله تبارك الله بالمنتدى 

شكراً أخي طاهر

[bobe48000]

بارك الله فيك 

الا انني لم افهم ما دور الدالة english to arbic