Waarde als label weergeven

NajKwin · 15 mrt 2021

Goedemorgen,

Ik heb 2 ws kleine vragen waar ik niet helemaal uit kom:

In bijgaand formulier wil ik graag dat de aanschafdatum in het formulier wijzigingen (Update_Record_Frm) weergeven als label maar weet niet hoe ik dit moet doen.

en als ik het begin formulier sluit via het kruisje rechtsboven in de hoek opent hij hem nog een keer en pas na de 2e keer sluit hij wel gewoon.

Waar doe ik hier fout

m.v.g.

Naj

OctaFish · 15 mrt 2021

Ad 1: hoe bepaal je de datum die je in het label wilt zien?
Ad 2: je hebt twee keer .show in je code zitten, dus hij wordt twee keer geopend.

Code:

    UserForm1.Show
    With UserForm1
        .StartUpPosition = 0
        .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
        .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
    End With

NajKwin · 15 mrt 2021

Ad 1

aan de hand van het merk wordt automatisch het jaar ingevuld en die waarde zou ik graag in een label hebben

ad 2 stom stom stom had ik zelf kunnen bedenken

OctaFish · 15 mrt 2021

Dus je wilt niet de aanschafdatum, maar het aanschafjaar zien? Dat is simpel:

Code:

Private Sub ComboBox4_Click()
    Me.Label1.Caption = Me.ComboBox4.Value
End Sub

Ik zou mezelf overigens heel snel aanleren om zinvolle namen te gebruiken voor je objecten. Als je code wilt toevoegen aan een object in je formulier, dan heb je met namen als "ComboBox1" en "ComboBox4" geen flauw idee welke combobox je nu aan het aanpassen bent. Heet het ding cboJaar, dan weet je exact wat je aan het doen bent.

NajKwin · 15 mrt 2021

Thanks Octafish.

Ik zal je tips onthouden en het de volgende keer op die manier te doen

Waarde als label weergeven

NajKwin

Gebruiker

Bijlagen

OctaFish

Verenigingslid

NajKwin

Gebruiker

OctaFish

Verenigingslid

NajKwin

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy