تغير الادخال تلقائيا بعد التحديث

[Abdelaziz Osman]

السلام عليكم ورحمة الله
لدى حقل رقمى باسم  taxn داخل نموذج باسم  rest

احيانا يقوم المستخدم  بادخال رمز "-" بهذا الحقل بالخطأ  ثم يقوم بمسح هذا الرمز لكي يقبل الحقل الادخال
هل يوجد كود vba عندما يقوم المستخدم بادخال الرمز يتم التحديث تلقائيا بازالة هذا الرمز تلقائيا
على سبيل المثال
يقوم المستخدم  بالادخال بهذا الشكل    365-659-988
اريد بعدما يقوم المستخدم بالضغط enter يقوم الحقل بتصحيح الادخال تلقائيا ليصبح     988659365

بالغ التحية والتقدير

[Foksh]

1 ساعه مضت, Abdelaziz Osman said:

السلام عليكم ورحمة الله
لدى حقل رقمى باسم  taxn داخل نموذج باسم  rest

احيانا يقوم المستخدم  بادخال رمز "-" بهذا الحقل بالخطأ  ثم يقوم بمسح هذا الرمز لكي يقبل الحقل الادخال
هل يوجد كود vba عندما يقوم المستخدم بادخال الرمز يتم التحديث تلقائيا بازالة هذا الرمز تلقائيا
على سبيل المثال
يقوم المستخدم  بالادخال بهذا الشكل    365-659-988
اريد بعدما يقوم المستخدم بالضغط enter يقوم الحقل بتصحيح الادخال تلقائيا ليصبح     988659365

بالغ التحية والتقدير

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

فكرة بسيطة خطرت لي .. جرب استعمال الدالة Replace كما في المثال التالي

Private Sub taxn_AfterUpdate()
    Me.taxn.Value = Replace(Me.taxn.Value, "-", "")
End Sub

 

[Abdelaziz Osman]

11 دقائق مضت, Foksh said:

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

فكرة بسيطة خطرت لي .. جرب استعمال الدالة Replace كما في المثال التالي

Private Sub taxn_AfterUpdate()
    Me.taxn.Value = Replace(Me.taxn.Value, "-", "")
End Sub

 

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

taxn.accdb

[Foksh]

2 ساعات مضت, Abdelaziz Osman said:

لم يعمل سيدى

أخي الكريم ، بناءً على المرفق ، فأرى تناقضاً في طلبك ، لأن الحقل الرقمي تلقائياً لن يقبل اي قيمة مخالفة للأرقام ( 0 - 9 ) .. وبما أنك تعتمد طريقة عرض البيانات = Datasheet . فـ عليه فأننا لتلافي الخطأ ومنع المستخدم من كتابة الرمز "-" ، فيمكن استخدام طريق مختلفة لمنع كتابة الرمز "-" في مربع النص :-

 

Private Sub taxn_KeyPress(KeyAscii As Integer)
    If KeyAscii = 45 Or Not IsNumeric(Chr(KeyAscii)) Then
        KeyAscii = 0
    End If
End Sub

هي وجهة نظر .. 

[Abdelaziz Osman]

5 دقائق مضت, Foksh said:

أخي الكريم ، بناءً على المرفق ، فأرى تناقضاً في طلبك ، لأن الحقل الرقمي تلقائياً لن يقبل اي قيمة مخالفة للأرقام ( 0 - 9 ) .. وبما أنك تعتمد طريقة عرض البيانات = Datasheet . فـ عليه فأننا لتلافي الخطأ ومنع المستخدم من كتابة الرمز "-" ، فيمكن استخدام طريق مختلفة لمنع كتابة الرمز "-" في مربع النص :-

 

Private Sub taxn_KeyPress(KeyAscii As Integer)
    If KeyAscii = 45 Or Not IsNumeric(Chr(KeyAscii)) Then
        KeyAscii = 0
    End If
End Sub

هي وجهة نظر .. 

تمام يامدير  عمل جيد سيدى بالفعل

ولكن اسمح لى اعرض لك تفاصيل الموضوع 

فى الاساس لدى مجموعة كبيرة من الارقام  اكثر من مئة رقم   كلها  تحتوى على علامة"-" مرسلة داخل موقع شركتنا من بلد اخر ولا يمكن لنا سحب هذه الارقام دفعة واحدة لان كل رقم من تلك الارقام لها صفحة ويب منفصلة وليس للمستخدم اي طريقة سوى كتابة الارقام رقم رقم  بالخطوات التالية
 1- فتح صفحة الرقم.
2- مشاهدة الرقم ثم كتابته فى الاكسيس رقم رقم   أو   عمل امر نسخ من صفحة الويب تشمل علامة "-" ولصقها فى الاكسيس ثم يقوم بمسح علامة"-"

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

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

 

فهل من الممكن تحويل الحقل الى حقل نص مكون من 9 خانات وعمل كود بتحويل علامة"-" الى العدم ويتم قبول الارقام فقط عند اللصق   

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

[Foksh]

3 دقائق مضت, Abdelaziz Osman said:

تمام يامدير  عمل جيد سيدى بالفعل

ولكن اسمح لى اعرض لك تفاصيل الموضوع 

فى الاساس لدى مجموعة كبيرة من الارقام  اكثر من مئة رقم   كلها  تحتوى على علامة"-" مرسلة داخل موقع شركتنا من بلد اخر ولا يمكن لنا سحب هذه الارقام دفعة واحدة لان كل رقم من تلك الارقام لها صفحة ويب منفصلة وليس للمستخدم اي طريقة سوى كتابة الارقام رقم رقم  بالخطوات التالية
 1- فتح صفحة الرقم.
2- مشاهدة الرقم ثم كتابته فى الاكسيس رقم رقم   أو   عمل امر نسخ من صفحة الويب تشمل علامة "-" ولصقها فى الاكسيس ثم يقوم بمسح علامة"-"

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

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

 

فهل من الممكن تحويل الحقل الى حقل نص مكون من 9 خانات وعمل كود بتحويل علامة"-" الى العدم ويتم قبول الارقام فقط عند اللصق   

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

حسناً يا صديقي ، استطيع افادتك بهذا الموضوع بحيث انه عليك جلب القيم الرقمية كما هي من الموقع ( مع وجود اشارة "-" ) ، واستطيع انشاء استعلام يقوم بمهمة استيراد القيم الرقمية بعد ازالة الإشارة "-" الى الجدول المستهدف دفعة واحدة . هي كمساهمة في الوصول الى طلبك . اذا كنت موافق فأخبرني ..

[Abdelaziz Osman]

32 دقائق مضت, Foksh said:

أخي الكريم ، بناءً على المرفق ، فأرى تناقضاً في طلبك ، لأن الحقل الرقمي تلقائياً لن يقبل اي قيمة مخالفة للأرقام ( 0 - 9 ) .. وبما أنك تعتمد طريقة عرض البيانات = Datasheet . فـ عليه فأننا لتلافي الخطأ ومنع المستخدم من كتابة الرمز "-" ، فيمكن استخدام طريق مختلفة لمنع كتابة الرمز "-" في مربع النص :-

 

Private Sub taxn_KeyPress(KeyAscii As Integer)
    If KeyAscii = 45 Or Not IsNumeric(Chr(KeyAscii)) Then
        KeyAscii = 0
    End If
End Sub

هي وجهة نظر .. 

 

3 ساعات مضت, Foksh said:

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

فكرة بسيطة خطرت لي .. جرب استعمال الدالة Replace كما في المثال التالي

Private Sub taxn_AfterUpdate()
    Me.taxn.Value = Replace(Me.taxn.Value, "-", "")
End Sub

 

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