Vraag : Hoe te om alle textboxes, bevelknopen, combodozen etc… op vorm onbruikbaar te maken:

Het PROBLEEM DESCRIPTION
Disable alle textboxes, commcand knopen, comboboxes, voorziet enz.…. van labels op form
„frmProjects_NEW_VER1 "
Until is de gebruiker zowel de naam als Project number

WHAT ingegaan I van het Project TRIED
I deze code in de vorm“ „frmProjects_NEW_VER1“ op de ladingsgebeurtenis zette en het werkte niet:
Dim c aangezien de Fout van de Controle
On Next
For Elk c in Me.Controls
c.Enabled = c.Name = „ProjectName "
Next c
____________________________________

What hervat moet ik doen?
_______________________________________

To ontspant probleem:
1. Logon
2. Klok 'Nieuw Project "
3. Bericht dat de gebruiker al informatie kan ingaan over
frmProjects_NEW_VER1 en SAVE klikken zonder de naam of het Project number.


in te gaan van het Project

Antwoord : Hoe te om alle textboxes, bevelknopen, combodozen etc… op vorm onbruikbaar te maken:

Vraag 1. Vervang ik de code ik de OPEN GEBEURTENIS met aanbracht:
Privé SubVerifyNameAndNumber ()
Als Len (Me.ProjectName) > 0 en Len (Me.ProjectNumber) > 0 toen
    Schemerig c als Controle
        Voor Elk c in Me.Section (0). Controles
            Als c.ControlType = acTextBox of c.ControlType = acCommandButton toen
                'MsgBox c.Name
                c.Enabled = Waar
            Eind als
        Volgende c
Eind als

Nr, zich niet herinnert u?
Wat postte ik hier 33293015?
Hier is de volledige post opnieuw:

Bingo!

Probeer zo dit:

Privé SubVerifyNameAndNumber ()
Als Len (Me.ProjectName) > 0 en Len (Me.ProjectNumber) > 0 toen
    Schemerig c als Controle
        Voor Elk c in Me.Section (0). Controles
            Als c.ControlType = acTextBox of c.ControlType = acCommandButton of c.ControlType = acCombobox toen
                'MsgBox c.Name
                c.Enabled = Waar
            Eind als
        Volgende c
Eind als

; -)

Geen is de kwestie van $50.000 Dollar:
Kunt u dit aan *enable code comboboxes in de subprocedure „VerifyNameAndNumber“ aanpassen?

; -)

Jeff
\
Andere oplossingen  
 
programming4us programming4us