سؤال عن امكانية تغير أحد الرموز تلقائيا

[ابو جودي]

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

Ac/Reg    ,    P/N      ,      S/N 

وهنا كانت مشكلتى  احيانا قد يكون فى  الرقم المسلسل مقطعين بينهم علامة /    على سبيل المثال     123/789

طبعا الويندوز لايقبل تلك العلامه

حاليا انا اقوم بالتعديل فتصبح        123-789  بدلا  من   123/789

هل من طريقة لتحويل العلامة / الى - 

[jjafferr]

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

 

اليك هذاالكود من احد برامجي:

ونفترض ان اسم الحقل (سواء في الاستعلام او في النموذج) strText ، فكود تغيير الاسم يكون:

في النموذج
Me.strText = Characters_Windows_Refuse (Me.strText)


في الاستعلام
A: Characters_Windows_Refuse ([strText])

 

 

و الوحدة النمطية

Function Characters_Windows_Refuse(str_Name As String) As String

    'check if the file name is correct,
    'and it does not incluse the characters windows refuse
    'usage:
    'Me.strText = Characters_Windows_Refuse (Me.strText)
    '
    
    Dim Correct_To As String
    
    Correct_To = "-"
    
    str_Name = Replace(str_Name, "\", Correct_To)
    str_Name = Replace(str_Name, "/", Correct_To)
    str_Name = Replace(str_Name, ":", Correct_To)
    str_Name = Replace(str_Name, "*", Correct_To)
    str_Name = Replace(str_Name, "?", Correct_To)
    str_Name = Replace(str_Name, Chr(34), Correct_To)
    str_Name = Replace(str_Name, "<", Correct_To)
    str_Name = Replace(str_Name, ">", Correct_To)
    str_Name = Replace(str_Name, "|", Correct_To)
    
    'return this value to the field
    Characters_Windows_Refuse = str_Name
    
End Function

 

 

جعفر

[ابو جودي]

الحمد لله سبحانه وتعالى
يارب لك الحمد والشكر كما ينبغى لجلال وجهك ولعظيم سلطانك
ربنا لك الحمد حمدا كثيرا طيبا طاهرا مباركا فيه

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

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

16 دقائق مضت, jjafferr said:

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

 

اليك هذاالكود من احد برامجي:

ونفترض ان اسم الحقل (سواء في الاستعلام او في النموذج) strText ، فكود تغيير الاسم يكون:

في النموذج
Me.strText = Characters_Windows_Refuse (Me.strText)


في الاستعلام
A: Characters_Windows_Refuse ([strText])

 

 

و الوحدة النمطية

Function Characters_Windows_Refuse(str_Name As String) As String

    'check if the file name is correct,
    'and it does not incluse the characters windows refuse
    'usage:
    'Me.strText = Characters_Windows_Refuse (Me.strText)
    '
    
    Dim Correct_To As String
    
    Correct_To = "-"
    
    str_Name = Replace(str_Name, "\", Correct_To)
    str_Name = Replace(str_Name, "/", Correct_To)
    str_Name = Replace(str_Name, ":", Correct_To)
    str_Name = Replace(str_Name, "*", Correct_To)
    str_Name = Replace(str_Name, "?", Correct_To)
    str_Name = Replace(str_Name, Chr(34), Correct_To)
    str_Name = Replace(str_Name, "<", Correct_To)
    str_Name = Replace(str_Name, ">", Correct_To)
    str_Name = Replace(str_Name, "|", Correct_To)
    
    'return this value to the field
    Characters_Windows_Refuse = str_Name
    
End Function

 

 

جعفر

سؤال على استحياء 
استاذى الحبيب هل يوضع هذا الكود  

Me.strText = Characters_Windows_Refuse (Me.strText)

فى حدث معين ؟
مثلا على الزر الخاص بالمسح الضوئى ؟

[ابو جودي]

الحمد لله رب العالمين 
كل الشكر والتقدير استاذى الحبيب  jjafferr

تمت التجربة وتحقق المراد  
جزاكم الله خيرا