[kon73]

Μετατρέποντας ελαφρά τον κώδικα για το Where και βάζοντας μόνο το ID του πελάτη ας υποθέσουμε πως ονομάζεται CustomerID και όχι Name (Επίθετο έχουμε)

Στην κλήση της συνάρτησης αντί ρουτίνας που ήταν προστήθεται και το ID του πελάτη που θέλουμε να καλέσουμε.

Public Function ViewRecordPerField(ByVal TblName As String, CustID As Variant)

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

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

Dim Fld As Object, Tbl As TableDef, RcdSetTable As DAO.Recordset, TempTxt as String

Set Tbl = CurrentDb.TableDefs(TblName)

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

If Not RcdSetTable.EOF And Not RcdSetTable.BOF Then

            For Each Fld In Tbl.Fields

                TempTxt=TempTxt &  Fld & vblf

            Next

'Καλούμε το PrintTemp

 PrintTemp "tmp.txt", TempTxt 

End If

End Function



Function PrintTemp(tmpName$, oText$) ' Όνομα ή και διαδρομή αρχείου, κείμενο που θα εκτυπωθεί.

Dim fso As Object, oStream As Object, oWs As Object

Set oStream = fso.CreateTextFile(tmpName, True, True)

oStream.Write oText

oStream.Close

  Set oWs = CreateObject("WScript.Shell")

  oWs.Run "NotePad.exe /p tmpName"

End Function