Ho provato a fare come dici te...ma,mi hanno consigliato che e' generare un report da codice,per una questio di utilità!
Adesso il problema è:
Creare un report dove i dati che devono essere visualizzati al suo interno, sono gli stessi che compaiono nel datagrid.
Cioè al click sul record del datagrid,mi redige automaticamente un report.
Il nome del report dovrà essere Report & rec.fields(1),che è il campo "nome" & ".txt".
Questo è il codice che mi permette di generare un report,tramite una chiamata (call report_veicolo(valori)),ma non so come farlo generare da Datagrid.
Private Sub Report_veicolo(ByVal codVeicolo As String, ByVal nome As String, ByVal descrizione As String, ByVal immatricolazione As String, ByVal prezzo As String, ByVal caratteristiche As String, ByVal ora As String, ByVal giorno As String)
'Open "c:\" & "Report" & "_" & rec.Fields(1).Value & ".txt" For Output As #110
Open "c:\" & Label1.Caption & "\" & Label1.Caption & ".txt" For Output As #110
Print #110, "_________________________________________________ ______________"
Print #110, " "
Print #110, " AUTO NEGOZI USATI - Report Vendita"
Print #110, "_________________________________________________ ______________"
Print #110, " "
Print #110, "Data e ora di creazione del report: " & giorno & " " & " - " & " " & ora
Print #110, " "
Print #110, " "
Print #110, "Codice del Veicolo: " & codVeicolo 'rec.Fields(0).Value
Print #110, " "
Print #110, "Nome: " & nome 'rec.Fields(1).Value
Print #110, " "
Print #110, "Descrizione: " & descrizione 'rec.Fields(3).Value
Print #110, " "
Print #110, "_________________________________________________ ______________"
Print #110, " "
Print #110, "Immatricolazione: " & immatricolazione 'rec.Fields(4).Value
Print #110, " "
Print #110, "Prezzo: " & prezzo 'rec.Fields(6).Value
Print #110, " "
Print #110, "Caratteristiche: " & caratteristiche 'rec.Fields(7).Value
Close #110
End Sub
Se mi dai una mano mi fai un favore enorme....TNX'S
Ciao.....

Rispondi quotando