|
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
\
|
|
|
