Pytanie : Dlaczego Wszystkie textboxes, nakazowy guzik, combo pudełko etc… na forma:

PROBLEMOWY DESCRIPTION
Disable wszystkie textboxes, commcand zapinać, comboboxes, zakładka etc…. na the form
"frmProjects_NEW_VER1 "
Until the użytkownik wchodzić do ono the Projekt imię i Projekt number

WHAT I TRIED
I stawiać ten kod w the forma" "frmProjects_NEW_VER1" na the obciążeniowy wydarzenie i ono pracować:
Dim c Gdy Kontrolny
On Błąd Życiorys Next
For Kontrolny c W Me.Controls
c.Enabled = c.Name = "ProjectName "
Next c
____________________________________

What I potrzebować?
_______________________________________

To odtwarzać problem:
1. Logon
2. Zegar 'Nowy Projekt "
3. Zauważać że the użytkownik móc wszystkie informacja na the
frmProjects_NEW_VER1 i OPRÓCZ bez the Projekt imię lub Projekt number.

Attachments:

With-Code-AHA-Builder-2010-VER-1.zip (705 KB) (Ewentualny Kartoteka Typ Niedopasowanie)

db

Deactivate-7-25-2010.jpg (94 KB) (Kartoteka Typ Szczegół)

image

Odpowiedź : Dlaczego Wszystkie textboxes, nakazowy guzik, combo pudełko etc… na forma:

Pytanie 1. I zamieniać the kod I stawiać w the DALEJ OTWARTY WYDARZENIE z:
Intymny Okręt podwodny VerifyNameAndNumber ()
Jeżeli Len (Me.ProjectName) > (0) I Len (Me.ProjectNumber) > (0) Wtedy
    Ciemnawy c Kontrola
        Dla Me.Section c W Me.Section ((0)). Kontrola
            Jeżeli c.ControlType = acTextBox Lub c.ControlType = acCommandButton Wtedy
                'MsgBox c.Name
                c.Enabled = Prawdziwy
            Kończyć Jeżeli
        Następny c
Kończyć Jeżeli

Nie, ty pamiętać?
I I wysyłać tutaj 33293015?
Tutaj być the całkowity poczta znowu:

Bingo!

W Ten Sposób próbować to:

Intymny Okręt podwodny VerifyNameAndNumber ()
Jeżeli Len (Me.ProjectName) > (0) I Len (Me.ProjectNumber) > (0) Wtedy
    Ciemnawy c Kontrola
        Dla Me.Section c W Me.Section ((0)). Kontrola
            Jeżeli c.ControlType = acTextBox Lub c.ControlType = acCommandButton Lub c.ControlType = acCombobox Wtedy
                'MsgBox c.Name
                c.Enabled = Prawdziwy
            Kończyć Jeżeli
        Następny c
Kończyć Jeżeli

; -)

Żadny the $50,000 Dolarowy pytanie być:
Móc ty móc *enable the comboboxes w the "VerifyNameAndNumber" *enable procedura?

; -)

Jeff
\