اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

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

تم تعديل بواسطه طاهر الوليدي
  • Like 1
رابط هذا التعليق
شارك

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
  • Thanks 1
رابط هذا التعليق
شارك

  • 5 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information