كود أو قناع إدخال أرقام تليفونات

[محمد صلاح1]

ارجو توفير كود أو قناع لإدخال أرقام تليفونات مخصص لأحد نمطين من الأرقام  الأول خاص بأرقام التليفون المحمول علي سبيل المثال وليس الحصر إذا كان بهذا الشكل 248-0072-0115 (202) والثاني نمط خاص بأرقام التليفونات العادية ويكون بهذا الشكل 049-39-260 (202)

علماً بمراعاة التالي:

- بالنسبة لرقم كود الدولة والمحافظة يجب أن يكون أجبارياً (وماذا أفعل ان أفعل مستقبلاً إذا لم أرد أن أجعله أجبارياً أو إردت حذفه)

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

- لا اريد للمستخدم أن يكتب الأقواس أو الشرطة فقط يكتب الرقم ثم يظهر الرقم بهذا الشكل من خلال الكود أو قناع الإدخال

- إذا كان قناع إدخال فلا أعلم هل الافضل جعل قناع ادخال في حقل الجدول الخاص بتخرين ارقام التليفونات أم من خلال مربع النص الخاص بإدخال الرقم في نموذج الإدخال

وشكرا

 

[kha9009lid]

مرحبا

كم عدد خانات الهاتف المحمول لديكم هل هو 11

عدد خانات الهاتف الارضي بدون كود المنطقة والدولة حسب المكتوب اعلاه 9

 

[محمد صلاح1]

تمام مثل 248-0072-0115 (202)

8 وليس 9 مثل 049-39-260 (202)

[kha9009lid]

2رقم كود المنطقة

[محمد صلاح1]

260-39-049 رقم 2 في بداية هذا الرقم هو رقم المحافظة او المنطقة كما ذكرت حضرتك

[kha9009lid]

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

Database171.accdb

[محمد صلاح1]

أخي الفاضل kha9009lid

أشكر لك حسن تجاوبك وأهتمامك

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

 

[kha9009lid]

الان حقل واحد

Database1712.accdb

[محمد صلاح1]

أستاذ خالد

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

المطلوب بوضوح أن يتم كتابة رقم التليفون (كود دولي + رقم تليفون) وسواء أكان الرقم لتليفون محمول أو أرضي في حقل واحد فقط هو حقل رقم التليفون بجدول المستخدمين (أي بدون أي حقول أخري مساعدة) فيظهر الرقم إن كان محمول أو أرضي بالشكل والمعايير التي تم توضيحها في أول مشاركة أتمني أن الصورة تكون قد أتضحت أكثر

تم تعديل يوليو 29, 2019 بواسطه محمد صلاح1

[kha9009lid]

يا ابا صلاح في بداية الموضوع لم توضح با اخي العزيز ان هناك مرفق يحتاج الى التعديل وبناء عليه وضعت لك المرفق الاول ثم في المرفق الثاني دمجنا الحقلين في حقل واحد

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

اخيرا هذا النموذج يحتاج الى مراجعة واعادة صياغة وانا لا اجد لدي الوقت الكافي لعمل ذلك وبناء عليه اعتذر منك اخي العزيز

وتقبل من اخيك كل الود والتقدير

[محمد صلاح1]

شكراً للأخ kha9009lid

ولكن أعتقد أن الكلام كان واضحاً للجميع منذ البداية وحتي الآن أن المطلوب هو توفير كود أو قناع إدخال يعمل علي كتابة ارقام تليفون محمول وارضي مما لا يحتاج معه إلي مرفق

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

[kha9009lid]

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

فلم اقصد اي اساءة

 

[ابو عارف]

السلام عليكم 

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

If IsNull(ActiveControl) Or ActiveControl = "" Then Exit Sub
Dim vl As String
vl = ActiveControl.Value
vl = Replace(vl, "(", "")
vl = Replace(vl, ")", "")
vl = Replace(vl, "-", "")
vl = Replace(vl, " ", "")
If Mid(vl, 4, 1) = 0 Then
vl = Format(vl, "(000) 0000-0000-000")
Else
vl = Format(vl, "(000) 000-00-000")
End If
ActiveControl = vl

Database1712.accdb

[محمد صلاح1]

أ @ابو عارف شكراً جزيلاً لاهتمامك وتجاوبك الإيجابي معنا

شعرت من الوهلة الأولي لرؤية الكود أنه سيحقق ما أريد وفعلت كما تفضلت بذكره ولكن وقف حائلاً دون تحقيق المراد فلا أعلم لماذا لا يتم تسجيل الارقام المدخلة في حقل رقم التليفون في جدول المستخدمين ؟ جربت تسجيل بيانات مستخدمين جدد أكثر من مرة وكل البيانات تسجل وتحفظ في الجدول إلا حقل رقم التليفون إن كنت حضرتك تستطيع الإطلاع علي المرفق لمعرفة السبب أكون ممنون جداً لحضرتك ولقد تم فتح موضوع لذلك هنا

 

[ابو عارف]

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

[محمد صلاح1]

جزيل الشكر لحضرتك أ @ابو عارف

وأتمني أن تفيدنا بعلمك في الموضوع المشار إليه لإمكانية تعديل بيانات المستخدمين علي نفس النموذج

[ابو عارف]

ان شاء الله جاري عمل عليه

[محمد صلاح1]

أسعدك الله