Philcattivocarattere ha scritto:
Premo88 ha scritto:
premetto che ho usato molte volte VBA per Excel mentre MAI per Access.
e per quello che chiedi non serve vba ma è sufficiente una query.
Premo88 ha scritto:
... con Access mi trovo proprio male..
Perché, come ha detto Osvaldo, Excel non è Access. Perché vuoi farlo con o su Access?
Io infatti lo farei molto semplicemente in Excel con 2 foglio distinti e scriverei direttamente su un altro foglio però sono Aimhe "obbligato" a farlo con Access.
Comunque, sono arrivato a questo codice:
Dim DBCorrente As Database
Dim Tabellone As Recordset
Dim R As Recordset
Set Tabellone = DBEngine(0)(0).OpenRecordset("SELECT a.*, b.* FROM SOFIA AS a INNER JOIN SIMCORP AS b ON a.PortfolioCode=b.Portfolio", dbOpenDynaset)
Set R = DBEngine(0)(0).OpenRecordset("RIS", dbOpenDynaset)
Do Until Tabellone.EOF
If Tabellone.Fields("EndDate") = Tabellone.Fields("Todate") Then
'R.Fields("Risultato").Value = "Uguale" <----
Else
R.Fields("Risultato").Value = "NO" <--------
End If
Tabellone.MoveNext
Loop
Tabellone.Close
DBCorrente.Close
End Su
Quindi confronto, faccio ciclo per tutte le righe e ho un problema dove c'è la freccia, cioè nel momento di scrivere sulla tabella R "uguale" se verificata l'uguaglianza e "NO" se è False
Non so come scrivere su altra tabella, ho trovato su google il metodo Addnew ma ho provato e non riesco...