Frage : Wie man alle area per informazioni, Befehlsknöpfe, kombinierten Kästen ETC… auf Form sperrt:

PROBLEM DESCRIPTION
Disable alle area per informazioni, commcand knöpft, comboboxes, Vorsprünge usw.…. auf dem form
„frmProjects_NEW_VER1 "
Until hat der Benutzer den Projektnamen eingetragen und Projekt number

WHAT I TRIED
I gab diesen Code in die Form“ „frmProjects_NEW_VER1“ auf dem Lastsereignis ein und es funktionierte nicht:
Dim c, wie Steuer
On Störungs-Zusammenfassung Next
For jedes c in Me.Controls
c.Enabled = c.Name = „ProjectName "
Next c
____________________________________

What ich tun, muss tun?
_______________________________________

To erstellen Problem neu:
1. Logon
2. Taktgeber-'neues Projekt "
3. Beachten, dass der Benutzer alle Informationen über das
frmProjects_NEW_VER1 einbringen und AUSSER, ohne dem Anmelden des Projektnamens oder des Projektes number.


klicken kann

Antwort : Wie man alle area per informazioni, Befehlsknöpfe, kombinierten Kästen ETC… auf Form sperrt:

Frage 1. Ersetze ich den Code, den ich in das AN GEÖFFNETE EREIGNIS mit eingebe:
Privates VorVerifyNameAndNumber ()
Wenn Len (Me.ProjectName) > 0 und Len (Me.ProjectNumber) > 0 dann
    Schwaches c als Steuerung
        Für jedes c in Me.Section (0). Kontrollen
            Wenn c.ControlType = acTextBox oder c.ControlType = acCommandButton dann
                'MsgBox c.Name
                c.Enabled = ausrichten en
            Beenden wenn
        Folgendes c
Beenden wenn

Nicht nicht erinnern Sie?
Was bekannt gab ich hier 33293015 293015?
Ist hier der gesamte Pfosten wieder:

Bingo!

Dieses so versuchen:

Privates VorVerifyNameAndNumber ()
Wenn Len (Me.ProjectName) > 0 und Len (Me.ProjectNumber) > 0 dann
    Schwaches c als Steuerung
        Für jedes c in Me.Section (0). Kontrollen
            Wenn c.ControlType = acTextBox oder c.ControlType = acCommandButton oder c.ControlType = acCombobox dann
                'MsgBox c.Name
                c.Enabled = ausrichten en
            Beenden wenn
        Folgendes c
Beenden wenn

; -)

Kein ist die $50.000-Dollar-Frage:
Können Sie dieses dem *enable Code anpassen die comboboxes im „VerifyNameAndNumber“ Vorverfahren?

; -)

Jeff
\
Weitere Lösungen  
 
programming4us programming4us