Всех с наступившим! Дико извиняюсь, но я искал и к сожалению нормального, подходящего по моим параметрам ответа не нашел, вроде бы банальная вещь, но не работает ..
Итак, есть две базы. Одна базы уже давно была создана, в ней была сделана небольшая доработка в виде кода:

Private Sub Form_Current()
 Dim strsql, rst As DAO.Recordset
 
 strsql = "SELECT ПараметрыБазы.*, ПараметрыБазы.ИмяОбъекта" _
  & " FROM ПараметрыБазы" _
  & " WHERE (((ПараметрыБазы.ИмяОбъекта)='Форма_ВыпискиСчета'))" _
  & " ;"
 Set rst = CurrentDb.OpenRecordset(strsql)
 
 Forms!НаВыезде_Кал!ЧасМО.DefaultValue = rst.Fields("ЧасМО")
 Forms!НаВыезде_Кал!ОбоснованиеЦены.DefaultValue = rst.Fields("ОбоснованиеЦены")
End Sub

все отлично работает, без ошибок, но существует вторая база, созданная копированием первой и немного переделанная для другого отдела, но вот проблемка, после этих переделок прошло больше полугода и вот пытаюсь добавить во вторую базу аналогичный код из VBA первой базы, при открытии формы выдает ошибку "Run-time error '13': Type mismatch" и указывает на строчку где элементу формы присваивается значение по умолчанию:

Forms!НаВыезде_Кал!ЧасМО.DefaultValue = rst.Fields("ЧасМО")

До этого как то тоже пытался кое-что переделать, увязать с 1Ской сделал все на своем компьютере в копии второй базы и код VBA работал, но только я попытался воспроизвести все свои изменения на компьютере с актуальной базой (там же где и сейчас возникают проблемы), то у меня снова были аналогичные проблемы, тогда времени разбираться с этим не было, закинул идею ..
Потерянных библиотек нету, и подключено одинаковое количество что в первой что во второй базе.
Подскажите пожалуйста в чем проблема может быть??
ЗЫ: в VBA я не силен ..

http://www.sql.ru/forum/1069046/oshibka-vba-no-v-drugoy-baze-rabotaet