Function NewField(Db_Name, Table_Name, Pole_Name, Pole_Tip, Pole_Size)
Dim MyField As Field
Dim MyTable As TableDef
Dim MyDb As Database
On Error GoTo NewField_Error
Set MyDb = CurrentDb
Set MyTable = MyDb.TableDefs(Table_Name)
MyTable.Fields.Append MyTable.CreateField(Pole_Name, Pole_Tip, Pole_Size)
On Error GoTo 0
Exit Function
NewField_Error:
'Call Zapis_ERR("Module_Tabl" & " -> " & "NewField", Err.Number, Err.Description)
End Function
|