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