قراءة قيم السجلات واسماء الحقول وقيمها من الجدول او الاستعلام

[jjafferr]

السلام عليكم

 

اعرض عليكم هنا طريقة قرءة السجلات Records عن طريق Recordset ، وقراءة اسماء الحقول Fields وقيمة كل حقل (للجداول والاستعلامات) .

 

عندنا الجدول tbl_Letters ،

فيه 3 سجلات ، وترقيمها يبدأ من الرقم 1 ،

وعندنا 6 حقول ، وترقيمها يبدأ من الرقم صفر

.

هذا الكود به حدث لقراءة Fields وقيمة كل حقل ، وحدث لقراءة السجلات Records :

Option Compare Database
Option Explicit

    Dim rst As DAO.Recordset
    Dim i As Integer
    Dim RC As Integer
    Dim RF As Integer
    Dim j As Integer
'

Private Sub cmd_Fields_Click()

    Set rst = CurrentDb.OpenRecordset("Select * From tbl_Letters")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    RF = rst.Fields.Count
    
    'Records
    For i = 1 To RC
        Debug.Print
        Debug.Print rst!A & vbTab & rst!B & vbTab & rst!C & vbTab & rst!D

        'Fields
        For j = 0 To RF - 1
            Debug.Print rst(j).Name & vbTab & rst(j)
        Next j
        
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    
End Sub

Private Sub cmd_Records_Click()

    Set rst = CurrentDb.OpenRecordset("Select * From tbl_Letters")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    For i = 1 To RC
    
        Debug.Print rst!A & vbTab & rst!B & vbTab & rst!C & vbTab & rst!D
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    
End Sub

.

.

نتيجة الزر الاول:

a1  b1  c1  d1
a2      c2  d2
a3  b3      d3

.

ونتيجة الزر الثاني (انا طلبت طباعة السجلات قبل طباعة اسم الحقل وقيمته) :

a1  b1  c1  d1
Auto_ID 1
Auto_Date   26-Dec-17 2:33:22 PM
A   a1
B   b1
C   c1
D   d1

a2      c2  d2
Auto_ID 2
Auto_Date   26-Dec-17 2:33:26 PM
A   a2
B   
C   c2
D   d2

a3  b3      d3
Auto_ID 3
Auto_Date   26-Dec-17 2:33:31 PM
A   a3
B   b3
C   
D   d3

 

جعفر

 

 

825.Records.mdb.zip

[عبد الفتاح كيرة]

شكرا لك

جارى الاطلاع و التجربة