tekstboxen en comboboxen rood kleuren als ze niet zijn ingevuld

Status
Niet open voor verdere reacties.
G

gast0660

Terugkerende gebruiker
Lid geworden
28 dec 2010
Berichten
4.530
Ik heb volgende code in een userform knopje.
Code: 
 If C_01.Value = "Toevoegen" Then
        If C_02.Value = "" Or T_02.Value = "" Or T_03.Value = "" Or T_05.Value = "" Or C_03.Value = "" Or T_06.Value = "" _
           Or T_07.Value = "" Or T_09.Value = "" Or C_04.Value = "" Or C_05.Value = "" Or C_06.Value = "" _
           Or T_14.Value = "" And C_04.Value = "VB" Or T_15.Value = "" And C_04.Value = "VB" Or T_16.Value = "" Or C_07.Value = "" _
           Or T_17.Value = "" Or T_25.Value = "" Then
           MsgBox "Gelieve de rood gekleurde velden in te vullen", vbCritical, "Check!"
        End If
C_02 is een combobox, T_02 is een textbox etc...
Ik krijg het alleen niet voor elkaar om de lege controls rood te laten kleuren of ingevulde controls te ontkleuren zonder ellenlange codes te gebruiken.
Iemand een idee?
 
Voorbeeldje? (zonder de vraag echt gelezen te hebben):d
 
@ Venaake,kweet ,kweet het, maar
Om een file van 2187 kb om te bouwen naar een vbtje.
eerst maar eens zo proberen.
Met een paar slimme kerels zoals Vena of ....:d moet dat lukken.
 
Code: 
Sub M_snb()
     If InStr(Join(Array(C_02, T_02, T_03, C_03, T_06, T_07, T_09, c_04, C_05, C_06, T_14, T_15, T_16, T_17, T_25), "|"), "||") Then MsgBox "vermijd berichten dat de gebruik iets 'verkeerd' gedaan zou hebben; maak het userform ergonomischer"
End Sub
 
@ snibie,
maak het userform ergonomischer
Klik om te vergroten...
kweet het.
Helaas, it is not my call.
Teveel Amerikaantjes die beslissingen mogen nemen in the port of Antwerp.
 
misschien heb je aan dit vbtje iets
Code: 
  For Each Ctrl In Me.Frame2.Controls
    If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then
      Ctrl.BackColor =IIf(Ctrl.Value = vbNullString, &H8080FF, &H80000005)
    End If
  Next Ctrl
 
Laatst bewerkt:
Hoi,
Ik geraak geen meter verder vandaag. zit al een halve dag de tips van snibie uit te proberen.
In bijlage een vbtje (die niet werkt, als alles is ingevuld krijg ik toch nog een msgbox ) (ongeveer de originele code) (vbtje, anders is Vena niet tevreden:p)
de bedoeling is :
Als er in C_01 (Indicate Action) een keuze wordt gemaakt (3 keuzes) heb je een aantal verplichte velden. (3 x verschillend)
Ik krijg het niet voor elkaar,noch met lange stukken code, noch met de tips van snibie:eek:
Ik weet dat ik ergens overkijk maar ik zie het niet.
Graag advies.
PS: in het originele bestand zitten er 7 userforms (die ik graag zou terugbrengen naar één met tabs) maar dit is nu nog niet van belang.
 

Bijlagen

  • PLANT PARTS MAINTENANCE 2.0help mij.xlsb
    113,5 KB · Weergaven: 63
Laatst bewerkt:
Tsja.....
 

Bijlagen

  • Tsja dotch.xlsb
    103,7 KB · Weergaven: 68
Laatst bewerkt:
Hoi snibie,
hartelijk dank voor de Tsja dotch:p.
Hiermee ga ik weer een stuk bijleren!:thumb:
Ik zal dit morgen eens rustig doorspitten.
Hartelijk dank aan de andere helpers voor het meedenken.
(voorlopig?? zal ik het draadje sluiten)
 
Wacht nog efkes.... Ik heb een nieuwe versie

1. alle velden zijn rood, totdat ze enige inhoud hebben.
2. alle knoppen zijn onzichtbaar, tenzij aan de voorwaarde van volledige invulling van teksten en keuzes is voldaan.
3. hopelijk naar uw 'goesting'.
 

Bijlagen

  • Tsja dotch.xlsb
    103,2 KB · Weergaven: 82
Laatst bewerkt:
@ snibie
draadje terug open:eek:
Volgens de keuze in C_01 zijn er verschillende velden verplicht, hoe kan ik dit eventueel aanpassen?
Nooit allemaal.
Misschien ben ik nu "greedy"?
 
Ik wacht nog op een inhoudelijke reaktie.:d
 
Tja, snibie,
Uw vbtje is een zelfstudie projectje geworden.
Dit krijg ik nog altijd niet voor elkaar :eek:
Volgens de keuze in C_01 zijn er verschillende velden verplicht
Klik om te vergroten...
Voorlopig maar opgelost met zoiets :

Code: 
If ... then
GoTo ....
Else
If ....
MsgBox "Please Fill In ALL Required Fields", vbCritical, "Check!"
        Exit Sub
    End If
 
Het ging mij om jouw eerste vraag en het antwoord daarop.
Van die laatste vraag kon ik geen chocola (noch iets anders) maken.
 
Sorry snibie als ik onduidelijk was:confused:
Het komt er gewoon op neer, als een waarde wordt gekozen in een combobox (keuze tussen twee waarden) dan zijn er twee textboxen verplicht of niet verplicht.
Zoiets als gekozen snibie in de combobox dan zijn er 10 textboxen verplicht in te vullen ,gekozen dotch in de combobox dan zijn er 8 textboxen verplicht in te vullen .
(En om het helemaal gemakkelijk te maken :)rolleyes:) 7 userforms met diverse voorwaarden, helaas heb ik over het aantal userforms niets in de pap te brokken )
 
Lijkt me simpel:

een combobox met daarvan afhankelijke tekstvakken krijgt in de .tag eigenschap de namen (wat mij betreft liever de indexnummers) van de gekoppelde tekstvakken per keuze. Die tekstvakken worden dan rood gekleurd als de combobox een bepaalde waarde aanneemt.

Nou jij weer ......
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan