Вопрос : Базы данных множественного доступа уточнения СУЕТЫ/ошибка с нулевым значением даты

Hi All

Have проблема с уточнением синхронизированного DB доступа, когда дата непроверена от подборщика даты в применении форм VB6 Windows. Также эт работы процесса отлично с всеми другими уточнениями поля кроме где датами будут Empty.

When НУЛЕВОЕ значение ы в (дата измененная от некоторой даты к ничего) rs. Уточнение не делает ничего к значению в втором DB.

If, котор я пытаю поглотить значение и уточнить его к пустому шнуру или другому я получаю следующий class= " underline " >ADODB.Field
Description error.


And если я объявляю перемеююый для того чтобы уловить тип, то adoDB.field, я получаю >Description " underline " class=


This будет старое Кодий от ранее проявителя и быть честен я борюсь для того чтобы понять самая лучшая дорога зафиксировать it.

I прикрепляла Кодего ниже и добавленные комментарии к уместным областям. Проблема происходит специфически с field.type (7) т.е. «adDate».

кстати определение поля в таблице доступа установлено к «необходимый = не». для этого EndDate Field.

My ощупыванию кишки будет я нужно revert к некоторой форме заявления SQL «уточнения» или даже уничтожить рядок от DB External и как раз reinsert показатель если изменением будет made.

I проводило много часов пытаясь отслеживать вниз самую лучшую дорогу общаться с этим, то поэтому любую помощь были бы appreciated.

Cheers FLOG51

class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50:

updateExternalDB функции >Private " class= " " codeSnippet960726 id= parentRS.fields (fieldname) после этого 'Эта линия ниже куда о НУЛЕВОЕ значение даты и никогда входные сигналы на externalparentRS.Update externalparentRS.fields (fieldname) = parentRS.fields (fieldname) Если заблуждайтесь. Пронумеруйте <> 0 после этого 'Debug.Print «потерпело неудачу: » & err.description Закончитесь если Закончитесь если Закончитесь если Затем externalparentRS.Update Если заблуждайтесь. Пронумеруйте <> 0 после этого updateExternalDB = err.description Закончитесь если Еще updateExternalDB = errorStr Закончитесь если Закончитесь если Закончитесь если parentRS.Close Установите parentRS = ничего Закончите функцию

class=

Ответ : Базы данных множественного доступа уточнения СУЕТЫ/ошибка с нулевым значением даты

               Для каждого f в parentRS.fields 'повторите через каждое поле в recordset parentRS
                    fieldname = f.name 'задают имя в настоящее время поля к перемеююому шнура

'здесь будет куда я получаю запутанный
            
                    Если не IsNull, то (parentRS.fields (fieldname)) После этого 'только продолжайте если значение в настоящее время поля не НУЛЕВО
                        Если "" parentRS.fields (fieldname <> ) после этого 'только продолжает, то если значением в настоящее время поля не будет ПУСТОЙ ШНУР

'как мы получайте здесь если проходится нулевое значение????  Conditionals вышеуказанные должны предотвратить это

                          'Эта линия ниже куда о НУЛЕВОЕ значение даты и никогда входные сигналы на externalRS.Update
                             externalRS.fields (fieldname) = parentRS.fields (fieldname)           'если мы получаем здесь после этого установили значение поля recordset externalRS к такому же значению как полю parentRS
                            Если заблуждайтесь. <> 0 после этого
                                'Debug.Print «потерпело неудачу: » & err.description
                            Закончитесь если
                        Закончитесь если
                    Закончитесь если
                Затем
                уточнение externalRS.Update 'recordset