Access Εκτυπωση δεδομενων απο πλαισια λιστας

[Roland]

Prospatho me thn access na kano to eksis.

 

Se mia forma na exo 3 plaisia listas me dedomena apo tris pinakes.

Kanontas klik sto belaki mporo na epilekso opoiodhpote sindiasmo apo ta plaisia.

Mporo na ta tiposo?

 

Mporo na exo dipla ena koympaki poy patontas to na moy tiponei aytes tis tris grames poy epeleksa ?

[Roland]

de m endiaferei na dhmioyrgiso basi dedomenon gia na apothikeyo ta stoixeia.

 

Apla na ektypono to periexomeno toy kathe pedioy ths listas

[agrippas]

Μπορώ να σου πω πώς να πάρεις τα στοιχεία κάθε λίστας με VBA. Φτιάξε ένα κουμπί ας πούμε Command1 και στο συμβάν κλικ βάλε τον κώδικα:

 

>Private Sub Command1_Click()

 Dim i As Long
 Dim strContents1, strContents2, strContents3 As String

 For i = 0 To Onoma1hsListas.ListCount
   strContents1 = strContents1 & Onoma1hsListas.ItemData(i) & vbCrLf
 Next i
 For i = 0 To Onoma2hsListas.ListCount
   strContents2 = strContents2 & Onoma2hsListas.ItemData(i) & vbCrLf
 Next i
 For i = 0 To Onoma3hsListas.ListCount
   strContents3 = strContents3 & Onoma2hsListas.ItemData(i) & vbCrLf
 Next i

End Sub

 

Τώρα το πώς θα εκτυπώσεις τα strContents1,2,3 είναι άλλο θέμα και δεν ξέρω πώς γίνεται Σε καθαρή visual basic αρκεί να κάνεις Printer.Print strContents1 π.χ.

[Roland]

syto tha to kano mesa apo thn access h me visual basic?

[agrippas]

Μέσα από την access, θα βάλεις το κουμπί Command1 και στις ιδιότητές του, στο συμβάν click (ή onclick δε θυμάμαι πώς το έχει) θα πατήσεις δόμηση κώδικα και θα γράψεις αυτό που σου έδωσα.

 

Είναι όμως μόνο για να διαβάσεις τα data, δεν ξέρω πώς μπορείς να τα στείλεις στον printer μέσα από τη VBA.

[Roland]

mporei paralila afoson tha diavasei ta dedomena na ta grapsei se enan deytero pinaka?

[agrippas]

Ναι γίνεται. Φτιάξε πρώτα έναν table με ένα μόνο πεδίο και όνομα onoma_1ou_table. Στην αρχή εκεί που έχεις τα dim πρέπει να προσθέσεις

>Dim adoCon As New ADODB.Connection
Dim strSQL As String

 

και μέσα στην πρώτη λούπα θα είναι κάπως έτσι:

 

>For i = 0 To Onoma1hsListas.ListCount
   strContents = strContents1 & Onoma1hsListas.ItemData(i) & vbCrLf
   strSQL = "INSERT INTO onoma_1ou_table VALUES (" & Onoma1hsListas.ItemData(i) & ");"
   adoCon.Execute strSQL
Next i

 

Τώρα αν θες κάτι διαφορετικό π.χ. να μπαίνουν τα data όλα στο ίδιο table αλλά σε διαφορετικά fields μπορείς εύκολα να το φτιάξεις.

[Roland]

eyxaristo poli file