Ciao L'errore sta nel fatto che prima nomini i "TextBox" con "TB_Prodotti1-2-3-etc" e poi nella verifica e pulizia li chiami "TextBox", come vedi qui
For nTB = 1 To 5
If Me.Controls("TB_Prodotti" & nTB).Value = "" Then
Me.Controls("TB_Prodotti" & nTB).SetFocus
Err.Raise vbObjectError + 513, Description:="inserire " & Me.Controls("Label" & nTB).Caption
End If
Next nTB ho sostituito io "TexBox" con "TB_Prodotti" vi è anche da un altra parte lo stesso errore, e non ho controllato se vi sarà lo stesso errore da qualche altra parte.
Non capisco la mania di cambiare nome agli oggetti, che vengono gestiti meglio da Excel con i loro nomi originali
Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui