عند تمرير الفأرة ، ادراج نص من مربع نص الى مربع نص اخر

[tiger wanted]

 

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

Database5.accdb

تم تعديل أكتوبر 28 بواسطه tiger wanted
اضافة

[jjafferr]

وعليكم السلام

معلش ، اشرح لي المطلوب بلغتك ، وباسماء الحقول في مرفقك

[Ahmos]

السلام عليكم ورحمة الله وبركاته

الخطأ هو : tocontrol معرفة كـ Integer في الوظيفة SwapelementesBasics وعند الاستخدام تم تعريف الـ currentcontrol كـ Object



يوجد نسخة معدلة بالمرفق
أنصحك بالاستفادة من عرض الأستاذ @jjafferr

بالتوفيق

Database5_New.accdb

[jjafferr]

اخوي @Ahmos

 

عرض جدا جميل لسبب المشكلة 👍

ياريت تكمل جميلك وتعرض الحل كذلك في المشاركة (مو في المرفق فقط)

[tiger wanted]

اشكركم على الاجابة وبارك الله فيكم 

[Ahmos]

أسعدك الله وبارك فيك أخي الكريم @jjafferr
التعديلات :
1- تنسيق الكود
2- 

 

3- من tex5.Value إلي Me.text5.Value وهكذا ،،

4- إضافة ErrorHandler للتعامل معا أخطاء الوظيفة SwapElementsBasics
On Error GoTo ErrorHandler
ErrorHandler:
    Debug.Print "Error in SwapElementsBasics: " & Err.Description

ملحوظة :
أصبحت أستخدم وسائل البحث الجديدة ( https://chatgpt.com - https://claude.ai )
في تنسيق وضبط التسمية وإضافة Error Handler
فهو أسرع.

بالتوفيق

[jjafferr]

اخوي @Ahmos شكرا جزيلا 🙂

 

اما انا فتجربتي من الذكاء الصناعي مو زينه ، فالاجابات الصحيحة اللي احصلها منه هي اقل من 5-10% من اسألتي ، وللعلم فيه مرات عديدة انا اعطيه الجواب الصحيح 🙂 وخصوصا انه يخلط بين اكواد الاكسس والاكسل.

 

اخوي @tiger wanted

اذا كل اللي تريده هو مجرد تحويل القيمة من الكمبوبوكس الى الحقول الاخرى بمجرد تمرير الفأرة عليه ، فتفضل هذا الكود السهل (حسب اسماء حقول نموذجك) ، وحذفت بقية الاكواد:

Private Sub text3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Me.text3 = Me.Combo0
End Sub

Private Sub text5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Me.text5 = Me.Combo0
End Sub

 

[Ahmos]

1 ساعه مضت, jjafferr said:

اما انا فتجربتي من الذكاء الصناعي مو زينه ، فالاجابات الصحيحة اللي احصلها منه هي اقل من 5-10% من اسألتي ، وللعلم فيه مرات عديدة انا اعطيه الجواب الصحيح 🙂 وخصوصا انه يخلط بين اكواد الاكسس والاكسل.

أخي الكريم كلامك صحيح
ويمكن استخدامه في كتابة الأكود الطويلة ثم تقوم بالتعديل عليها 
وإذا كان لديك كود غير منسق
إذا كنت تبحث عن افكار مختلفة

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

وملخص تجربتي إذا كنت تستطيع قراءة وتحليل النتائج وإضافت تعديلاتك فستختصر عليك تلك الادوات بعض الوقت والجهد

[jjafferr]

👍