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


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: