Всем привет!
Как проснулся-тут же накропал :-)
Возникла непонятная ситуация:
Есть две таблицы (BUH и TO). Обе имеют поле СуммаЗакупки:
Числовое (двойное с плав. точкой), формат-Денежный, число знаков- авто. Маски ввода -нет.
Данные в поля заносятся так:
Создается линк с файлом екселя.
Далее ,из полученной после линка связанной таблицы "Импорт", происходит перенос данных в таблицу BUH.
Связанная таблица затем удаляется.
Аналогичный процесс для таблицы ТО.
Если посмотреть связанную таблицу до удаления, то поле Сумма там будет:
Числовое (двойное с плав. точкой), с разделителями разрядов, число - авто.

После занесения данных в таблицы BUH и TO, они сравниваются на соответствие. Сравнение происходит по полям: ДатаНакладной и СуммаЗакупки
И что странно:
Часто бывает, что при наличии одинаковых данных в сравниваемых полях, они не идентифицируются как одинаковые. Это относится только к полю СуммаЗакупки. С датами проблем нет.

Ввожу в поле СуммаЗакупки эти же цифири ручками еще раз - все ОК.

Пока не могу уловить в какую таблицу надо заново вносить. Бывает, что надо заменить в первой таблице, а бывает, что и во второй.

Смотрел исходные ексель файлы.
Вроде бы с форматом ячеек сумм это не связано,
Например, формат всех ячеек столбца этих сумм в док-те ексель представлен, как числовой с разделителем и кол-вом знаков=2. При этом, какие-то суммы ( после попадания в аксесс) при сверке идентифицируются как одинаковые, а какие-то нет.
Никак не могу ухватить за хвост причину.
Может у кого есть мысли, где копать?

Function SIA()
On Error GoTo 2
Dim fd As FileDialog
Dim s, fm
Dim Msg, Style, Title, Response, Mystring
Dim MyFile, MyPath, MyName

Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant

With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
s = vrtSelectedItem
fm = "//pos/общая папака/реестры/test.xls"

FileCopy s, fm ' Copy source to target.

MyFile = Dir(s)
Msg = " " & MyFile
Style = vbOKCancel + vbDefaultButton1 ' Define buttons.
Title = "Импорт реестра" ' Define title.
Response = MsgBox(Msg, Style, Title)
If Response = vbCancel Then ' User chose Cancel
Exit Function
End If

'Импорт
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "Импорт", fm, True, ""
DoCmd.RunSQL "INSERT INTO BUH ( КодАптеки, ДатаНакладной, №Накладной, СуммаЗакупки, КодПоставщика)" & _
"SELECT Импорт.КодАптеки, Импорт.ДатаНакланой, Импорт.№накладной, Импорт.Сумма, Поставщики.[КодПоставщика]" & _
"FROM Импорт, Поставщики WHERE (((Поставщики.[КодПоставщика])=1)AND((Импорт.[Сумма])Is Not Null));"
2 DoCmd.DeleteObject acTable, "Импорт"
MsgBox "Импорт завершен", vbInformation, "Импорт реестра"

Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
Все заранее спасибо!

2 Саныч
Рад тебя видеть! Что-то , думаю, никто не отвечает, даже Саныч.
А в Эрец Израэль сейчас на 2 часа раньше Москвы, да?

Теперь по существу:
1. А почему тогда, при повторном вводе в таблицу сумм вручную, все идентифицируется? Ведь по-прежнему сравниваются дробные числа.
И почему ошибка возникает не для всех записей, а только для некоторых, хотя дробные - все?

2. Если все-же дело в том, что ты сказал, то:
Запрос делается в конструкторе, по этим 2-м таблицам, между ними установлены связи:
"Объединение всех записей из BUH и только тех из ТО, в которых связанные поля совпадают". Для поля датанакладной (ТО) задается условие is Null, чтобы в результате вывести только несовпавшие значения (BUH). Это мы уже как-то обсуждали.
Вопрос: А как мне в конструкторе тогда сделать сравнение ,обойдя при этом ограничение на сравнение дробных чисел?

Да, вот еще:
Если например, в таблице точно есть сумма 733.67 и она у меня не сверяется, и я открываю эту таблицу и ищу сумму через поиск (безо всяких учетов формата и т.п.), то она не находится до тех пор, пока я ее не введу заново в тоже поле вручную. Все-таки у меня подозрение на ошибки в процессе занесения данных в таблицы.

2 Senin Viktor
А что лепить? :-)

М-да, похоже тема тихо померла....

О как!
Ладнось, спасибо, попробую обойти.

2 Саныч
А вот как с денежным форматом? Можно сравнивать или низя?

2 Саныч
Да и еще:
А с тем, что после ручного ввода все ОК - это почему?
И с тем, что поиском в таблице не могу найти, пока ручками не введу заново поверх?
Извини за занудство, но хочется докопаться до причин.

2 Troubles
Заносятся впрямую числа безо всяких формул.

2 Саныч
Т.е. даже и в денежном формате такая петрушка с 20-м знаком возможна, я правильно понял?

2 troubles
Извини, я не говорил, что цифирки туда и так руками забиваются.
Заносятся данные туда автоматически. Вручную я забиваю, когда сверка не идет, а число такое в таблице есть. Я его и перенабиваю заново вручную.
2 Саныч
Если насчет денежного формата - беседер, то тогда, если данные у меня хранятся в денежном формате ( а они так и хранятся), то все должно работать корректно. А оно не работает. Или я чего-то не догоняю :-(

2 Саныч
Век живи-век учись. Спасибо.