[Tasos]

Καλημέρα σε όλους!

Γιώργο,
Για να εκτυπώσεις τις εγγραφές που χρειάζεσαι, θα πρέπει να δημιουργήσεις
ένα ερώτημα και μια έκθεση που τα δεδομένα της θα πηγάζουν απ αυτό.

Τα πεδία της έκθεσης θα έχουν πρέπει να έχουν ακριβώς το ίδια διάταξη με αυτά του προτυπωμένου έγγραφου.

Φρόντισε να διαμορφώσεις τα πεδία, αλλά και ολόκληρη την έκθεση έτσι που να μην εμφανίζονται περιγράμματα κτλ.

Για να κάνεις ενημέρωση σε πίνακα μέσω *.Adp μπορείς να χρησιμοποιήσεις το παρακάτω παράδειγμα:

Option Compare Database

Option Explicit



Private Sub cmdPrintToNotepad_Click()

    Dim rs As New ADODB.Recordset

    With rs

    

        .Open "SELECT * FROM Customers WHERE Customers.ID = " & _

        "το κριτήριο σου (πχ.Me.Combobox...)", _

        CurrentProject.AccessConnection, 1, 3

        

        If Not .EOF And Not .BOF Then

            MsgBox "Id = " & .Fields(0) & _

                   vbLf & "Company = " & .Fields(1)

            .Fields(1).Value = "νέα τιμή"

            ' Ο κώδικας σου εδώ......

            '.......................................

            '.......................................

            '.......................................

            .Update

        Else

            .Close

            Exit Sub

        End If

        .Close

    End With

End Sub