karakters tellen in velden

[Ezekiël]

Hallo,

Wie weet hoe ik de karakters kan tellen in elke veld van een tabel en dat
weergeven in een query? Ik heb onderstaande code, maar nu nog weergeven in
een query.

Dim rs As DAO.Recordset
Dim CC As Long
Dim fd As DAO.Field

Set rs = CurrentDb.Openrecordset("Select * From tabel1")

Do Until rs.EOF
For Each fd In rs.Fields
Debug.Print fd.Name & " : " & Len(Nz(fd.Value))
CC = CC + Len(Nz(fd.Value))
Next fd
rs.MoveNext
Loop

Debug.Print "Total Characters = " & CC

End Sub

[Danny]

-----Original Message-----
Hallo,
Wie weet hoe ik de karakters kan tellen in elke veld van

een tabel en dat

weergeven in een query? Ik heb onderstaande code, maar nu

nog weergeven in

een query.

Maak een knop bij op een van uw formulieren en bij de
Gebeurtenis eigenschap "Bij Klikken" zet ge uw code tussen
die Sub en End Sub.

mvg,
Danny

[M]

Post by Ezekiël
Hallo,
Wie weet hoe ik de karakters kan tellen in elke veld van een tabel en dat
weergeven in een query? Ik heb onderstaande code, maar nu nog weergeven in
een query.
Dim rs As DAO.Recordset
Dim CC As Long
Dim fd As DAO.Field
Set rs = CurrentDb.Openrecordset("Select * From tabel1")
Do Until rs.EOF
For Each fd In rs.Fields
Debug.Print fd.Name & " : " & Len(Nz(fd.Value))
CC = CC + Len(Nz(fd.Value))
Next fd
rs.MoveNext
Loop
Debug.Print "Total Characters = " & CC
End Sub

Select *, len(Veldnaam) as [AantalKarakters) From Tabel1

[Ezekiël]

Hoi M,

Jouw antwoord had ik al een keer uitgeprobeerd, maar om dat te doen voor
100+ velden lijkt mij niet zo goed idee.

Groetjes,

Zeke

Post by M

Post by Ezekiël
Hallo,
Wie weet hoe ik de karakters kan tellen in elke veld van een tabel en dat
weergeven in een query? Ik heb onderstaande code, maar nu nog weergeven in
een query.
Dim rs As DAO.Recordset
Dim CC As Long
Dim fd As DAO.Field
Set rs = CurrentDb.Openrecordset("Select * From tabel1")
Do Until rs.EOF
For Each fd In rs.Fields
Debug.Print fd.Name & " : " & Len(Nz(fd.Value))
CC = CC + Len(Nz(fd.Value))
Next fd
rs.MoveNext
Loop
Debug.Print "Total Characters = " & CC
End Sub

Select *, len(Veldnaam) as [AantalKarakters) From Tabel1
--
M.

[XPS35]

Post by Ezekiël
Hoi M,
Jouw antwoord had ik al een keer uitgeprobeerd, maar om dat te doen voor
100+ velden lijkt mij niet zo goed idee.
Groetjes,
Zeke

SELECT Sum(Len([Tekst])) AS Tekens FROM Tabel

Peter

[M]

Post by Ezekiël
Hoi M,
Jouw antwoord had ik al een keer uitgeprobeerd, maar om dat te doen voor
100+ velden lijkt mij niet zo goed idee.
Groetjes,
Zeke

Post by M

Post by Ezekiël
Hallo,
Wie weet hoe ik de karakters kan tellen in elke veld van een tabel en dat
weergeven in een query? Ik heb onderstaande code, maar nu nog weergeven in
een query.
Dim rs As DAO.Recordset
Dim CC As Long
Dim fd As DAO.Field
Set rs = CurrentDb.Openrecordset("Select * From tabel1")
Do Until rs.EOF
For Each fd In rs.Fields
Debug.Print fd.Name & " : " & Len(Nz(fd.Value))
CC = CC + Len(Nz(fd.Value))
Next fd
rs.MoveNext
Loop
Debug.Print "Total Characters = " & CC
End Sub

Select *, len(Veldnaam) as [AantalKarakters) From Tabel1
--
M.

Je zou een SQL kunnen bouwen middels VBA, je moet dan middels VBA code
de tabel openen en dan voor elke kolom naam die je vindt de SQL
statemen bouwen. Uit eindelijk heb je een string die waarvan je een
query kunt bouwen. Je moet kijken bij tabeldef. Ik heb helaas niet 123
een voorbeeld maar dat lijkt mij de enig methode. Dan wel de vraag
waarom je dit wilt, wat is jou doel van een dergelijke query?