Daniel Ulbrich
Home > Visual Basic > VBA > Access > Prüfen, ob Feld exisitiert
Menü
Login-Formular
Letzte Änderung:
August 29. 2008 23:58:13
en

Prüfen, ob Feld exisitiert

In einer vorhandenen Tabelle oder Abfrage wird geprüft, ob das angegebenene Feld exisitiert und TRue/ False zurückgegeben. 

Public Function fieldexists(tabe_abfr, Feld) As Boolean
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset(tabe_abfr)
fieldexists = False
For Each fld In rs.Fields
    If fld.name Like Feld Then fieldexists = True
Next
End Function
 

© 2006-2008 Daniel Ulbrich | Alle Rechte vorbehalten | Impressum
Powered by CMSimple | Template Design by NMuD