Newsgroup: it.comp.appl.access
Titolo: Recordset da VBA con For Each

Ho la necessità di aprire un recordset in vba in base al valore di alcuni 
campi nella tabella Causale Pagamento....
Faccio un esempio...
Nella tabella Causale Pagamento ho inserito 12 campi, con tipo dati SI/NO, 
denominati ctl30, ctl60 ctl90 ctl120 ecc.
Nell'inserimento dela fattura fornitore indico il pagamento a 30/60 gg, 
tramite recordset da vba divido l'importo della fattura in base al numero di 
scadenze che in questo caso sono due.
Adesso devo assegnare le date di scadenza è ho la necessità tramite 
recordset di ciclare la tabella per vedere i campi contrassegnati che 
corrispondono a ctl30 e ctl60, e calcolare la data di scadenza in base a 30 
giorni per la prima e di 60 giorni per la seconda.
Mi date una dritta facendomi un esempio tipo For Each?
Ho provato in una maschera a fare questo esempio ma non riesco con la 
tabella
Dim ctl As Control
        For Each ctl In Controls
            If Left(ctl.Name, 3) = "cTl" Then
                If ctl = -1 Then
                 Qui faccio tutto quello che mi serve per calcolarmi la data
                Else
                Continuo
               End If
            End If
         Next
Grazie a tutti
Ciao Max

 ha scritto nel messaggio 
news:49be519d$0$1119$4faf...@reader2.news.tin.it...

E' un pò complicato a scriverlo...soprattutto non avendo nessun riferimento 
in merito a tabelle e campi...ma ci sono varie strade dipende da quello che 
vuoi ottenere...
una un pò sbrigativa la potresti ottenere anche senza for...
data la tua tabella puoi fare una select e ricavare poi importo e data di 
scadenza con un dateserial
diversamente devi usare i recordset
es.
Set rstScadenze = CurrentDb.OpenRecordset("tblScadenze")
For i = 1 To ....
       .....
next i
guardati la guida trovi molti esempi di cicli e recorset
ciao
-- 
Roberto da Parma


Roberto ti spiego meglio e vediamo se riesci ad aiutarmi:
----Tabella Causali Pagamento-----
IDCausalePagamento.............Contatore
DescrizionePagamento............Testo
Ctl30.....................................SI/NO
Ctl60                                          "
Ctl90                                          "
Ctl120                                        "
Ctl150                                        "
Ctl180                                        "
Ctl210                                        "
Ctl240                                        "
Ctl270                                        "
Ctl300                                        "
Ctl330                                        "
Ctl360                                        "
-----Tabella Movimenti------
IDMovimento
DataMovimento
NumeroMovimento
IDCausalePagamento
DataFattura
NumeroFatura
ImportoFattura
Ecc.
Voglio semplicemente creare un ciclo che mi metta in condizione di ripetere 
un'operazione all'interno del ciclo per il pagamento...
Es:
ImportoFattura              1.500,00
Supponiamo che il pagamento previsto è a 30/60 giorni (pertanto sulla 
tabella Causali Pagamento i campi spuntati a SI sono Ctl30 e Ctl60)
Vorrei tramite un ciclo intercettare il campo Ctl spuntato a SI, ed eseguire 
una serie di recordset ad ogni campo spuntato della tabella, che in questo 
caso sono due.
Non so se mi sono spiegato bene...
Saluti Max