2016-11-09 6 views
-1

Я использую список для отображения моих данных в текстовых и комбо. Когда я меняю данные, они не сохраняются в моей таблице и просто не могут понять почему.Данные не сохраняются после изменения

Я приложил простую копию базы данных, так что вы получите представление о том, что им делать

https://www.dropbox.com/s/qkndka198tmqc62/Database7.accdb?dl=0

Заранее спасибо

ответ

1

Проблема заключается в следующем:

Ваша форма привязаны к таблице test_table; Вы отображаете данные в связке связанных полей, нажимая на элемент в списке, но вы никогда не меняете текущую запись таблицы, и, таким образом, вы всегда обновляете первую запись с любыми значениями, отображаемыми в настоящее время.

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

В качестве альтернативы Если вы добавили идентификатор RowSource ListBox в, когда вы хотели, чтобы сохранить вы могли бы сделать что-то вроде:

еще лучше, (в дополнение к вышесказанному) отвязать формы & элементы управления и использования набор записей, чтобы отображать текущие значения полей в форме, когда запись выбрана в списке. Затем данные не обязательно должны находиться в источнике строк в списке, поэтому вы должны изменить источник строк на «SELECT ID, Dates FROM Test_Table» и установить для свойства columnwidths значение «0cm; 3cm», чтобы скрыть идентификатор с дисплея. Тогда любая ссылка на песни8 является ссылкой на идентификатор текущей записи, и

List8 = 4 

Будет ли установить выбранный индекс песни8 к строке с ID = 4.

Затем после сохранения, вы можете

List8.Requery 
List8 = 4 
List8_Click 

будет отображать данные из базы данных.

Надеюсь, что это поможет

+0

спасибо, что вам помогли. К сожалению, все еще не могу заставить это работать. Я использую этот набор записей: Dim дб As Database Dim гее As Recordset Set дб = CurrentDb Set гее = db.OpenRecordset ("Select * из tbl_ComplaintsCoded") rec.Edit Rec ("Бизнес-Эксперт") = Me.Text5 rec.Update Me.List1.Requery – dmorgan20

+0

после того, как много игр вокруг этого теперь работает. Спасибо – dmorgan20

Смежные вопросы