|
|
| |
|
|
| | Как-то так:
Public Function FieldsSearh(TblName As String, fldname As String) As Boolean
Dim rst As DAO.Recordset
Dim fld As Field
On Error GoTo ErrFs
Set rst = CurrentDb.OpenRecordset("SELECT * FROM " & TblName & ";")
For Each fld In rst.Fields
If fld.Name = fldname Then
FieldsSearh = True
Set rst=Nothing
Exit Function
End If
Next
FieldsSearh = False
Set rst=Nothing
Exit Function
ErrFs:
MsgBox Err.Number & Err.Description, vbCritical, "Ошибка"
End Function
Public Sub tst()
Debug.Print FieldsSearh("Tbl1", "Id1")
End Sub
|
| |
| |
| |
| |
|
|
| | Спасибо!
Правда я уже как то обошёл эту проблему. Просто странно, что нет встроенного метода(типа Exist) у коллекции Fields. | |
| |
| |
| |
|
|
| | Использовал скрытый объект WizHook в Access'е.
Function ColumnExists(strNameTable As String, strNameColumn As String) As Boolean
Dim strNameColumns As String
WizHook.Key = 51488399
strNameColumns = WizHook.GetColumns(strNameTable)
ColumnExists = (InStr(1, ";" & strNameColumns, ";" & strNameColumn & ";") > 0)
End Function
|
Также, данной функцией можно определить наличие поля в запросе | |
| |
| |
|
|
