title image


Smiley Prüfen, ob eine Tabelle ein Feld bereits enthält
Hallo,

ich finde den Fehler in dieser Funktion nicht. Bis jetzt erkennt sie jedes Feld als "Nicht vorhanden"....

Kann mir eine(r) einen Tipp geben? Vielen Dank im Voraus!



Function Feld_vorhanden(Tabellenname As String, Feld As String) As Boolean

'Prüfen, ob ein Feld in einer Tabelle bereits vorhanden ist



Dim Feldvorhanden As Variant

Feld_vorhanden = True

On Error GoTo StrukturUpdate

Feldvorhanden = DLookup("' & Feld & '", "' & Tabellenname & '")

Exit Function

StrukturUpdate:

Feld_vorhanden = False

MsgBox "Leider nicht"

End Function



Grüße

AngeliN

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: