Finns fælt i tabell?

Prøv at se dette: http://imar.spaanjaars.com/QuickDocId.aspx?quickdoc=262 :)

On error go to errorhandler
din kode der opretter feltet
errorhandler:
If Err = 3380 Then
MsgBox "Fetnavnet findes allerede."
End If

Hej mugs!
Jag vill bara ha ett besked om huruvida fæltet finns eller inte.
Det har inget med skapandet av nytt fælt att gøra.

Ja - Men du må jo gøre noget for at risikere 2 enslydende feltnavne, f.eks i relation til dit tidligere spørgsmål.

Hbis du prøver at oprete et nyt felt med et navn der i forvejen eksistere, vil der opstå fejl 3380. Og min errorhandler opfanger fejl 3380 og giver dig en msgbox

Jag førstår vad du menar, men min fråga nu har inget med den tidigare frågan att gøra.
Oavsett om fæltet skall skapas eller inte, vill jag ha besked om vis fæltet existerar eller inte.

Jag vill att koden skall ge svaret True eller False på frågan om fæltet existerar..

Koden giver svaret når du prøver at oprette. Men hvilken hændelse skal indtræffe for at du vil måle på, om feltet eksisterer hvid du ikke vil oprette det.

Du kunne også bruge en kode som nedenstående til at tjekke om feltet findes i tabellen:

Public Function FindesFelt(Felt As String, Tabel As String) As Boolean
    Dim AntalFelter As Integer
    Dim i As Integer
    FindesFelt = False
    AntalFelter = CurrentDb.TableDefs(Tabel).Fields.Count
    For i = 0 To AntalFelter - 1
        If CurrentDb.TableDefs(Tabel).Fields(i).Name = Felt Then
            FindesFelt = True
            Exit For
        End If
    Next
End Function

Den vil returnere True hvis feltet findes og False hvis det ikke findes.

Fik du et svar du kunne bruge?

Lukketid?