اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

لدي قاعدة بيانات لمجموعة عمل يستعملها أكثر من شخص ويتم إدخال البيانات فيها يدوياً

ولكن أصبح الآن يُرسل إلينا ملفات على شكل txt فيتم بذلك دخول المعلومات مباشرة إلى البرنامج دون إدخال يدوي وفق طريقة وضعها مبرمج البرنامج ولكن المشكلة أنه عند إنزال البرنامج ألياً تظهر أسماء الزبائن وأمامها أرقام الهواتف مما يضطرنا إلى عمل قص للهاتف ووضعه في الخانة المخصص له ولكن يكون أحياناً حوالي 1100-200 اسم

فيكيف يمكنني الفصل بين الاسم والرقم

يرجى المساعدة العاجلة ولكم منا جزيل الشكر

  • Thanks 1
قام بنشر

أخي noursh لم أفهم سؤالك بالضبط، ولا تهمني المقدمة بقدر ما يهمني السؤال ..

فهل أفهم من سؤالك أن لديك مربع نص وهو يحتوي على نص ورقم وتريد فصل الاثنين عن بعضهما البعض ..

أعتقد أن هذا ممكن .. وإذا كان هو المطلوب سأعمل لك مثال ..

قام بنشر

نعم هذا ما أرمي إليه كيف يمكن فصل الاسم عن الرقم ووضع الرقم في الخانة المخصصة لذلك

ولكم جزيل الشكر

الرجاء الرد العاجل إن أمكن

قام بنشر

جزاك الله خيرا علي المثال الجميل

و اضافة بسيطة الي الكود باستخدام isnumeric

On Error Resume Next
text2 = ""
For i = 1 To Len(text1)
x = Mid(text1, i, 1)
If IsNumeric(x) Then
text2 = text2 & x
End If
Next

قام بنشر

شكراً جزيلاً على هذا المثال

ولكن هل يمكن عمل الفصل بين الأرقام والأسماء في الاستعلام

سؤال آخر: أحياناً يوجد بين الأسماء والأرقام إشارة / كيف يمكن أن أزيها نهائياً بحيث لا أضعها على أي من الخانتين (خانة الرقم وخانة الاسم)

آسف على ازعاجكم

قام بنشر

الرجاء إعلامي فيما إذا كان بالإمكان عمل ذلك في استعلام

ولكم الشكر فالحاجة ملحة إلى هذا الموضوع

قام بنشر

نعم ممكن

و ذلك بتحويل الروتين الي جالة و اجراء بعض التعديلات عليه

ثم استدعاء الدالة بناء علي الحقل المطلوب و عدد الحروف المحدد

و تم التطبيق علي مثال الاخ اسامة

و اضيف اليه جدول و استعلام و موديول به دالة

Text_Num5.rar

قام بنشر

الرجاء منكم إعلامي عن النسخة الموجودة فالموضوع في غاية الأهمية والملف لا يفتح

فعندي office 2000 , 97 ولكن عند فك ضغطه يعطيني إشارات تعجب

الرجاء الرد العاجل إن أمكن

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information