title image


Smiley Vielleicht so
Folgendes Coding in ein allgemeines Modul kopieren:





Public Function FieldExists(strTable As String, strField As String) As Boolean

Dim retVal As Variant

On Error Resume Next

retVal = CurrentDb.TableDefs(strTable).Fields(strField).Name

FieldExists = (Err.Number = 0)

End Function





Aufruf dann so:





If FieldExists("tblDeineTabelle","fldZuPrüfendesFeld") Then

' supergeniales Coding

End If





Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: