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

[حامل المسك]

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

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

وفقكم الله لدي مشكلة يحتاج لها قليلا من التفكير ...

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

ولعل المثال يوضع المقال

رعكم الله

مسار.rar

[ابوخليل]

تفضل

msar.rar

[حامل المسك]

فكرة فكرة فكرة رائعة جدا جدا جدا ...

لا أدري كيف أكافؤك جزاك الله كل خير ورحم والديك في الدنيا والآخرة

[أبو آدم]

Private Sub Form_Open(Cancel As Integer)
Dim XA, XB, XC As Object, i As String, X As Integer
    For X = Me.db_cmb.ListCount - 1 To 0 Step -1
        Me.db_cmb.RemoveItem (X)
    Next X
    Set XA = CreateObject("Scripting.FileSystemObject")
    Set XB = XA.GetFolder(CurrentProject.Path).Files
    For Each XC In XB
        i = XA.GetExtensionName(XC.Name)
        i = UCase(i)
        If i = "mdb" Then
        Me.db_cmb.AddItem (XC.Name)
        End If
    Next
    Set XA = Nothing
    Set XB = Nothing
End Sub

كلام جميل ... هكذا يكون التميز

 

شكراً أبا خليل

 

..............

[حامل المسك]

وتتميمًا للفائدة وآمل تصحيحي إذا أخطأت

أنه في حال استخدام الكود السابق يتم التعديل فقط في

db_cmb حيث إنه اسم مربع التحرير والسرد

وكذلك "mdb" وهو الامتداد المطلوب عرضه

وباقي الكود على ما هو عليه

[ابوخليل]

كلام جميل ... هكذا يكون التميز

شكرا  لاخي وأستاذي ابا آدم  على المرور والتقييم

لا اخفيك .. انقطاعك ترك فراغا مؤثرا في المنتدى

كان الله في عونك وحفظك اينما كنت 

 

 

وتتميمًا للفائدة وآمل تصحيحي إذا أخطأت

أنه في حال استخدام الكود السابق يتم التعديل فقط في

db_cmb حيث إنه اسم مربع التحرير والسرد

وكذلك "mdb" وهو الامتداد المطلوب عرضه

وباقي الكود على ما هو عليه

نعم هو ما ذكرت