(تمت الاجابة) عمل نسخ من text box الى اخر

[wewe75]

ما هو الكود اللازم لعمل نسخ معلومه موجودة في textbox الى text box اخر في نفس الفورم

ارجو المساعدة وبارك الله فيكم

[Dream_Works]

أخي الكريم

ببساطة كل ما يكتب في مربع النص أو TextBox يتخزن في خاصية Text الموجوده به أولا ... و بعد أن يتم حفظ السجل بالكامل عن طريق الانتقال إلى سجل آخر أو ضغط زر الحفظ ... الخ ... تتخزن المعلومة في ال Value أيضا

ملحوظة : خاصية Text لا يمكن استخدامها إلا إذا كان التركيز Focus على مربع النص نفسه

لذلك أعتقد أن الكود المطلوب كالتالي :

Dim TempString as String 
TextBox1.setFocus
TempString = TextBox1.Text
TextBox2.setFocus
TextBox2.Text = TempString

بالتوفيق إن شاء الله

[wewe75]

اخي دريم شكرا لاهتمامك

لكنني قمت بتجربة ما زودتني به ولكنه لم يعمل

هل هناك حلولا اخرى

واذا كان بالامكان عمل مثال عملي اكن لك من الشاكرين

[Dream_Works]

أرجو إرفاق قاعدة بياناتك ... احتمال أنت وضعت بها شيء معين ... لم يخطر على بالي ... :)

[عمار زيد]

السلام عليكم

شاهد المرفق

AZ_CopyTxtBox.zip

[wewe75]

الملف المرفق فيه 2 text boxes

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

ارجو المساعدة

db111.rar

[ابو اسامة العينبوسي]

السلام عليكم

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

db1.rar

[عمار زيد]

السلام عليكم

جاري حل مشكلة تحميل الملفات من الموقع إن شاء الله

أخي الكريم

Private Sub txt1_AfterUpdate()

Me.txt2 = Me.txt1

End Sub

حيث لديك حقلين txt1 عند الكتابة فيه يقوم بجعل قيمة الحقل txt2 مساوية له

اعمل نموذج واجعل فيه حقلين txt1 و txt2 وضع الحدث المذكور أعلاه عن حدث بعد التحديث

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

[wewe75]

بارك الله فيك اخي عمار