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

أولا لقراءة الجداول ضع list box و سمها lsttblname ثم استدعي الاجراء الاتي داخل كودك

Sub readtables()
    Dim i, y As Integer

    Set db = OpenDatabase(dbname)
    y = db.TableDefs.Count - 1
    lsttblname.Clear
    For i = 0 To y
        If db.TableDefs(i).Attributes = 0 Then
            lsttblname.AddItem db.TableDefs(i).Name
        End If
    Next

End Sub

ثانيا لقراءة الحقول ضع ثلاث listboxes أخري و سمهم

lstfldname

lstfldsize

lstfldtype

ثم استدعي الاجراء الاتي داخل كودك مع ملاحظة أنه لقراءة الحقول لابد أن تكون قد اخترت أي من الجداول في ال list box الخاصة بالجداول

Sub readflds()
    If lsttblname.Text = "" Then Exit Sub
    lstfldname.Clear: lstfldsize.Clear: lstfldtype.Clear

    Set db = OpenDatabase(dbname)
    Set rs = db.OpenRecordset(lsttblname.Text)

    For i = 0 To rs.Fields.Count - 1
        lstfldname.AddItem rs.Fields(i).Name
        lstfldsize.AddItem rs.Fields(i).Size
        Select Case rs.Fields(i).Type
            Case 10
                lstfldtype.AddItem "Text"
            Case 7
                lstfldtype.AddItem "Double"
            Case 4
                lstfldtype.AddItem "Integer"
            Case 12
                lstfldtype.AddItem "Memo"
            Case 8
                lstfldtype.AddItem "DateTime"
            Case 1
                lstfldtype.AddItem "YesNo"
        End Select
    Next i

    rs.Close
End Sub

بالتوفيق ان شاء الله

أحمد شلبي

ألف ألف شكر أخي العزيز

بالفعل هذا ما أريده بالضبط

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

وشكرا