[kon73]

Καλησπέρα Γιώργο,

Καλώς ήρθες στο Forum και σου στέλνω τις απαντήσεις σου στο ερώτημά σου.

Public Sub ViewRecordPerField(ByVal TblName As String)

'Απαιτήσεις είναι στα Reference το Microsoft DAO 3.6 Object Library

'Παράδειγμα κλήσης ViewRecordPerField("TblItems")

Dim Fld As Object, IntTabInd As String, Tbl As TableDef, Dbs As Database, RcdSetTable As DAO.Recordset

Set Dbs = CurrentDb

Set Tbl = Dbs.TableDefs(TblName)

Set RcdSetTable = Dbs.OpenRecordset("Select * From " & TblName)

If Not RcdSetTable.EOF And Not RcdSetTable.BOF Then

    RcdSetTable.MoveFirst

        Do While Not RcdSetTable.EOF

            For Each Fld In Tbl.Fields

                Debug.Print RcdSetTable.Fields(Fld.Name).Value

            Next Fld

            RcdSetTable.MoveNext

        Loop

End If

End Sub



Function PrintObject(ByVal RptName As String)

'Κλήση του Print Dialog

'Παράδειγμα PrintObject("RptItems")

On Error Resume Next

    Application.Echo False

        DoCmd.OpenReport RptName, acViewPreview

            DoCmd.RunCommand acCmdPrint

        DoCmd.Close acReport, RptName

    Application.Echo True

End Function