Cor de Snor
Gebruiker
- Lid geworden
- 27 okt 2001
- Berichten
- 64
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 Bijschrift16_Click()
With Me
If .OrderBy = "[Titel]" Then
.OrderBy = "[Titel] Desc"
ElseIf .OrderBy = "[Titel] Desc" Then
.OrderBy = "[Titel]"
Else
.OrderBy = "[Titel]"
End If
.OrderByOn = True
End With
End Sub
Sub UpdateTitels()
Dim rs As DAO.Recordset
Dim txt As String, ori As String, i As Integer, j As Integer
Set rs = CurrentDb.OpenRecordset("Songtitel")
With rs
Do While Not .EOF
If Asc(Left(.Fields(1), 1)) < 65 Then
ori = .Fields(1).Value
txt = ""
j = 1
Do Until Asc(Mid(.Fields(1), j, 1)) >= 65
j = j + 1
Exit Do
Loop
For i = j To Len(.Fields(1))
txt = txt & IIf(Mid(.Fields(1), i, 1) < 65, " ", Mid(.Fields(1), i, 1))
Next i
txt = Trim(txt)
.Edit
.Fields(1).Value = txt
.Update
End If
.MoveNext
Loop
End With
MsgBox "Alle records aangepast!"
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.