Originariamente inviato da Nuvolari2
Ok, ho trovato un errore che ho commesso:
il campo della tabella lo definivo come testo, invece che come numero.
ora che l'ho valorizzato come numero, non appare più la finestrella ed effettivamente la funzione genera un numero random... ma quel numero random generato (sempre quello, lo stesso) lo mette in tutti i record!
Io invece avrei bisogno che ogni singolo record avesse un numero random generato (non importa anche se ci sono eventuali doppi, l'importante è che ogni record abbia un numero casuale compreso in un determinato intervallo... per esempio fra 100 e 200).
Allora usa una procedura tipo:
codice:
Dim mdatabase As DAO.Database
Set mdatabase = CurrentDb
Dim mrecord As DAO.Recordset
Set mrecord = mdatabase.OpenRecordset("select * from tabella1")
mrecord.MoveFirst
Do Until mrecord.EOF
With mrecord
.Edit
!numero = Int(Rnd * 100) + 100
.Update
.MoveNext
End With
Loop
Set mdatabase = Nothing
Set mrecord = Nothing