داله لمعرفة نوع المدخل

[ابوعبدالله_1972]

السلام عليكم و رحمته الله و بركاته ,,, جمعة مباركه ,كيفكم اخواني اسال الله ان يكون الجميع و جميع الناس بصحة و عافية

عندي جدول عمل لمعرفة نوع المدخل في في المربع

1. اذا كان حرف عربي يرمز C(A) .
2. او رقم عربي N(A) .
3. حروف انجليزي كبيرة C(E1) .
4. حروف انجليزي صغيرة C(E2) .
5. اذا كان رقم انجليزي N(E) .
6. واذا كان اشكال و رموز مثل (!@#$%^& ... و عيرها يرمز (B) .
7. و اذا سمحتم الادخال عندي غير مكرر (كيف يسمح للادخال كلمتين (الكلمة الاولي حرفها كبير) & (الكلمة الثاني حرفها صغيره) مثال (AAA-000) - (aaa-000) . , وفي في الجدول المرفق مثال موجود.

اتمني من الله ثم منكم ان يكون الملف بدون اكواد اعرف انها قوية جداً ولكن عشان ما اعرف اشتغل عليه واذا لزم الامر مافي مشكلة بارك الله فيكم و عزكم بامرالله.

اسال الله رب العرش العظيم , اسال الله رب العرش العظيم , اسال الله رب العرش العظيم ان يبارك الله في عملكم و اعماركم  وكل من يعز على قلوبكم و يحسن صنعكم للخير لاتنسوني من الرد ... وشكرا

هذا الجدول توضيح والمرفقات جدول العمل

 

Database5.rar

تم تعديل نوفمبر 12, 2021 بواسطه ابوعبدالله_1972

[ابوعبدالله_1972]

ياحبيب فين ... 🤔

[ابوعبدالله_1972]

شكرا 😰 للجميع اعضاء افسينا

تم تعديل نوفمبر 18, 2021 بواسطه ابوعبدالله_1972

[jjafferr]

هدئ اعصابك ، الموضوع معقد اكثر مما يظهر 🙂

اليوم ان شاء الله اعرض عليك كود ممكن يحل الموضوع 🙂

 

لاحظ ، انت قلت بدون كود ، وانا قلت كود 🙂

 

جعفر

[ابوعبدالله_1972]

شكرا -- ما اخرني عنكم = دخولي المستشفي (بسبب القلب) باكر الله فيكم بارك الله فيكم وشكرا

[ناقل]

3 ساعات مضت, ابوعبدالله_1972 said:

شكرا -- ما اخرني عنكم = دخولي المستشفي (بسبب القلب) باكر الله فيكم بارك الله فيكم وشكرا

الف لا باس عليك ... اجر وعافية

[ابو جودي]

أولا :
طهور إن شاء الله، أوصيكم بالصبر والثبات والإكثار من ذكر الله، أعظم الله أجركم، وضاعف مثوبتكم، شفاكم الله وعافاكم 
اللهم إني أسألك بأسمائك الحسنى وبصفاتك العلا وبرحمتك التي وسعت كلّ شيء، أن تمنّ علي أخونا عبد الله وعلى كل مريض بالشفاء العاجل، وألّا تدع فينا جرحًا إلّا داويته، ولا ألمًا إلا سكنته، ولا مرضًا إلا شفيته، وألبسنا ثوب الصحة والعافية عاجلًا غير آجل، وشافِنا وعافِنا واعف عنا، واشملنا بعطفك ومغفرتك، وتولّنا برحمتك يا أرحم الراحمين إلهي أذهب البأس ربّ النّاس، اشف وأنت الشّافي، لا شفاء إلا شفاؤك، شفاءً لا يغادر سقمًا، أذهب البأس ربّ النّاس، بيدك الشّفاء، لا كاشف له إلّا أنت يا رب العالمين
ربنا الله الذي في السماء، تقدّس اسمك، أمرك في السماء والأرض، كما رحمتك في السماء، اجعل رحمتك في الأرض، اغفر لنا خطايانا، أنت رب الطيبين، أنزل رحمة من رحمتك، وشفاءً من شفائك على على كل مريض من أي وجع فيبرأ
اللهم يا مُفرّج الكرب يا مُجيب دعوة المُضطرين، اللهم ألبس كل مريض ثوب الصحة والعافية عاجلًا غير آجل يا أرحم الراحمين، اللهم اشفى كل مريض ، اللهم اشفى كل مريض، اللهم اشفى كل مريض،
اللهم آمين

-----------------------

ثانيا :
تتمحور فكرتي المتواضعة في هذه الاكواد والتي تكتب في موديول ويتم استدعائها حسب الحاجة

انظر التطبيق داخل الاستعلام

Public Function CountCapitals(fld) As Integer
If fld & "" = "" Then Exit Function

Dim StrLn As Integer
CountCapitals = 0

For StrLn = 1 To Len(fld)
  Select Case Asc(Mid(fld, StrLn, 1))
  Case 65 To 90: CountCapitals = CountCapitals + 1
  End Select
Next StrLn
End Function

Public Function CountSmall(fld) As Integer
If fld & "" = "" Then Exit Function

Dim StrLn As Integer
CountSmall = 0

For StrLn = 1 To Len(fld)
  Select Case Asc(Mid(fld, StrLn, 1))
  Case 97 To 122: CountSmall = CountSmall + 1
  End Select
Next StrLn
End Function

Public Function CountingNumbers(fld) As Integer
If fld & "" = "" Then Exit Function

Dim StrLn As Integer
CountingNumbers = 0

For StrLn = 1 To Len(fld)
  Select Case Asc(Mid(fld, StrLn, 1))
  Case 48 To 57: CountingNumbers = CountingNumbers + 1
  End Select
Next StrLn
End Function

Public Function CountingArabic(fld) As Integer


If fld & "" = "" Then Exit Function

Dim StrLn As Integer
CountingArabic = 0

For StrLn = 1 To Len(fld)
  Select Case Asc(Mid(fld, StrLn, 1))
    
  Case 192 To 214: CountingArabic = CountingArabic + 1
  Case 216 To 219: CountingArabic = CountingArabic + 1
  Case 221 To 223: CountingArabic = CountingArabic + 1
  Case 225: CountingArabic = CountingArabic + 1
  Case 227 To 230: CountingArabic = CountingArabic + 1
  Case 236 To 237: CountingArabic = CountingArabic + 1
  End Select
Next StrLn
End Function

Public Function CountingSpecialCharacter(fld) As Integer
If fld & "" = "" Then Exit Function

Dim StrLn As Integer
CountingSpecialCharacter = 0

For StrLn = 1 To Len(fld)
  Select Case Asc(Mid(fld, StrLn, 1))
  Case 33 To 47: CountingSpecialCharacter = CountingSpecialCharacter + 1
  Case 58 To 64: CountingSpecialCharacter = CountingSpecialCharacter + 1
  Case 91 To 96: CountingSpecialCharacter = CountingSpecialCharacter + 1
  Case 123 To 126: CountingSpecialCharacter = CountingSpecialCharacter + 1
  End Select
Next StrLn
End Function

 

Database5.accdb

[ابو جودي]

تعديل واضافة

تم اضافة نوع البيانات من خلال الكود الاتى ... انظر النتيجة فى الاستعلام 
 

Public Function EnterType(fld)
  If CountCapitals(fld) > 0 Or CountSmall(fld) > 0 Then EnterType = "حروف انجليزية"
  If CountingArabic(fld) > 0 Then EnterType = "حروف عربية"
  If CountingNumbers(fld) > 0 Then EnterType = "ارقام"
  If CountingSpecialCharacter(fld) > 0 Then EnterType = "رموز"
  If CountCapitals(fld) > 0 Or CountSmall(fld) > 0 And CountingNumbers(fld) > 0 Then EnterType = "حروف انجليزية و ارقام"
  If CountingArabic(fld) > 0 And CountingNumbers(fld) > 0 Then EnterType = "حروف عربية و ارقام"
End Function

 

Database5 - 2.accdb

[jjafferr]

السلام عليكم 🙂

 

الله ان شاء الله يسهل عليك ، وقوم بالسلامة ان شاء الله 🙂

 

من الصعب التغلب على سرعة اباجودي 🙂

 

هذه محاولتي:

الاستعلام:

الحقل ALL ينادي الوحدة النمطية Count_Chr ، ويرسل معها قيمة الحقل Enter ، 

.

الحقل ALL يستلم عدد مرات وجود الحقول الاخرى ، وبين كل قيمة حقل ، وضعت حرف ابجدي متسلسل ، حتى استطيع من خلال الاستعلام ان:

انادي الوحدة النمطية مرة واحدة فقط لكل سجل ، ثم نفكك قيمة الحقل ALL الى بقية الحقول (وعلشان تجربة التفكيك ، قمت بعمل وحدة نمطية اسمها myTest ، وكل حقل اعطيته رقم a1 ثم a2 ... وهكذا)

.

الآن وعندك هذه القيم في استعلام ، وفي وحدة نمطية ، يمكنك الاستفادة منه بالطريقة التي تريدها 🙂

 

هذه هي الوحدات النمطية:

Public Function Count_chr(str As String) As String

    'NA = رقم عربي
    'CA1 = حرف عربي
    'NE =  رقم انجليزي
    'CE1 = حروف انجليزي كبيرة
    'CE2 = حروف انجليزي صغيرة
    'B1 = اشكال و رموز
    
    Dim i As Integer
    Dim NA As Integer, CA1 As Integer, NE As Integer, CE1 As Integer, CE2 As Integer, B1 As Integer
    Dim Each_Letter As String
    
    
    For i = 1 To Len(str)
    
        Each_Letter = Mid(str, i, 1)
        
        If Asc(Each_Letter) >= 48 And Asc(Each_Letter) <= 57 Then
            'English Numbers
            NE = NE + 1
            
        ElseIf Asc(Each_Letter) >= 65 And Asc(Each_Letter) <= 90 Then
            'English, Capital letters
            CE1 = CE1 + 1
            
        ElseIf Asc(Each_Letter) >= 97 And Asc(Each_Letter) <= 122 Then
            'English, Samall letters
            CE2 = CE2 + 1
            
        ElseIf (AscW(Each_Letter) >= 1569 And AscW(Each_Letter) <= 1594) Or _
           (AscW(Each_Letter) >= 1600 And AscW(Each_Letter) <= 1610) Then
           'Arabic Letters
           CA1 = CA1 + 1
           
        ElseIf AscW(Each_Letter) >= 1632 And AscW(Each_Letter) <= 1641 Then
            'Arabic Numbers
            NA = NA + 1
                        
        Else
            'Symbols
            B1 = B1 + 1
                        
        End If
        
    Next i
    
    'send the result, seperated with letters,
    'then parse the result into its 6 components (see Function myTest)
    Count_chr = NA & "A" & CA1 & "B" & NE & "C" & CE1 & "D" & CE2 & "E" & B1 & "F"

    'Debug.Print NA & vbTab & CA1 & vbTab & NE & vbTab & CE1 & vbTab & CE2 & vbTab & B1 & vbTab & str
End Function



Function myTest()

    Dim a1 As String, a2 As String, a3 As String, a4 As String, a5 As String, a6 As String, ALL As String

    ALL = "1A22B333C4444D55555E666666F"
     
    a1 = Mid(ALL, 1, InStr(ALL, "A") - 1)
    a2 = Mid(ALL, InStr(ALL, "A") + 1, InStr(ALL, "B") - (InStr(ALL, "A") + 1))
    a3 = Mid(ALL, InStr(ALL, "B") + 1, InStr(ALL, "C") - (InStr(ALL, "B") + 1))
    a4 = Mid(ALL, InStr(ALL, "C") + 1, InStr(ALL, "D") - (InStr(ALL, "C") + 1))
    a5 = Mid(ALL, InStr(ALL, "D") + 1, InStr(ALL, "E") - (InStr(ALL, "D") + 1))
    a6 = Mid(ALL, InStr(ALL, "E") + 1, InStr(ALL, "F") - (InStr(ALL, "E") + 1))
        
End Function

.

للحصول على الارقام الصحيحة للامر Asc (للارقام والحروف الانجليزية) و AscW (للارقام والحروف العربية) ، استعنت بالصور الموجودة في هذا الموضوع:

https://www.officena.net/ib/topic/104923-قراءة-وتفكيك-بيانات-الحقل-الى-حقول/

 

ولكني لم افهم قصدك في آخر سجلين:

المطوب لايتكرر و

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

 

جعفر

1408.Parse_a_Value.accdb.zip

[ابو جودي]

1 ساعه مضت, jjafferr said:

السلام عليكم 🙂

من الصعب التغلب على سرعة اباجودي 🙂

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

العفو منكم أستاذي الجليل و ومعلمي القدير و والدى الحبيب أستاذ @jjafferr 

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

أما طريقتكم هي طريقة المحترفون أستاذي 

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

 

تم تعديل نوفمبر 21, 2021 بواسطه ابا جودى

[jjafferr]

شكرا اباجودي على هذه الكلمات الجميلة ، ونسأل الله سبحانه وتعالى ان يقدرنا على المزيد من العطاء 🙂

 

جعفر

[ابوعبدالله_1972]

شكرا بارك الله فيكم و انا اسف على ازعجاكم ... اللَّهُمَّ إِنِّي أَسْأَلُكَ بِأَنِّي أَشْهَدُ أَنَّكَ أَنْتَ اللَّهُ لَا إِلَهَ إِلَّا أَنْتَ، الأَحَدُ الصَّمَدُ، الَّذِي لَمْ يَلِدْ، وَلَمْ يُولَدْ، وَلَمْ يَكُنْ لَهُ كُفُوًا أَحَدٌ ان يبارك في اخواننا المنتدي خاصة و الناس عامه .... وشكراً

ممكن سوال : الافضل بترتيب 1برمجة الاكسسAVB او 2فيجول استديو او 3فيجول بيسك 4 لغة سي (الله يبارك فيكم تردو عشان تحديد المطلوب تعليمة في الجامعة) و سامحوني الله يبارك فيكم ... وشكرا

[ابو جودي]

6 ساعات مضت, ابوعبدالله_1972 said:

شكرا بارك الله فيكم و انا اسف على ازعجاكم ... اللَّهُمَّ إِنِّي أَسْأَلُكَ بِأَنِّي أَشْهَدُ أَنَّكَ أَنْتَ اللَّهُ لَا إِلَهَ إِلَّا أَنْتَ، الأَحَدُ الصَّمَدُ، الَّذِي لَمْ يَلِدْ، وَلَمْ يُولَدْ، وَلَمْ يَكُنْ لَهُ كُفُوًا أَحَدٌ ان يبارك في اخواننا المنتدي خاصة و الناس عامه .... وشكراً

ممكن سوال : الافضل بترتيب 1برمجة الاكسسAVB او 2فيجول استديو او 3فيجول بيسك 4 لغة سي (الله يبارك فيكم تردو عشان تحديد المطلوب تعليمة في الجامعة) و سامحوني الله يبارك فيكم ... وشكرا

شكر الله لكم وزرقكم خير الدنيا والاخرة 

من وجهة نظرى المتواضعة والله اعلم 

على الترتيب 

C#

فيجوال بيزك دوت نت

ويلزم للتعامل معهما Sql