سؤال لأصحاب الخبرة ( حقل نصي وقناع الادخال اصفار كيف يقبل نص )

[سلمان عبدالله]

بسم الله الرحمن الرحيم

اخواني اخواتي أعضاء هذا المنتدى الرائع

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

جعل الله ما تقدمونه في موازين حسناتكم

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

واتمنا من الله ثم من اساتذتنا الخبراء حلها

 

عندي حقل رقمي للجوال

في قناع الادخال/  وضعت عشرة اصفار 0000000000 حتى يكون الرقم لا يزيد ولا ينقص عن 10 ارقام

مثل ما تعرفون الصفر على الشمال يحذف وهذا سبب لي مشاكل في البحث

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

ولكن ماذا عن الأرقام القديم وهي اكثر من  480 رقم جوال كيف اعيد لها الصفر من الشمال .

 

المطلوب:-

 

1.    هل هناك وسيلة او طريقة تقوم بتوليد الصفر على الشمال في الأرقام السابقة

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

2.    ماذا اعمل لجعل الحقل يقبل كلمة واحدة مثل (غير متاح) في حالة ان رقم الجوال غير متاح لان خاصية هذا الحقل جعلتها مطلوب حتى لا انسى طلب رقم الجوال من الزبون وفي حالة طلب عن طريق مصادر أخرى يكون رقم الجوال غير متاح وخاصية الحقل لا بد ان تكون مطلوب الحقل نصي ولكن لا يقبل نص لان قناع الادخال عشرة اصفار ولا اريد تغييرها لأنها مفيدة في اكتشاف الخطأ وفي نفس الوقت اريد كتابة كلمة (غير متاح) في حالة عدم وجود رقم الجوال ولا اريد تغيير خاصية مطلوب... ما الحل

 

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

 

و تقبل فائق احترامي,,,

[Shivan Rekany]

4 ساعات مضت, سلمان عبدالله said:

حتى يكون الرقم لا يزيد ولا ينقص عن 10 ارقام

هناك طريقة اخرى عدى القناع لكي لا يتجاوز الارقام من 10 ارقام .. هذا فقط للعلم

4 ساعات مضت, سلمان عبدالله said:

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

ولكن ماذا عن الأرقام القديم وهي اكثر من  480 رقم جوال كيف اعيد لها الصفر من الشمال .

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

 

4 ساعات مضت, سلمان عبدالله said:

1.    هل هناك وسيلة او طريقة تقوم بتوليد الصفر على الشمال في الأرقام السابقة

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

2.    ماذا اعمل لجعل الحقل يقبل كلمة واحدة مثل (غير متاح) في حالة ان رقم الجوال غير متاح لان خاصية هذا الحقل جعلتها مطلوب حتى لا انسى طلب رقم الجوال من الزبون وفي حالة طلب عن طريق مصادر أخرى يكون رقم الجوال غير متاح وخاصية الحقل لا بد ان تكون مطلوب الحقل نصي ولكن لا يقبل نص لان قناع الادخال عشرة اصفار ولا اريد تغييرها لأنها مفيدة في اكتشاف الخطأ وفي نفس الوقت اريد كتابة كلمة (غير متاح) في حالة عدم وجود رقم الجوال ولا اريد تغيير خاصية مطلوب... ما الحل

 

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

هل نسيت ان لكل سؤال مشاركة واحدة 

[سلمان عبدالله]

شكرا لك استاذي شفان ريكاني

دائما سباق لمساعدة الاخرين 

هذا مثال 

ارجو التكرم بعمل المطلوب ... 

1.    هل هناك وسيلة او طريقة تقوم بتوليد الصفر على الشمال في الأرقام السابقة

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

2.    ماذا اعمل لجعل الحقل يقبل كلمة واحدة مثل (غير متاح) في حالة ان رقم الجوال غير متاح لان خاصية هذا الحقل جعلتها مطلوب حتى لا انسى طلب رقم الجوال من الزبون وفي حالة طلب عن طريق مصادر أخرى يكون رقم الجوال غير متاح وخاصية الحقل لا بد ان تكون مطلوب الحقل نصي ولكن لا يقبل نص لان قناع الادخال عشرة اصفار ولا اريد تغييرها لأنها مفيدة في اكتشاف الخطأ وفي نفس الوقت اريد كتابة كلمة (غير متاح) في حالة عدم وجود رقم الجوال ولا اريد تغيير خاصية مطلوب... ما الحل

 

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

ودمت لنا في هذا المنتدى الرائع....

مثال 1.rar

[Shivan Rekany]

اتفضل 

هذه هو الاكواد المطلوبة للنقطة الاولى والثالثة

Option Compare Database
Option Explicit
Public Sub Foo_Bar()
    
    Dim db As DAO.Database
    Dim prp As DAO.Property
    Dim fld
    Set db = CurrentDb
    
    With db.TableDefs("ج_الملاك").Fields("رقم88اخر")
        Set prp = .CreateProperty("InputMask", dbText, "0000000000", False) 'dbText = 10
        .Properties.Append prp
    End With
        Set fld = db.TableDefs("ج_الملاك").Fields("رقم88اخر")
            fld.Name = "رقم_اخر"

End Sub
Private Sub COMMAND12_Click()
On Error Resume Next
    Dim SqlUpdate As String
        Dim DELF As String
            Dim ADDF As String
        DoCmd.SetWarnings False
    SqlUpdate = "UPDATE ج_الملاك SET [رقم88اخر] = 0 & [ج_الملاك]![رقم_اخر] WHERE (((Len([رقم_اخر]))<10));"
        ADDF = "ALTER TABLE ج_الملاك ADD COLUMN رقم88اخر TEXT(10)"
            DELF = "ALTER TABLE ج_الملاك DROP COLUMN رقم_اخر"
Me.ج_الملاك.SourceObject = ""
    DoCmd.RunSQL (ADDF)
        DoCmd.RunSQL (SqlUpdate)
            DoCmd.RunSQL (DELF)
        Call Foo_Bar
    Me.ج_الملاك.SourceObject = "ج_الملاك"
        DoCmd.SetWarnings False

End Sub

واليك المرفق

 

مثال 1.rar