Questione : Come rendere invalide tutti i caselle di testo, pulsanti di comando, caselle combinate ecc… sulla forma:

Il PROBLEMA DESCRIPTION
Disable tutte le caselle di testo, commcand si abbottona, comboboxes, linguette ecc…. sul form
“frmProjects_NEW_VER1 " il
Until l'utente ha introdotto sia il nome di progetto che il number

WHAT I TRIED
I di progetto ha messo questo codice nella forma„ “frmProjects_NEW_VER1„ sull'evento del carico e non ha funzionato: il
Dim c come il riassunto Next
For di errore del
On di controllo ogni c in Me.Controls
c.Enabled = c.Name = c
____________________________________

What del
Next “di ProjectName " fa io deve fare? il
_______________________________________

To ricrea il problema:
3. di nuovo progetto " dell'orologio del
1. Logon
2. '. Notare che l'utente può fornire tutte le informazioni sul
frmProjects_NEW_VER1 e scattarsi SALVO senza entrare nel nome di progetto o nel progetto number.


 class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

il nome di schedario " del class= di >With-Code-AHA-Builder-2010-VER-1.zip " fileSize " > (705 Kb) il Javascript inatteso " del href= " dei attachmentDetails del class= " di (tipo di lima possibile disadattamento)
class= " descrizione " >db
del
il class= di
del >
il
il nome di schedario " del class= di >Deactivate-7-25-2010.jpg " fileSize " > (94 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)
class= " descrizione " >image
del
“dello src=„ /images/t330238/Deactivate-7-25-2010.jpg„
il class= di
del >
class= del

Risposta : Come rendere invalide tutti i caselle di testo, pulsanti di comando, caselle combinate ecc… sulla forma:

Domanda 1. Sostituisco il codice che metto nell'EVENTO SOPRA APERTO con:
VerifyNameAndNumber secondario riservato ()
Se Len (Me.ProjectName) > 0 e Len (Me.ProjectNumber) > 0 allora
    C fioca come controllo
        Per ogni c in Me.Section (0). Comandi
            Se c.ControlType = acTextBox o c.ControlType = acCommandButton allora
                'MsgBox c.Name
                c.Enabled = allineano
            Concluder se
        C seguente
Concluder se

No, non vi ricordate?
Che cosa ho inviato qui 33293015?
Qui è ancora l'intero alberino:

Bingo!

Così provare questo:

VerifyNameAndNumber secondario riservato ()
Se Len (Me.ProjectName) > 0 e Len (Me.ProjectNumber) > 0 allora
    C fioca come controllo
        Per ogni c in Me.Section (0). Comandi
            Se c.ControlType = acTextBox o c.ControlType = acCommandButton o c.ControlType = acCombobox allora
                'MsgBox c.Name
                c.Enabled = allineano
            Concluder se
        C seguente
Concluder se

; -)

Nessun la domanda dei $50.000 dollari è:
Potete adattare questo al codice *enable i comboboxes nella procedura secondaria “di VerifyNameAndNumber„?

; -)

Jeff
\
Altre soluzioni  
 
programming4us programming4us