| |
|
|
| | Dim MyField As Field
Dim MyTable As TableDef
Dim MyDb As Database
'Подскажите кто знает - что не так?
Set MyDb = CurrentDb
Set MyTable = MyDb.TableDefs!kas2007
Set MyField = MyTable.CreateField("MyFieldName") '- ругается mismatch | |
| |
| |
| |
|
|
| | Делай вот так
Dim MyTable As TableDef
Dim MyDb As Database
Set MyDb = CurrentDb
Set MyTable = MyDb.TableDefs!kas2007
MyTable.Fields.Append MyTable.CreateField("DayName", dbText, 20) | |
| |
| |
| |
|
|
| | Спасибо попробую...  | |
| |
| |
| |
|
|
| | Set MyField = MyTable.CreateField("MyFieldName") '- ругается mismatch
ругается, потому что вы не указали конкретно, какой именно Field вы задаете - DAO или ADODB. А так как, видимо, ссылка на ADODB стоит выше, то и MyField получился ADODB.
Вот и Type mismatch. | |
| |
| |
| |
|
|
| | Спасибо ясно.
вот так нормально
Function NewField(Db_Name, Table_Name, Pole_Name, Pole_Tip, Pole_Size)
Dim MyField As Field
Dim MyTable As TableDef
Dim MyDb As Database
Set MyDb = CurrentDb
Set MyTable = MyDb.TableDefs(Table_Name)
MyTable.Fields.Append MyTable.CreateField(Pole_Name, Pole_Tip, Pole_Size)
End Function
|
А как , если таблица в другой базе?  | |
| |
| |
| |
|
|
| | Пока вот так в текущей.
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
|
| |
| |
| |
| |
|
|
| |
А как , если таблица в другой базе?
|
| |
| |
| |
| |
|
|
| | А как , если таблица в другой базе?
вместо Set MyDb = CurrentDb используйте Set MyDb = OpenDatabase(...)
см. Help | |
| |
| |
| |
|
|
| | Чет я туплю.
Устал я вчера очень.
Вы совершенно правы.
Спасибо за оказаную помощь
 | |
| |
| |
