Ciao, ancora qui.
Ho questa funzione, trovata con la ricerca:
codice:
Dim i, campo, campeggio

for i = 1 to len(Rs("ID_CAT")) 
if isnumeric(mid(Rs("ID_CAT"),i,1)) then 
campo=campo&mid(Rs("ID_CAT"),i,1) 
end if 
next

for i = 1 to len(Rs("ID_UOAT")) 
if isnumeric(mid(Rs("ID_UOAT"),i,1)) then 
campeggio=campeggio&mid(Rs("ID_UOAT"),i,1) 
end if 
next

oRs("ID_CAT")= CINT(campo)
campo=""

oRs("ID_UOAT")= CINT(campeggio)
campeggio=""
lo script fa il suo dovere, ma mi sono accorto di un piccolo bug, nel senso che:

Così funziona:
-dal form seleziono 19 - Milano
-se dal form arriva il valore 19 - Milano tutto funziona e nel campo ID_UOAT del dbase si registra valore 19 e nel campo UOAT Milano;

Così non funziona:
-dal form seleziono 20 - Milano2
-se dal form arriva il valore 20 - Milano2 nel campo ID_UOAT del dbase viene registrato valore 202 e nel campo UOAT Milano.


che errore è????