Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Dim rst As DAO.Recordset
Dim strSQL As String
Dim arr() As Integer, i As Integer, j As Integer
If Me.NewRecord Then
Dim sTmp As String
strSQL = "SELECT EigenschapID, Eigenschap FROM tEigenschappen WHERE standaard = TRUE;"
Set rst = CurrentDb.OpenRecordset(strSQL)
With rst
Do While Not .EOF
If i = 0 Then ReDim arr(i)
If i > LBound(arr) Then ReDim Preserve arr(i)
arr(i) = rst!EigenschapID
i = i + 1
.MoveNext
Loop
.Close
End With
For i = 0 To Me.ListBox_trui_reg.ListCount
For j = LBound(arr) To UBound(arr)
If arr(j) = Me.ListBox_trui_reg.ItemData(i) Then
Me.ListBox_trui_reg.Selected(i) = True
Exit For
End If
Next j
Next i
End If
octafish zei:omdat ik een record heb verwijderd kloppen de records niet meer
frans83 zei:Het gaat mij bij vraag 2 vooral om de manier hoe de lijst zich presenteert. Voorheen klikte ik de "scrollbalk" aan en kreeg de lijst overzichtelijk "out of the box" te zien waar ik ook makkelijk doorheen kon scrollen en aan kon vinken wat nodig was. Nu heb ik alleen overzicht in het venster zelf. Uiteraard kan je het vergroten maar de mogelijkheden zijn nog steeds dusdanig groot dat dat geen zin heeft.
frans83 zei:Wat ik bedoel met het verschil van keuzelijst is het volgende: Bijlage 310943
De nieuwe code die wel goed werkt, zit in bericht #30.Zo ja, hoe pas ik dat aan een waar in de code moet ik dan op letten?
Die snap ik niet helemaal. Een keuzelijst heeft andere eigenschappen als een keuzelijst met invoervak, en daar kun je dus ook niets bijmaken of afhalen. Het object is nu eenmaal wat het is.Kan ik de eigenschappen van het venster van een "keuzelijst met invoervak" ook creëren bij een "keuzelijst"?
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.