disabilitare campo access vba dopo la compilazione (impedire la modifica)

buongiorno a tutti da Marcello, confido nella vostra preparazione per risolvere un problema con il mio programma. Ho necessità di disabilitare un campo a seguito della compilazione in quanto , una volta compilato, da' il nome a una cartella e pertanto voglio impedire la successiva modifica. Ho provato il seguente schema:

 
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
 If nome_cartella.Value = Null Then
 nome_cartella.Enabled = False
 Else: nome_cartella.Value = Not Null
 nome_cartella.Enabled = True
 Exit Sub
 End If
End Sub

però non va. Qualcuno può darmi qualche suggerimento? grazie

Originariamente inviato da marcello1

Qualcuno può darmi qualche suggerimento? grazie

Il trucco da tenere bene a mente è questo: quando una proprietà di tipo booleano è determinata dal verificarsi o meno di una condizione si fa così

NomeControllo.ProprietàBooleana = (espressione di verifica booleana)

senza passare dall'uso di IF

nome_cartella.Enabled = Len(nome_cartella.Value & vbNullString) = 0

Adesso cerca l'evento o gli eventi giusti in cui posizionare questo codice.

L'esigenza di CREARE cartelle tematiche è argomento che si associa più alla non piena consapevolezza di come si lavora con i Database..., inutile dire che è un retaggio di chi è abituato ad avere un'organizzazione di File che rispecchia un determinato ordine mentale, ma che nella realtà non ha alcun senso tecnico usando un Database.

Detto questo, il suggerimento di Phil è corretto, ma l'evento su cui applicarlo è errato, te ne accorgeresti cambiando Record dopo l''evento OPEN... che nei records successivi lo status di ENABLED non sarebbe condizionato dalla "condizione" reale ma sempre dalla prima...!

Quindi l'evento corretto è Current ma, condizionato dalla verifica del Nuovo Record...

Private Sub Form_Current()
    If Not Me.NewRecord then
       nome_cartella.Enabled = Len(nome_cartella.Value & vbNullString) = 0
    Else
       nome_cartella.Enabled = True
    End if
End Sub

Oppure per estremizzare la sintesi

Private Sub Form_Current()
    nome_cartella.Enabled = (Len(nome_cartella.Value & vbNullString) = 0 ) OR Me.NewRecord 
End Sub

Originariamente inviato da @Alex

L'esigenza di CREARE cartelle tematiche è argomento che si associa più alla non piena consapevolezza di come si lavora con i Database..., inutile dire che è un retaggio di chi è abituato ad avere un'organizzazione di File che rispecchia un determinato ordine mentale, ma che nella realtà non ha alcun senso tecnico usando un Database.

Detto questo, il suggerimento di Phil è corretto, ma l'evento su cui applicarlo è errato, te ne accorgeresti cambiando Record dopo l''evento OPEN... che nei records successivi lo status di ENABLED non sarebbe condizionato dalla "condizione" reale ma sempre dalla prima...!

Quindi l'evento corretto è Current ma, condizionato dalla verifica del Nuovo Record...

Private Sub Form_Current()
    If Not Me.NewRecord then
       nome_cartella.Enabled = Len(nome_cartella.Value & vbNullString) = 0
    Else
       nome_cartella.Enabled = True
    End if
End Sub

Oppure per estremizzare la sintesi

Private Sub Form_Current()
    nome_cartella.Enabled = (Len(nome_cartella.Value & vbNullString) = 0 ) OR Me.NewRecord 
End Sub

grazie mi hai risolto il problema. Non ci sarei mai arrivato altrimenti. grazie ed a presto. Complimenti per la competenza.