مربع نص يأخذ بياناته من ملف على قوقل درابف

[abofayez1]

السلام عليكم 

صبحكم الله بالخيرات جميعا

 المعذرة منكم على كثرة أسئلتي ولكني أقف عاجزا أمام  بعض الأمور ولا أتمكن من تجاوزها ... فأتذكر مساعدتكم فأطمع فيها .... وفقكم الله جميعا

لدي نموذج به مربع نص  وبه زر عرض

وعندي مستند نص على قوقل درايف باسم  cc.txt  مكتوب داخل الملف  1445 

أريد إحضار هذه القيمة لمربع النص وفي حالة تغيرت القيمة في الملف يتغير في النموذج عند النقر على عرض

الرابط متاح للمشاركة في قوقل درايف  وموجود في المثال 

https://drive.google.com/file/d/1KMBf9MxyB7gnrjev2TXkPUbZDuwXK12i/view?usp=sharing

كيف الطريقة .... وفقكم الله 

22.accdb

[Foksh]

كنت سابقاً قد اعتمدت في محاولة التفعيل عن بعد لبرنامجي على مثل هذه الفكرة ، لذا جرب هذا الكود عله يفيدك 

Private Sub CommandButton_Click()
    Dim filePath As String
    Dim fileContent As String

    ' تحديد معرف الملف على Google Drive
    filePath = "https://drive.google.com/uc?export=download&id=1KMBf9MxyB7gnrjev2TXkPUbZDuwXK12i"

    ' قراءة محتوى الملف
    fileContent = GetFileContent(filePath)

    ' وضع قيمة الملف في مربع النص
    Me.Textbox.Value = fileContent
End Sub

Function GetFileContent(filePath As String) As String
    Dim xmlHTTP As Object
    Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    
    ' إرسال طلب HTTP للحصول على الملف
    xmlHTTP.Open "GET", filePath, False
    xmlHTTP.send
    
    ' إرجاع محتوى الملف كنص
    GetFileContent = xmlHTTP.responseText
End Function

وحيث أن CommandButton هو اسم الزر في نموذجك.

و Textbox هو اسم مربع النص الذي سيتم جلب القيمة له من الملف.

تم تعديل يناير 9, 2024 بواسطه Foksh

[abofayez1]

جزاك الله كل الخير عزيزي Foksh

تم إحضار البيانات بامتياز... وفقك الله وزادك علما وفهما

ألف ألف شكر يا الغالي