vba

[Giorgos]

Καλησπέρα αυτο που μου εστειλες και σε ευχαριστώ πολύ δουλευει σε access. απο δικό μου λάθος δεν ανεφερα οτι ειναι access.adp με συνδεση σε SQL 2005. και ο παρακάτω κώδικας δεν μου δουλευει.

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


Το δεύτερο ερώτημα αφορά το εξής..

Public Sub printpelates()

Dim printpelates As ADODB.Recordset
Set printpelates = New Recordset
Dim Grammesselidas As Integer
Dim Grammestypvmenes As Integer

printpelates.Open "SELECT KOD,DIE,ARI,PER FROM EKTYPOSH", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

printpelates.MoveFirst

Grammesselidas = 40
Grammestypvmenes = 0

Open "TESTFILE1.txt" For Output As #1 ' Open file for output.
Write #1, "ΕΚΤΥΠΩΣΗ ΠΕΛΑΤΩΝ "
Grammestypvmenes = Grammestypvmenes + 1
While Not printpelates.EOF
Write #1, printpelates.Fields("KOD") & " - " & printpelates.Fields("DIE") & " - " & printpelates.Fields("ARI") & " - " & printpelates.Fields("PER")
Grammestypvmenes = Grammestypvmenes + 1
If Grammestypvmenes = Grammesselidas Then
Write #1, ""
Write #1, ""
Write #1, ""
Write #1, ""
Write #1, "ΕΚΤΥΠΩΣΗ ΠΕΛΑΤΩΝ "
Grammestypvmenes = 1
End If
printpelates.MoveNext
Wend

Close #1 ' Close file.
printpelates.Close

Αυτό το ειχα φτιάξει παλαιότερα και δουλευε.. τώρα μόλις το τρέξω κολάει το pc..!

φιλικά Γιώργος