[stavros]

Τελικά χθές βρήκα πως ελέγχουμε αν υπάρχει ένα σε έναν πίνακα. Ανεβάζω τον κώδικα μήπως τον χρειαστεί και κάποιος άλλος...


Δημιουργούμε μια function με το όνομα FieldExists η οποία έχει δύο ορίσματα το όνομα πίνακα και το όνομα του πεδίου...

Function FieldExists(strTable As String, strField As String) As Boolean
Dim rst As Recordset
Dim fld As DAO.Field


FieldExists = False

On Error GoTo Err_Handle

Set rst = CurrentDb.TableDefs(strTable).OpenRecordset

For Each fld In rst.Fields
If fld.Name = strField Then
FieldExists = True
Exit Function
End If
Next fld




rst.Close
Set rst = Nothing

Err_Exit:
Exit Function

Err_Handle:
Select Case Err.Number
Case 3265 'TableDef not found
MsgBox "This table does not exist in the database. Please check spelling"
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description
End Select
Resume Err_Exit

End Function

και στην συνέχεια την καλούμε όποτε θέλουμε πχ


If FieldExists("onoma_pinaka", "onoma_pediou") Then
MsgBox "Field found"
Else
MsgBox "Field not found"
End If

Ελπίζω να βοηθήσει και κάποιον άλλον......