Newsgroup: it.comp.appl.access
Titolo: Esempio Do Loop.

Buongiorno a tutti, ho la seguente necessità,
Ho una form con due campi numerici: INIZIO; FINE e un pulsante GENERA
devo attribuire all'evento click del pulsante un codice che mi popola una 
tabella VALORI con un campo numerico NUMERO, i record con i valori compresi 
da INIZIO FINE.
INIZIO 2
FINE 9
Risultato Tabella
NUMERO
2
3
4
5
6
7
8
9
grazie per l'aiuto 

 FINE 9
Ti basta un "For... To"
Dim x as integer
Dim inizio as integer
Dim fine as integer
inizio = 2
fine = 9
For x = inizio To fine
 "apri il recordset e inserisci il valore x nel record"
Next x
-- 
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media." 

 ha scritto nel 
messaggio news:egi5h3$53s$1...@area.cu.mi.it...

Grazie per il suggerimento, ma volendo utilizzare i comandi do.. loop.. 
if... then...??
mi puoi fare un esempio ??
Set db = currentdb
Set rs = db.openrecordset("TABELLA")
numero = 0
I = 1
rs.addnew
rs!numero = I + 1
rs.update
rs.movenext
volevo arrivare a 25 ed uscire
Scusa ma non sono pratico di vba :(


Alur...
Do
     rs.addnew
     rs!numero = I + 1
     rs.update
     I=I+1
    if I=25 then exit do
Loop
oppure
Do Until I=26
     rs.addnew
     rs!numero = I + 1
     rs.update
     I=I+1
Loop
26 perché senno il 25 non te lo fa
Cmq una occhiatina all'Help ciclo do.. loop trovi ottimi esempi...
Ciao
Nik

> Grazie per il suggerimento, ma volendo utilizzare i comandi do.. loop..
Dim rs As Recordset
Set rs = CurrentDb.openrecordset("TABELLA")
Di conta as integer
Do While conta< 25
    conta=conta+1
    rs.addnew
    rs!numero = conta
    rs.update
    rs.movenext
Loop
rs.Close
Set rs = Nothing
conta=0
if... then lascialo perdere...


 ha scritto nel messaggio 
news:6s7Xg.143225$zy5.1...@twister1.libero.it...

Tante Grazie funziona perfettamente !!
posso sostituire le variabili con i campi della tabella
esempio se voglio partire, anziche da zero dal valore contenuto nel campo 
"INIZIO" della form e finire con il Campo "FINE" della stessa Form ?? 


Certo è la lezione n.2 che penso puoi provare a fare da solo...
gli indizi li hai...
i=inizio
e al posto del 25 o del 26, dipende dall'esempio ci metti fine...
Try
Nik

 ha scritto nel messaggio 
news:MZ7Xg.143276$zy5.1...@twister1.libero.it...

Ok
    Do
    rs.addnew
     rs!numero = DataInizio
     rs.update
     DataInizio = DataInizio + 1
    if  DataInizio = DataFine then exit do
 Loop
alla fine per aggiungere anche il record con Datafine ho scritto:
rs.addnew
rs!numero = DataFine
rs.update
ho aggunto un altro campo "test" alla tabella
come faccio a dirgli che durante l'esecuzione del ciclo
If  DataInizio = 20-ott-06
    rs!update = si
  Else rs!update =no
ossia se il record numero contiene il valore 20-ott-06 scrivi si altrimenti 
scrivi no su tutti i record ??? 


Scusa ma Datainizio contiene un numero e poi gli passi una data?
Datainizio è la data odierna? o è una data che imposti/selezioni tu?
Il campo test è booleano? (si/no)
questa --> rs!update = si <-- non la capisco: deve fare l'update?
Nik

 ha scritto nel messaggio 
news:9drXg.457$uv5...@twister1.libero.it...

Hai ragione, mi sono fatto prendere dalla frenesia:
nella tabella "TABELLA" ho il campo data "numero" campo di testo "Test"
Ho una maschera con due caselle di testo, DataInizio e DataFine, ho inserito 
il codice all'evento click di un tasto e correttamente mi valorizza il campo 
numero con la data compresa tra i campi DataInizio e DataFine. e il campo 
test vuoto.
ora vorrei fare in modo che nel momento in cui il codice scrive la data su 
ogni record "numero"  della tabella ,scriva nel campo "Test" NO, se il 
record "numero" è uguale ad X scriva nel campo "Test" SI....
poi avrei altri milioni di domande.....

 ha scritto nel messaggio
news:BvrXg.556$Fk...@twister2.libero.it...

allora...
Ok
Do until Datainizio=Datafine+1
    rs.addnew
     rs!numero = DataInizio
     rs!test=(datainizio=X)
     rs.update
     DataInizio = DataInizio + 1
 Loop
Spiego:
--Do until Datainizio=Datafine+1 serve per fare il ciclo comprendendo anche
Datafine
-- rs!test=(datainizio=X) esegue un confronto booleano tra Datainizio e il
valore X che serve da controllo: se il confronto è vero assume valore TRUE
cioè SI cioè -1, se il confronto non va a buon fine e quindi datainizio e X
sono diversi... assume valore FALSE cioè 0 cioè NO
spero funzioni...
Attendo notizie
ciao
Nik

 nella tabella "TABELLA" ho il campo data "numero" campo di testo "Test"
il campo test impostalo come boolean

 ha scritto nel messaggio 
news:ZPrXg.514$uv5...@twister1.libero.it...

mmm .non va , ho messo come DataInizio 01-10-2006 e DataFine 31-10-2006, 
rs!test=(datainizio='10-10-2006')
mi crea la tabella con tutti i valori ma nel campo Test, sostituito con 
casella di testo con Si/no ma non mi flegga la data del 10-10-2006.... 


provo:
il campo numero è impostato a campo data!!! giusto?
prova a passare il dato come #10/10/2005#
retry