Tabelle # ' Vedi Excella.frm pacchetto ATessile
Sub Form_Resize Dim MioMDB As Database Dim MioRST As Recordset, fldRecordset As Field Dim I As Integer ferma = False 'Stringa = "SELECT Ordini.dataOrdine, Fornitori.[Ragione Sociale] AS Fornitore, Clienti.[Ragione Sociale] AS Cliente, Ordini.Pezzi, Ordini.Totale, Ordini.TotaleEuro, Ordini.[Data Consegna], Ordini.idOrdine" 'Stringa = Stringa & " FROM Fornitori INNER JOIN (Clienti INNER JOIN Ordini ON Clienti.IdCliente = Ordini.codiceCliente) ON Fornitori.IdFornitore = Ordini.IdFornitore" 'Stringa = Stringa & " Where (((Ordini.[Data Consegna]) = " & Chr(34) & "0710" & Chr(34) & "))" 'Stringa = Stringa & " ORDER BY Fornitori.[Ragione Sociale], Clienti.[Ragione Sociale];" 'Data1.RecordSource = Stringa Data1.Refresh Data1.Recordset.MoveLast Label2.Caption = "Record totali " & Data1.Recordset.RecordCount Label2.Refresh Set MioMDB = OpenDatabase(Data1.DatabaseName) Set MioRST = MioMDB.OpenRecordset(Data1.RecordSource) ' Assegna alle variabili di oggetto un oggetto ' Field da insiemi Fields differenti. On Error GoTo errore For I = 0 To Data1.Recordset.Fields.Count Set fldRecordset = MioRST.Fields(I) OutputCampo "Recordset", fldRecordset Next errore: MioRST.Close MioMDB.Close Data1.Refresh 'Label2.Caption = "Record totali " & Data1.Recordset.RecordCount 'Label2.Refresh End Sub Sub OutputCampo(strTemp As String, fldTemp As Field) ' Funzione di report per FieldX. Dim PrpCiclo As Property ' Debug.Print "Proprieta' Field valide in " & strTemp ' Enumera l'insieme Properties dell'oggetto Field List1.AddItem fldTemp.Name ' For Each PrpCiclo In fldTemp.Properties ' ' Alcune proprieta' non sono valide in certi ' ' contesti, ad esempio la proprieta' Value ' ' nell'insieme Fields di TableDef. Qualsiasi ' ' tentativo di utilizzo di una proprieta' non ' ' valida causera' un errore. ' On Error Resume Next '' Debug.Print " " & prpCiclo.Name & " = "; prpCiclo.Value ' If PrpCiclo.Name = "Name" Then ' List1.AddItem PrpCiclo.Value ' ' End If ' On Error GoTo 0 ' Next PrpCiclo End Sub |