كيف استبدل الفاصله المنقوطه بشرطه مائله

[at_aziz]

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

اخواني عندي مشكله ماعرف احلها

وهي كيف استبدل الفاصله المنقوطه"؛"  اللي بين الكلمات بشرطه مايله "/"

عند الضغط على زر الامر

 

بارك الله فيكم وجزاكم الله خير

aziz100.zip

[jjafferr]

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

 

بالامر Replace

me.txt = replace(me.txt , ";" , "/")

 

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

 

جعفر

[at_aziz]

بارك الله فيك وجزاك الله خير اخي جعفر

شاكر لك اخي الفاضل

جربت الكود على المثال لكن للاسف ليتم يتم الاستبدال في مربع النص NOA1

ياليت تجرب على المثال المرفق

شاكر لك ومقدر

 

[jjafferr]

فتحت المرفق ولم افهم المطلوب !!

[at_aziz]

اعتذر اخي جعفر  

اذا طلبي ماهو وضح

المطلوب اخي الفاضل

انه لما اختار من القائمىه المنسدله noa اختيار متعدد

تنزل اللي اخترتها في مربع النص noa1  مع جود رمز الفاصله

؛ 

بين الكلمات 

 

اللذي اريده هو انه عند الضغط على زر الامر يتم استبدال الفاصله  بشرطه مايله بين الكلمات في مربع النص noa1

 

هذا اللي اريد بارك الله فيكم وجزاكم الله خير

aziz100.accdb

تم تعديل يوليو 26, 2020 بواسطه at_aziz

[jjafferr]

اعتذر عن التأخر في الرد ، لأنه احد المواضيع التي لا استعملها ابداً ، ومحترفي الاكسس ينصحون بالابتعاد عنها !!

 

1. خلينا نعرف اولا ، من وين يأتي الاكسس بالفارزه بين القيم ؟

فتلاحظ اني عملت تغيير لنظام الوندوز عندي ، وجعلت الفارزة عبارة عن شرطة مائله (يجب ان يكون برنامجك مغلق لما تعدل هذه القيمة في اعدادات الوندوز ، ولما تفتح برنامجك ، بتلقى الفارزة الجديدة في برنامجك) ، بمعنى آخر ، كل كمبيوتر ممكن يكون عنده فارزة تختلف عن الكمبيوتر الآخر !!

.

2. اذن في هذه الحالة ، فالاكسس يسمح لنا ان نختار من الفوارز الموجودة في الوندوز :

.

وللأسف ، فلا يمكننا ان نختار غير هذه الخيارات الموجودة في القائمة.

 

ولكن اذا عملنا الحقل NOA1 غير مضمن  (او مرتبط بحقل من نوع نص في الجدول)

.

ووضعنا الكود على حدث الحالي للنموذج (اما اذا كان الحقل NOA1 نوعه نص ، فيمكننا ان نضع الكود على حدث "بعد تحديث" الحقل NOA ، او على زر التبديل) ،

والكود يأخذ في الحسبان اذا كانت الفارزة فاصلة او فاصلة منقوطة :

Private Sub Form_Current()
    
    Me.NOA.SetFocus
    Me.NOA1.Value = Replace(Replace(Me.NOA.Text, ",", "/"), ";", "/")
    
End Sub

.

وهذه النتيجة

 

جعفر

[at_aziz]

بارك الله فيك وجزاك الله خير استاذنا الفاضل جعفر

نعم هذا هو المطلوب 

الله يعطيك الصحه والعافيه

الف شكر