datum en tijd format in een userform

[remco0511]

Hoi,


Ik heb een database gemaakt voor mijn muziekverzameling.
Ik heb nog 3 "kleine" probleempjes
Als ik de Release datum maart 1983 in type en op sla dan veranderd deze in een tijd format dit ik niet wil hebben hoe kan ik dat aanpassen.
Dit is het zelfde met de lengte ik wil 12:12 hebben.
En hoe moet de kolommen van mijn listbox aanpassen.

Remco

 

[DigiCafee]

Voor de eerste 2 vragen stel ik vast dat de weergave van die velden bepaald is door het format dat erop ligt in je database-sheet ...
Pas die aan en waarschijnlijk is het opgelost.

 

[edmoor]

Daarnaast is "maart 1983" geen datum maar gewoon tekst.

 

[remco0511]

Hoi,

Nee het format heb ik al een paar keer veranderd maar het userform zet deze weer terug in het format wat ik niet wil hebben.
en als ik maart 1983 in type dan veranderd het userform in de datum format.

Remco

 

[DigiCafee]

dan zal je de format moeten aanpassen in de properties van de velden die je op de userform hebt gezet...

 

[HSV]

Het principe is als volgt.

Zet in kolom lengte tijden en geen getallen als 12,04.

Private Sub UserForm_Initialize()
With ListBox1
 .List = Blad2.[Data].Value
 For i = 0 To .ListCount - 1
    .List(i, 2) = Format(.List(i, 2), "dd/mm/yyyy")
    .List(i, 7) = Format(.List(i, 7), "hh:mm")
 Next i
End With


TextBox1.Value = Application.Max(Blad2.Columns(1)) + 1
 
 sv = Blad2.Range("a1:ag1")
   For j = 1 To 33
     Me("Label" & j).Caption = sv(1, j)
   Next j
End Sub