Datenvollständigkeit von Tabelle in Prozent

Computer: Software & Programmierung Microsoft Access
#1

Hi,

Ich suche eine Lösung für folgendes Problem:
Ich möchte in einem Formular darstellen (mittels Textfeld) wieviel Prozent einer Tabelle ausgefüllt, heißt vollständig sind.

Hab die Anzahl der Datensätze ein ungebundenes Textfeld in einem Formular per: =Anzahl(*) errechnen lassen

Nun möchte ich die Spaltenanzahl berechnen (auch wenn ich diese zählen könnte, aber man weiß ja nie was sich noch ändert).
Habe jetzt ein Modul gefunden: „Spaltenanzahl“

Public Function SpaltenZaehlen(Haupttabelle As String)

Dim db As Database
Dim td As DAO.TableDef

Set db = CurrentDb
Set td = db.TableDefs(Haupttabelle)
Debug.Print td.Fields.Count
Set td = Nothing

End Function

Nun will ich in einem ungebundenen Textfeld (Text4) die Spaltenanzahl zeigen lassen. Weiß natürlich nicht was für ein Ereignis ich nun benutzen soll und vom Code hab ich gleich auch mal null Ahnung.

Private Sub Form_Open(Cancel As Integer)

Text4 = SpaltenZaehlen(„Haupttabelle“)

End Sub

Passiert nix im Textfeld.
Kann mir denn jemand helfen?

Danke, LiSchu

#2

Hallo,

was auch immer Du mit „Datenvollständigkeit“ meinst und damit bezwecken willst, versuch u. st. Code:

Public Function SpaltenZaehlen(Haupttabelle As String)

Dim db As Database
Dim td As DAO.TableDef

Set db = CurrentDb
Set td = db.TableDefs(Haupttabelle)
SpaltenZaehlen = td.Fields.Count
Set td = Nothing

End Function

Private Sub Form_Load()

Me!Text4 = SpaltenZaehlen(„Haupttabelle“)

End Sub

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#3

Vielen lieben Dank! Funktioniert wunderbar!