title image


Smiley TIPP: Prüfen ob Feld existiert
(Mal abgesehen davon, dass man eigentlich immer wissen sollte, welche Felder welche Tabelle hat und in einem "dynamischen" Tabellendesign meist irgendwo grundsätzlich der Wurm drinsteckt...)





Public Function FieldExistsInTable(TblName As String, FldName As String)

Dim Tbl As DAO.TableDef, Fld As DAO.Field, DB As DAO.Database

On Error Resume Next

FieldExistsInTable = False

Set DB = CurrentDb

Set Tbl = DB.TableDefs(TblName)

If Err.Number 0 Then Exit Function

Set Fld = Tbl.Fields(FldName)

If Err.Number 0 Then Exit Function

FieldExistsInTable = True

End Function





(DAO-Verweis muss gesetzt sein!)


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: