كيفية تنفيذ كود داخل مربع نص

[tiger wanted]

مربع نص كتبت بداخله docmd.close   واسم مربع نص mycode 

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

[M.Abd Allah]

  في 14‏/6‏/2024 at 18:11, tiger wanted said:

مربع نص كتبت بداخله docmd.close   واسم مربع نص mycode 

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

Expand  

Private Sub Command1_Click()
    Dim codeToExecute As String
    codeToExecute = Me.mycode.Value

    On Error GoTo ErrorHandler

    ' تنفيذ الكود الموجود في مربع النص
    Eval codeToExecute

    Exit Sub

ErrorHandler:
    MsgBox "حدث خطأ أثناء تنفيذ الكود: " & Err.Description, vbCritical

End Sub

جرب الكود ده فالزرار وعرفني النتيجه 

[tiger wanted]

اشكرك على الرد وجارى التجربة 

[kanory]

اذا عرفنا سبب تنفيذ امر مكتوب في مربع النص ..... ربما عرفنا طريقة التنفيذ ..... واذا امكن مثال للتنفيذ عليه .. 

[M.Abd Allah]

  في 14‏/6‏/2024 at 19:02, tiger wanted said:

اشكرك على الرد وجارى التجربة 

Expand  

جرب إن شاءالله تلاقي نتيجه كويسه 

[tiger wanted]

لم يتم تنفيذ الكود مرفق صورة 

[M.Abd Allah]

  في 14‏/6‏/2024 at 19:09, tiger wanted said:

لم يتم تنفيذ الكود مرفق صورة 

Expand  

طيب ثواني اعملك مرفق وابعتهولك إن شاءالله تلاقيه صحيح

[tiger wanted]

فى انتظار ردكم جزاكم الله كل خير 

[kanory]

  في 14‏/6‏/2024 at 19:07, kanory said:

اذا عرفنا سبب تنفيذ امر مكتوب في مربع النص ..... ربما عرفنا طريقة التنفيذ ..... واذا امكن مثال للتنفيذ عليه .. 

Expand  

يبدو انك لم ترى ردي هنا

[M.Abd Allah]

  في 14‏/6‏/2024 at 19:12, tiger wanted said:

فى انتظار ردكم جزاكم الله كل خير 

Expand  

اتفضل مثال للي حضرتك طلبته جرب المثال وقولي هو ده المطلوب ولا لاء وتقدر تضيف فالداله اكتر من أمر 

 

مثال تنفيذ امر بناء على قيمه حقل.accdbFetching info...

[tiger wanted]

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

شكرا وجارى الرد

بارك الله فيك سأطلعكم بالنتيجة 

[M.Abd Allah]

  في 14‏/6‏/2024 at 19:28, M.Abd Allah said:

اتفضل مثال للي حضرتك طلبته جرب المثال وقولي هو ده المطلوب ولا لاء وتقدر تضيف فالداله اكتر من أمر 

 

مثال تنفيذ امر بناء على قيمه حقل.accdb 384 kB · 2 downloads

Expand  

فى هذا المثال اضفتلك أمرين 

أمر الإغلاق زي محضرتك كنت عامل فالصوره Docmd.Close

وأمر تكبير للنموذج

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

أو تجرب تضيف أمر تاني بس تضيفه فالداله اللي فالنموذج وان شاء الله هيشتغل

تم تعديل يونيو 14, 2024 بواسطه M.Abd Allah

[tiger wanted]

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

[M.Abd Allah]

  في 14‏/6‏/2024 at 19:44, tiger wanted said:

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

Expand  

إن شاءالله هتنجح 

[tiger wanted]

هذا هو الكود المراد تنفيذه ولم يتم 

  Dim dbs As dao.Database

Set dbs = CurrentDb

Dim strConnect As String
        strConnect = "ODBC;DRIVER={SQL Native Client}" _
                & ";SERVER= WIN-O7711S4F355\SQLEXPRESS" _
                & ";DATABASE=main" _
                & ";UID= administartor" _
                & ";Trusted_Connection=Yes" & ";"

For Each qdf In dbs.QueryDefs

    If qdf.Type = dbQSQLPassThrough Then
        qdf.Connect = strConnect

        
    End If

Next qdf

ظهور رسالة هذا الكود غير معتمد 

مع العلم انه تم الاتصال بالسيرفر بدون مشاكل فى انتظار ردكم المطلوب عمل اتصال من خلال استعلام pass- through فى انتظار ردكم ولكم منا جزيل التقدير والعرفان 

[M.Abd Allah]

انسخ الكود ده فى زرار الأمر 

Private Sub command_Click()

    Dim codeToExecute As String
    codeToExecute = Me.mycode.Value

    On Error GoTo ErrorHandler

    ' تنفيذ الكود الموجود في مربع النص
    Eval codeToExecute

    Exit Sub

ErrorHandler:
    MsgBox "حدث خطأ أثناء تنفيذ الكود: " & Err.Description, vbCritical
End Sub

بعدها انسخ الكوده فالتكست 

Dim dbs As DAO.Database
Set dbs = CurrentDb

Dim strConnect As String
strConnect = "ODBC;DRIVER={SQL Native Client};" & _
             "SERVER=WIN-O7711S4F355\SQLEXPRESS;" & _
             "DATABASE=main;" & _
             "UID=administartor;" & _
             "Trusted_Connection=Yes;"

For Each qdf In dbs.QueryDefs
    If qdf.Type = dbQSQLPassThrough Then
        qdf.Connect = strConnect
        qdf.ReturnsRecords = True
    End If
Next qdf

هتشتغل معاك إن شاءالله 

[tiger wanted]

نفس المشكلة سأحاول عند وصولى المنزل واوافيكم بالنتيجة 

سأكون معكم على تواصل

[tiger wanted]

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

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

[tiger wanted]

فى انتظار ردكم