اداة بحث ثورية

محب العقيدة · ديسمبر 23, 2022

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

مثال ذلك

قمت بسؤالة عن كود لارسال تقرير من اكسيس الى تيليجرام اعطاني

طبعا ممكن ان تساله اذا واجهت مشاكل في الكود فيجيبك

تم تعديل ديسمبر 23, 2022 بواسطه محب العقيدة
-

**طاهر الوليدي** · ديسمبر 23, 2022

لوتكرمت ممكن المثال حق ارسال تقرير من الاكسس الى تلجرام

محب العقيدة · ديسمبر 23, 2022

انا بعيد عن الكمبيوتر

لكن اظن ان المرفق الذي سارفقه فيه نموذج فيه زر لارسال ملف pdf الى تبلبجرام طبعا انت يجب ان تخزن التقرير ك pdf #ثم ترسله الى تيليجرام

والزر الاخر لارسال صورة

تاكد من ذلك؟

accesssendtelegram.accdb

**Moosak** · ديسمبر 23, 2022

شكرا لك أخي محب العقيدة 🙂

فعلا موقع رهيييييييييييييييب جدا جدا ..

جربته وهذه بعض النتائج :

(1)-----------------------------------------------------------------------------

سألته أن يكتب لي كود يولد نص عشوائي مختلط حروف ورموز وأرقام ، فأعطاني هذا :

Function GenerateRandomString(Length As Integer) As String
    Dim i As Integer
    Dim RandomChar As String
    Dim RandomString As String
    
    Randomize
    
    For i = 1 To Length
        ' Generate a random number between 48 and 122 (ASCII values for 0-9, a-z, and A-Z)
        RandomChar = Chr(Int((122 - 48 + 1) * Rnd + 48))
        RandomString = RandomString & RandomChar
    Next i
    
    GenerateRandomString = RandomString
End Function

وتناديه هكذا :

Dim RandomString As String
RandomString = GenerateRandomString(8)

(2)-----------------------------------------------------------------------------

سألته أن يكتب لي كود يعطيني رقم عشوائي بين رقمين .. فأعطاني هذا :

RandomNumber = Int((UpperBound - LowerBound + 1) * Rnd + LowerBound)

أو

Dim RandomNumber As Integer
Randomize
RandomNumber = Int((10 - 1 + 1) * Rnd + 1)

(3)-----------------------------------------------------------------------------

سألته أن يكتب لي كود يقوم بتشفير النصوص وكود آخر لفك الشيفرة فأعطاني هذا :

اقتباس

To encrypt and decrypt text in Microsoft Access VBA, you can use the CryptoAPI function. The CryptoAPI function is a Windows function that allows you to perform encryption and decryption using the Cryptography API (CAPI).

Here is an example of how you can use the CryptoAPI function to encrypt and decrypt text in Microsoft Access VBA:

' Function to encrypt a string using the CryptoAPI
Function EncryptString(PlainText As String) As String
    Dim Data() As Byte
    Dim CipherText() As Byte
    Dim DataLen As Long
    Dim CipherTextLen As Long
    Dim hCryptProv As Long
    Dim hKey As Long
    Dim AlgID As Long
    
    ' Convert the plain text string to a byte array
    Data = StrConv(PlainText, vbFromUnicode)
    DataLen = UBound(Data) + 1
    
    ' Set the encryption algorithm and key size
    AlgID = CALG_RC4
    hKey = 0
    
    ' Get a handle to the default encryption provider
    If CryptAcquireContext(hCryptProv, vbNullString, vbNullString, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) Then
        ' Generate a random session key
        If CryptGenKey(hCryptProv, AlgID, KEYLEN_256, hKey) Then
            ' Allocate a buffer for the cipher text
            ReDim CipherText(DataLen)
            CipherTextLen = DataLen
            
            ' Encrypt the data
            If CryptEncrypt(hKey, 0, True, 0, CipherText(0), CipherTextLen, DataLen) Then
                ' Convert the cipher text to a string and return it
                EncryptString = StrConv(CipherText, vbUnicode)
            End If
        End If
    End If
    
    ' Release the encryption provider and key handles
    If hKey Then CryptDestroyKey hKey
    If hCryptProv Then CryptReleaseContext hCryptProv, 0
End Function

' Function to decrypt a string using the CryptoAPI
Function DecryptString(CipherText As String) As String
    Dim Data() As Byte
    Dim PlainText() As Byte
    Dim DataLen As Long
    Dim PlainTextLen As Long
    Dim hCryptProv As Long
    Dim hKey As Long
    Dim AlgID As Long
    
    ' Convert the cipher text string to a byte array
    Data = StrConv(CipherText, vbFromUnicode)
    DataLen = UBound(Data) + 1
    
    ' Set the encryption algorithm and key size
    AlgID = CALG_RC4
    hKey = 0
    
    ' Get a handle to the default encryption provider
    If CryptAcquireContext(hCryptProv, vbNullString, vbNullString, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) Then
        ' Generate a random session key
        If CryptGenKey(hCryptProv, AlgID, KEYLEN_256, hKey) Then
            ' Allocate a buffer for the plain text
            ReDim PlainText(DataLen)
            PlainTextLen = DataLen
            
            ' Decrypt the data
            If CryptDecrypt(hKey, 0

تم تعديل ديسمبر 23, 2022 بواسطه Moosak

**Moosak** · ديسمبر 23, 2022

مما لاحظته أن دالة التشفير الأخيرة ناقصة غير مكتملة ..

وأما الأخريات جربتها وهي تعمل تمام التمام 🙂

ثم طلبت منه أن يكملها 😅 فأعطاني :

' Function to decrypt a string using the CryptoAPI
Function DecryptString(CipherText As String) As String
    Dim Data() As Byte
    Dim PlainText() As Byte
    Dim DataLen As Long
    Dim PlainTextLen As Long
    Dim hCryptProv As Long
    Dim hKey As Long
    Dim AlgID As Long
    
    ' Convert the cipher text string to a byte array
    Data = StrConv(CipherText, vbFromUnicode)
    DataLen = UBound(Data) + 1
    
    ' Set the encryption algorithm and key size
    AlgID = CALG_RC4
    hKey = 0
    
    ' Get a handle to the default encryption provider
    If CryptAcquireContext(hCryptProv, vbNullString, vbNullString, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) Then
        ' Generate a random session key
        If CryptGenKey(hCryptProv, AlgID, KEYLEN_256, hKey) Then
            ' Allocate a buffer for the plain text
            ReDim PlainText(DataLen)
            PlainTextLen = DataLen
            
            ' Decrypt the data
            If CryptDecrypt(hKey, 0, True, 0, PlainText(0), PlainTextLen) Then
                ' Convert the plain text to a string and return it
                DecryptString = StrConv(PlainText, vbUnicode)
            End If
        End If
    End If
    
    ' Release the encryption provider and key handles
    If hKey Then CryptDestroyKey hKey
    If hCryptProv Then CryptReleaseContext hCryptProv, 0
End Function

تم تعديل ديسمبر 23, 2022 بواسطه Moosak

**عمر ضاحى** · ديسمبر 24, 2022

انا حاولت اسجل على الموقع لكن اخبرني ان الخدمة غير متاحة فى بلدي

كيف سجلت انت ^_^

**Moosak** · ديسمبر 24, 2022

45 دقائق مضت, عمر ضاحى said:

كيف سجلت انت ^_^

بالجيميل 🙂

**Ahmed_J** · ديسمبر 24, 2022

السلام عليكم

استاذ @Moosak

هل الموقع يدعم اللغة العربية عند السؤال عن شيء

هل من الممكن على سبيل التجربة تساله عن كود للبحث عن نص في كل قاعدة البيانات (جميع الجداول) وطريقة استداعه

شكرا لك

تم تعديل ديسمبر 24, 2022 بواسطه Ahmed_J

**Moosak** · ديسمبر 24, 2022

7 دقائق مضت, Ahmed_J said:

السلام عليكم

استاذ @Moosak

هل الموقع يدعم اللغة العربية عند السؤال عن شيء

هل من الممكن على سبيل التجربة تساله عن كود للبحث عن نص في كل قاعدة البيانات (جميع الجداول) وطريقة استداعه

شكرا لك

وعليكم السلام ورحمة الله وبركاته أخي أحمد ..

بالنسبه للغة العربية الموقع يدعم الأسئلة باللغة الانجليزية ولكن يمكنك كتابة كلمات عربية في السؤال مثل اسماء الحقول أو كلمات البحث مثلا..

وللتغلب على قضية ان تكون الاسئلة باللغة الانجليزية قم بكتابة السؤال في مترجم جوجل ثم قم بنسخة الى الموقع باللغة الانجليزية.

اما بالنسبة للكود الذي سالت عنة يمكنة كتابته بكل سهولة واكثر من ذلك 😊

تم تعديل ديسمبر 24, 2022 بواسطه Moosak

**Ahmed_J** · ديسمبر 24, 2022

استاذ @Moosak

اوكي تمام فهمت

بالنسبة للكود لو تكرمت بوضعه هنا لاني لااعرف عنة شيء

شكرا لتعاونك معي

**Moosak** · ديسمبر 24, 2022

3 دقائق مضت, Ahmed_J said:

بالنسبة للكود لو تكرمت بوضعه هنا

تكرما أعد كتابة السؤال من جديد بشكل واضح ومحدد .. 🙂

مثل اسماء الحقول التي تريد البحث فيها..

تم تعديل ديسمبر 24, 2022 بواسطه Moosak

**Ahmed_J** · ديسمبر 24, 2022

استاذي العزيز

عانيت كثيرا من هذا الموضوع ولم اجد له حل

يعني مثلا عندي قاعدة بيانات (نموذج رئيسي ونموذج فرعي ) تحتوي علة جدولين (Table1) و (Table2) مرتبطين بعلاقة راس باطراف عن طريق رقم (Father_ID)

النموذج الرئيس الاول فيه معلومات عن رب العائلة (الاب) والنموذج الفرعي فيه معلومات عن افراد العائلة (الابناء)

المطلوب البحث عن (اسم رب العائلة) او البحث عن (اي اسم من افراد العائلة ) فقط في الجدولين عن طريق النموذج

اتمنى ان اكون وفقت في الشرح

شكرا لك

**سامي الحداد** · ديسمبر 24, 2022

18 دقائق مضت, Ahmed_J said:

هل من الممكن على سبيل التجربة تساله عن كود للبحث عن نص في كل قاعدة البيانات (جميع الجداول) وطريقة استداعه

السلام عليكم

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

جرب ووافيني بالنتيجة

ساضع البرنامج هنا مرة ثانية ربما يستفاد منة باقي الاعضاء

تحياتي

Search All Tables 2020 New.accdb

**Ahmed_J** · ديسمبر 24, 2022

اساتذتي الاعزاء

مرفق ملف اريد التطبيق عليه

تحياتي للجميع

الملف الجديد.accdb

**عمر ضاحى** · ديسمبر 24, 2022

47 دقائق مضت, Moosak said:

بالجيميل 🙂

ههههههههههههههههه

ما انا حاولت ايضا بالجيميل

لكن اخبرنى انه لا يدعم بلدي

انت سجلت باى بلد

(المشكله الاخرى رقم الهاتف مطلوب لاستكمال التسجيل)

رقم مصري او سعودي لا يعمل

اعتقد انه حاليا موجه للدول الاجنبيه

**Moosak** · ديسمبر 24, 2022

37 دقائق مضت, عمر ضاحى said:

ههههههههههههههههه

ما انا حاولت ايضا بالجيميل

لكن اخبرنى انه لا يدعم بلدي

انت سجلت باى بلد

(المشكله الاخرى رقم الهاتف مطلوب لاستكمال التسجيل)

رقم مصري او سعودي لا يعمل

اعتقد انه حاليا موجه للدول الاجنبيه

سلطنة عمان الرائعة والجميلة 😊✌️🏻

**Moosak** · ديسمبر 24, 2022

منذ ساعه, Ahmed_J said:

استاذي العزيز

عانيت كثيرا من هذا الموضوع ولم اجد له حل

يعني مثلا عندي قاعدة بيانات (نموذج رئيسي ونموذج فرعي ) تحتوي علة جدولين (Table1) و (Table2) مرتبطين بعلاقة راس باطراف عن طريق رقم (Father_ID)

النموذج الرئيس الاول فيه معلومات عن رب العائلة (الاب) والنموذج الفرعي فيه معلومات عن افراد العائلة (الابناء)

المطلوب البحث عن (اسم رب العائلة) او البحث عن (اي اسم من افراد العائلة ) فقط في الجدولين عن طريق النموذج

اتمنى ان اكون وفقت في الشرح

شكرا لك

بالمناسبة اكتشفت أن الموقع يدعم اللغة العربية 👍🏼😊

كتبت له هذا السؤال : البحث عن كلمة (مفردة) معينة في جميع الحقول الموجودة في جميع الجداول في قاعدة البيانات .. وأكتب لي هذا الكود .. (نقلته لك بدون تعديل ) 🙂 :

Private Sub SearchFields(ByVal searchPhrase As String)
  Dim db As DAO.Database
  Dim tbl As DAO.TableDef
  Dim fld As DAO.Field
  Dim rs As DAO.Recordset
  
  Set db = CurrentDb
  
  ' Loop through all tables in the database
  For Each tbl In db.TableDefs
    ' Skip system tables
    If Left(tbl.Name, 4) <> "MSys" Then
      ' Open a recordset for the table
      Set rs = db.OpenRecordset(tbl.Name)
      
      ' Loop through all fields in the table
      For Each fld In tbl.Fields
        ' Search for the phrase in the field
        rs.FindFirst fld.Name & " Like '*" & searchPhrase & "*'"
        If Not rs.NoMatch Then
          ' The phrase was found
          Debug.Print tbl.Name & "." & fld.Name & ": " & searchPhrase & " found"
          
          ' Continue searching in the field
          Do While Not rs.NoMatch
            rs.FindNext fld.Name & " Like '*" & searchPhrase & "*'"
            If Not rs.NoMatch Then
              Debug.Print tbl.Name & "." & fld.Name & ": " & searchPhrase & " found"
            End If
          Loop
        End If
      Next fld
      
      ' Close the recordset
      rs.Close
    End If
  Next tbl
  
  Set db = Nothing
End Sub

تم تعديل ديسمبر 24, 2022 بواسطه Moosak
بعد التجربة أعتقد أنه بحاجة للتعديل بسبب اختلاف أنواع البيانات في الحقول المختلفة للجداول .. يضل الكود يدور في حلقة لا نهائية إذا لم يجد الكلمة المطلوبة .. لذلك يجب تحديد المطلوب بدقة. للأداة

**Ahmed_J** · ديسمبر 24, 2022

استاذ @Moosak

شكرا لك كثيرا على تعبك معي

لكنني عجزت عن وضع الكود في مكانه الصحيح

اتمنى منك المساعدة

تحياتي للجميع

**Moosak** · ديسمبر 24, 2022

أخي هذا الكود النهائي بعد عدة محاولات بتغيير صيغة السؤال 🙂

ويمكن تعديل الكود أكثر ليلائم الاحتياج الفعلي ...

صيغة السؤال كانت : search for a text in all records in all text type fields of all tables of access database

(البحث عن نص في جميع السجلات في جميع الحقول من نوع النص لجميع جداول قاعدة البيانات)

والنتيجة بتعديل بيط جدا ( والجميل في الموضوع أن الموقع يشرح لك الكود بدقة مثل ما هو واضح في الكود ) 🙂 :

Public Sub SearchTextRecords(ByVal searchText As String)
  Dim db As DAO.Database
  Dim tbl As DAO.TableDef
  Dim fld As DAO.Field
  Dim rs As DAO.Recordset
  
  Set db = CurrentDb
  
  ' Loop through all tables in the database
  For Each tbl In db.TableDefs
    ' Skip system tables
    If Left(tbl.Name, 4) <> "MSys" Then
      ' Open a recordset for the table
      Set rs = db.OpenRecordset(tbl.Name)
      
      ' Loop through all records in the table
      Do While Not rs.EOF
        ' Loop through all fields in the table
        For Each fld In tbl.Fields
          ' Check if the field is a text type
          If fld.Type = dbText Then
            ' Search for the text in the field
            If InStr(rs(fld.Name).value, searchText) > 0 Then
              ' The text was found
              Debug.Print tbl.Name & ": " & fld.Name & " - " & searchText & " found :" & rs(fld.Name).value
            End If
          End If
        Next fld
        
        ' Move to the next record
        rs.MoveNext
      Loop
      
      ' Close the recordset
      rs.Close
    End If
  Next tbl
  
  Set db = Nothing
End Sub

الكود عبارة عن روتين عام .. ويمكن مناداته بهذه الطريقة ( يوفرها لك الموقع أيضا ) :

SearchTextRecords "search text"

**Moosak** · ديسمبر 24, 2022

وهذا ملفك بعد تعديل الكود ليظهر النتيجة في رسالة : 🙂

image.png.9f6bc31ae94a44755e235a3bb63aba43.png

الملف الجديد.rar

تم تعديل ديسمبر 24, 2022 بواسطه Moosak

**Ahmed_J** · ديسمبر 24, 2022

شكر جزيلا استاذ @Moosak

بارك الله فيك وجعلها في ميزان حسناتك

ان شاء الله باقي طلباتي عن الموضوع سوف اضعها بموضوع جديد

تحياتي للجميع

تم تعديل ديسمبر 24, 2022 بواسطه Ahmed_J

**Eng.Qassim** · ديسمبر 25, 2022

في 24‏/12‏/2022 at 10:12, عمر ضاحى said:

اعتقد انه حاليا موجه للدول الاجنبيه

الموقع فتح معي وانا في العراق..

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

**Moosak** · ديسمبر 25, 2022

في 24‏/12‏/2022 at 11:12, عمر ضاحى said:

اعتقد انه حاليا موجه للدول الاجنبيه

حسب ما علمت فعلا أن بعض الدول العربية تحضر الموقع (مصر مثلا) ، ولكن يمكن تجاوز ذلك باستخدام الشبكات الخاصة الافتراضية . 🙂

**عمر ضاحى** · ديسمبر 25, 2022

59 دقائق مضت, Moosak said:

حسب ما علمت فعلا أن بعض الدول العربية تحضر الموقع (مصر مثلا) ، ولكن يمكن تجاوز ذلك باستخدام الشبكات الخاصة الافتراضية . 🙂

انا جربت كده فعلا لكن المشكله فى رقم الهاتف لتفعيل الحساب ^_^

واستكمال خطوات التسجيل وانا متوفر معي الخط المصري والخط السعودي فقط

بفكر اشوف اى موقع يقدم خدمة ارقام هواتف اجنبيه مجانيه

واذا نجح الامر معي هبلغكم هنا ^_^

**Eng.Qassim** · ديسمبر 25, 2022

5 دقائق مضت, عمر ضاحى said:

انا جربت كده فعلا لكن المشكله فى رقم الهاتف لتفعيل الحساب ^_^

حسب ماذكره صاحب الفيديو بأن الروبوت لايدعم 45 دولة من بينها مصر والسعودية والبحرين وغيرها

ولا اعلم ماهو السبب في ذلك

تسجيل الدخول

اداة بحث ثورية

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

محب العقيدة

طاهر الوليدي

محب العقيدة

Moosak

Moosak

عمر ضاحى

Moosak

Ahmed_J

Moosak

Ahmed_J

Moosak

Ahmed_J

سامي الحداد

Ahmed_J

عمر ضاحى

Moosak

Moosak

Ahmed_J

Moosak

Moosak

Ahmed_J

Eng.Qassim

Moosak

عمر ضاحى

Eng.Qassim

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information