[Tasos]

Καλημέρα Σταύρο και καλωσόρισες στο φόρουμ!



Σ ευχαριστούμε πολύ για τον κώδικα που ανέβασες!



Εναλλακτικά, μπορείς χρησιμοποιήσεις και τον παρακάτω κώδικα:



Option Compare Database

Option Explicit



Sub Test()

    If FieldExists("pinakas1", "Pedio1") Then

        MsgBox "Field exists!"

    Else

        MsgBox "Field does not exist!"

    End If

End Sub



Function FieldExists(tbl$, fld$) As Boolean

    Dim rst As Object

    On Error GoTo ExitHere

    Set rst = CurrentDb.OpenRecordset(tbl, 4)

    FieldExists = Len(rst.Fields(fld).Name) > 0

ExitHere:

    If Not rst Is Nothing Then

        rst.Close

        Set rst = Nothing

    End If

End Function





Με εκτίμηση



Τάσος