Valorizzazione con numero incrementale di un campo di una tabella

mercoledì 02 luglio 2008 - 15.42

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

sergino Profilo | Newbie

44 messaggi | Data Invio: mer 2 lug 2008 - 15:42

ciao a tutti,
ho bisogno di una dritta. dovrei aggiornare il campo di una tabella access con dei numeri incrementali rispetto
a un numero di partenza che inserisce l'utente.
La procedura dovrebbe prevedere che l'utente inserisca un primo numero - e in automatico tutti i record della
tabella avranno la corretta numerazione sequenziale.
Ad esempio, la tabella ha 10 record - il numero da cui partire è 5 - quindi il campo del primo record sarà
valorizzato con 5, il secondo con 6, il terzo con 7 e così via.

ho provato facendo

Function NUMERA()
Dim SQL_Text As String
Set DBCorrente = CurrentDb
Dim Tabella As DAO.Recordset
Dim Message, Title, Default, MyValue As Integer
Message = "Numero iniziale?" ' Imposta il messaggio.
Title = "" ' Imposta il titolo.
Default = "" ' Imposta il valore predefinito.
' Visualizza il messaggio, il titolo e il valore predefinito.
MyValue = InputBox(Message, Title, Default)
X = MyValue
Set Tabella = DBCorrente.OpenRecordset("TABELLA", dbOpenDynaset)
Do Until Tabella.EOF
SQL_Text = "UPDATE TABELLA SET TABELLA.CAMPO_DA_NUMERARE =" & X
DoCmd.RunSQL SQL_Text
X = X + 1
Tabella.MoveNext
Loop
Tabella.Close
End Function

solo che mi valorizza il campo per tutti record : numero iniziale + nro record
dov'è l'errore?
grazie mille
sergio

Dainesi Profilo | Senior Member

476 messaggi | Data Invio: mer 2 lug 2008 - 20:25

Inserisci il primo record (il campo da numerare deve essere un Long o Intero Lungo) e dopo aver inserito il numero 5 (numero di partenza) cambi il campo in tipo contatore.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !