استخراج رقم الحساب من رقم الايبان

[amir_adam83]

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

كل عام وانتم بخير 

اريد استخراج رقم الحساب من رقم الايبان تلقائي

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

Function GetNumbers(SText)
    For i = 1 To Len(SText)
        If Not (IsNumeric(Left(SText, i))) Then
            GetNumbers = Left(SText, i - 1)
            Exit Function
        End If
    Next
End Function

مرفق البرنامج للتعديل عليه شكرا لكم

DB1.rar

[ابوخليل]

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

Odb_AccBanck = Right(Odb_AccBanckIBAN, 14)

 

DB2.rar

[amir_adam83]

23 minutes ago, ابوخليل said:

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

Odb_AccBanck = Right(Odb_AccBanckIBAN, 14)

 

DB2.rar 25.32 kB · 1 download

ابوخليل

مشكورررررررررررررررررررررررررررر كل الشكر اخي واستاذي هذا بالفعل هو المطلوب بارك الله فيك

كل عام وانت بخير

وجزاك الله خير الجزاء

[kha9009lid]

2 ساعات مضت, ابوخليل said:

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

احسن الله اليك استاذنا ابو خليل

فائدة لمن يهمه الامر

يمكن ايضا الحصول على اسم البنك من خلال رقم الايبان حيث ان الرقم الخامس والسادس خاصة برمز البنك

SA7915000000000000000000

البنك الاهلي 10
بنك البلاد      15
بنك الرياض    20
البنك العربي   30
سامبا    40
ساب    45
البنك السعودي الهولندي 50
السعودي الفرنسي    55
مصرف الراجحي  80
الانماء 05
الجزيرة. 60

وهكذا يمكن عمل كود بسيط يتم من خلالة كتابة اسم البنك بمجرد ادخال رقم الايبان

والفكرة ببساطة عمل متغير من نوع رقم يساوي

x = Mid([Odb_AccBanckIBAN], 5, 2)

ثم استخدام Select Case او اي طريقة مشابهه

لكتابة الاحتمالات الخاصة باسم البنك وكذلك السويفت كود

والله الموفق

[ابوخليل]

14 دقائق مضت, kha9009lid said:

احسن الله اليك استاذنا ابو خليل

فائدة لمن يهمه الامر

يمكن ايضا الحصول على اسم البنك من خلال رقم الايبان حيث ان الرقم الخامس والسادس خاصة برمز البنك

 

شكرا استاذنا القدير  على هذه الفائدة والمعلومة الجديدة

الذي اعرفه هو رمز فرع البنك وهو الارقام الثلاثة 11 ، 12 ، 13

[أمير ادم]

kha9009lid

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

جزاكم الله خير الجزاء

[amir_adam83]

20 hours ago, kha9009lid said:

احسن الله اليك استاذنا ابو خليل

فائدة لمن يهمه الامر

يمكن ايضا الحصول على اسم البنك من خلال رقم الايبان حيث ان الرقم الخامس والسادس خاصة برمز البنك

SA7915000000000000000000

البنك الاهلي 10
بنك البلاد      15
بنك الرياض    20
البنك العربي   30
سامبا    40
ساب    45
البنك السعودي الهولندي 50
السعودي الفرنسي    55
مصرف الراجحي  80
الانماء 05
الجزيرة. 60

وهكذا يمكن عمل كود بسيط يتم من خلالة كتابة اسم البنك بمجرد ادخال رقم الايبان

والفكرة ببساطة عمل متغير من نوع رقم يساوي

x = Mid([Odb_AccBanckIBAN], 5, 2)

ثم استخدام Select Case او اي طريقة مشابهه

لكتابة الاحتمالات الخاصة باسم البنك وكذلك السويفت كود

والله الموفق

كيف اسوي جملة Select Case

[kha9009lid]

5 ساعات مضت, أمير ادم said:

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

 

42 دقائق مضت, amir_adam83 said:

كيف اسوي جملة Select Case

واضح انك مستعجل اخي امير لا داعي لاي تعقيدات

الحقيقة ممكن نعملها بعدة طرق وباكواد وبدون اكواد عن طريق منشئ التعبير

على كل حال الطريقة الاسهل

اولا

نعمل جدول باسماء البنوك يحتوى على حقلين

    معرف البنك مفتاح اساسي ونوعة رقم نسجل فيه رموز البنوك والتي كما ذكرنا تكون رقم 5 و 6 من جهة اليسار في الايبان
    اسم البنك حقل نصي

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

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

ثانيا في جدول حسابات العملاء نضيف حقل اسم البنك من نوع نص

ثالثا في النموذج تسجيل الحسابات البنكية

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

Dim b As String
Dim x As Integer
x = Mid([Odb_AccBanckIBAN], 5, 2)
Odb_AccBanck = Right(Odb_AccBanckIBAN, 14)
b = DLookup("[n_bank]", "tbl_bank", "[id]=" & x)
Me.n_bank = b

تم عمله على السريع ولم اقم بمراجعته بسبب انشغالي فعذرا مقدما

الملف مرفق

DB2.accdb

[amir_adam83]

بيض الله وجهك وجزاكم الله خير الجزاء

 

[amir_adam83]

 

On 4/23/2021 at 12:26 AM, kha9009lid said:

 

واضح انك مستعجل اخي امير لا داعي لاي تعقيدات

الحقيقة ممكن نعملها بعدة طرق وباكواد وبدون اكواد عن طريق منشئ التعبير

على كل حال الطريقة الاسهل

اولا

نعمل جدول باسماء البنوك يحتوى على حقلين

    معرف البنك مفتاح اساسي ونوعة رقم نسجل فيه رموز البنوك والتي كما ذكرنا تكون رقم 5 و 6 من جهة اليسار في الايبان
    اسم البنك حقل نصي

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

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

ثانيا في جدول حسابات العملاء نضيف حقل اسم البنك من نوع نص

ثالثا في النموذج تسجيل الحسابات البنكية

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

Dim b As String
Dim x As Integer
x = Mid([Odb_AccBanckIBAN], 5, 2)
Odb_AccBanck = Right(Odb_AccBanckIBAN, 14)
b = DLookup("[n_bank]", "tbl_bank", "[id]=" & x)
Me.n_bank = b

تم عمله على السريع ولم اقم بمراجعته بسبب انشغالي فعذرا مقدما

الملف مرفق

 

DB2.accdb 552 kB · 7 downloads

 

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

عفوا رقم الايبان المدخل ليس مسجل ضمن قائمة البنوك برجاء التاكد من رقم الحساب الصحيح

[kha9009lid]

منذ ساعه, amir_adam83 said:

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

جرب ولكن من المهم ان يتم تسجيل اسماء ورموز البنوك في جدول البنوك لان الفكرة الاساسية مبنيه على الارقم 5 و 6 في جدول البنوك

 

 

DB2.accdb