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.
Private Sub medewerker_naam_Bijschrift_Click()
fSort Me, "medewerker_naam"
End Sub
Private Sub Bijschrift4_Click()
fSort Me, "rechten"
End Sub
Private Sub Bijschrift5_Click()
fSort Me, "Actief"
End Sub
Function fSort(frm As Form, fld As String)
Dim sTmp() As String, i As Integer, sSort As String
sSort = ""
If frm.OrderBy = fld Then
frm.OrderByOn = True
If InStr(1, fld, ",") > 0 Then
sTmp = Split(fld, ",")
For i = 0 To UBound(sTmp)
sTmp(i) = Trim(sTmp(i))
If i = 0 Then
sSort = sSort & sTmp(i) & " DESC"
Else
sSort = sSort & sTmp(i) & " ASC"
End If
If i < UBound(sTmp) Then sSort = sSort & ", "
Next i
frm.OrderBy = sSort
Else
frm.OrderBy = fld & " DESC"
End If
Else
frm.OrderByOn = True
frm.OrderBy = fld
End If
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.