[Giorgos]

Καλημέρα
τρέχω των πρακάτω κωδικα με access.adp 2007 και βαση SQL (μετατροπή απο 2003 σε 2007) και στο "SetTbl=CurrentDb.TableDefs(TblName)" και εδω μου βγαζει error 91.. εαν το τρεξω με mdb δουλευει κανονικά.. εχω βρει στο διαδικτιο αυτο "CurrentData.AllTables" με αυτο ανοιγει την βάση και διαβαζει τους πινακες.. αλλα δεν μπορω να το προσαρμοσω στον παρακάτω κωδικα που ειναι σαφέστατα πιο λειτουργικος..
Επισης με το ξεκίνημα του κώδικα μου χτυπάει και εδώ "PrintTemp"

Σας ευχαριστώ

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