Вставка значений в таблицу/отображение дубликатов

Question

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

Private Sub Command114_Click() 



If (Me.VehicleNumber = "" Or Me.vMake = "" Or Me.vModel = "") Then 
MsgBox "Please fill required fields", vbInformation, "Information" 
Else 

CurrentDb.Execute "INSERT INTO [Vehicles]([VehicleNumber], [Make], [Model], [PurchasedMiles], [PurchasePrice], [PurchaseLocation], [PurchaseDate], [VehicleNotes])" & _ 
"VALUES ('" & Me.vVehicleNumber & "', '" & Me.vMake & "', '" & Me.vModel & "', '" & Me.vPurchasedMiles & "', '" & Me.vPurchasePrice & "', '" & Me.vPurchaseLocation & "', '" & Me.vPurchaseDate & "', '" & Me.vVehicleNotes & "')" 

MsgBox "Vehicle Added", vbInformation, "Information" 

End If 


End Sub 

пожалуйста, проверьте изображение.

БЛАГОДАРНОСТЬ: D

Answer 1

Я думаю, что ваша форма ограничена, и каждый раз, когда вы вводите любые данные, которые вы изменяющие покидающие данные.

Если вы хотите вставить вручную, установите значение источника записи формы пустым.

goto forms's property > Data section> Record Source > delete any entry there 

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