Blocco modifica dati in controllo con casella combinata

Question

Ciao,

uso questo: Private Sub Form_Current()

Dim vCtl As Control

For Each vCtl In Controls

If vCtl.ControlType = acTextBox Then

If Len(vCtl & "") <> 0 Then

vCtl.Locked = True

Else

vCtl.Locked = False

End If

End If

Next vCtl

End Sub

per bloccare la modifica dei dati e funziona bene, a parte nei controlli che hanno una casella combinata con lista di valori, dove la modifica è ancora possibile.

Come posso fare per bloccare anche questi inserimenti dati? Uso quel codice perchè ho bisogno di compilare il record in momenti diversi e non posso bloccarlo completamente.

Grazie a presto

Answer 1

Ciao margherita,

basta che modifichi questa riga:

If vCtl.ControlType = acTextBox or  vCtl.ControlType = acComboBox Then 

Ciao

Answer 2

Perfetto!

Grazie per il prezioso aiuto.

Ciao