[VBA/ACCESS] Inserimento dati sottomaschera

[nadia79]

sto cercando di incremetare il numero dinamico dei segnalibro in Word con un ciclo for dove i=0 to tot che corrisponde al recordcount del recordset, questo è il codice:

For i = 0 To tot

If rsDati("NC_NUMREPNOF") <> "" Then
.ActiveDocument.Bookmarks("txtNumRepnof" & i).Select
.Selection.Text = (CStr(rsDati("NC_NUMREPNOF")))
Else
.ActiveDocument.Bookmarks("txtNumRepnof" & i).Select
.Selection.Text = ""
End If
                
If rsDati.EOF = True Then
Exit Sub
Else
rsDati.MoveNext
End If
                
Next i

Il problema però sta nel fatto che tot contiene 24 record difatti il ciclo for funziona ma solo se metto reDati.Movenext!!
Invece se inserisco il controllo If rsDati.EOF = True Then... mi cicla per 24 volte però poi mi esce e va in errore

Invece non dopo il 24° non dovrebbe fare un exit sub?

Errore 3021 Il record corrisponde all'inizio o alla fine oppure è stato eliminato...

Lo so magari sono io che sbaglio la sintassi però per favore un aiuto

[lufo5]

For i = 0 To tot
	
	If rsDati.EOF Then Exit for
	If rsDati("NC_NUMREPNOF") <> "" Then
	  .ActiveDocument.Bookmarks("txtNumRepnof" & i).Select
	  .Selection.Text = (CStr(rsDati("NC_NUMREPNOF")))
	Else
	  .ActiveDocument.Bookmarks("txtNumRepnof" & i).Select
	  .Selection.Text = ""
	End If
	                
	
	
	rsDati.MoveNext
	
                
Next i

mi raccomando, usa le tabulazioni.

[nadia79]

Ciao Iufetto

le tabulazioni le uso solo che quando scrivo i post allineo tutto a sinistra

ho provato come dici te ma mi dà lo stesso errore... :master: perchè giunto alla fine del recordset poi non ha più il controllo!
Ma come mai il mio controllo viene superato? Dovrebbe uscire...

[lufo5]

controlla che non ritorni dento per qualche altro motivo...
la porzione di codice mi pare giusta.. ma non sapendo il resto.
Poi esattamente dove ti da l'errore?

[nadia79]

Niente... comunque ho risolto in parte intercettando il numero di errore e quindi lo gestisco io direttamente per quanto riguarda il problema della data che scrive 0.00.00 anzichè niente come posso fare?
Forse non è Empty...

[nadia79]

up

[nadia79]

up (si può fare per due volte?!?)

Dai un piccolo aiuto sul formato della data nulla

[lufo5]

hai provato con data = null