Неправильно двойное сохранение файла в MS Access - PullRequest
0 голосов
/ 22 декабря 2018

Hi_all!У меня проблемы с моим банком данных для Windows 10 / MS Access 2013 - я пишу программу в файл (много копий) радиолюбительских контактов, которые следует сохранять при каждой новой записи в новой записи ...

Проблема в том, что у меня есть «Прогрессивный поиск (тот, который динамически ищет каждую букву нового вызова, вводится в текстовое поле)», и, когда мне показывают, что я уже работал с этой станцией, я отмечаю станцию ​​вызовав списке и нажмите «GetData», чтобы получить все общие данные в новую форму в файл, чтобы добавить больше свежей информации.Мой доступ сохраняется в новом файле!ТОЛЬКО буквы, которые я набрал в «Прогрессивном поиске», и после этого, когда я нажимаю кнопку «ВСТАВИТЬ», он сохраняет в последующем файле все данные, которые я получил от последнего контакта + конкретные данные текущего контакта!Это код ...

только для иллюстрации:

enter image description here

Private Sub btnGetData_Click()          ' Btn   "GetData"
    Dim rst As Object
    Set rst = Me.RecordsetClone
    rst.FindFirst "[ID] = " & Me.lstStaff.Value
    If Not rst.EOF Then Me.Bookmark = rst.Bookmark

    With Me.lstStaff
        If IsNull(.Value) Then .Value = .ItemData([ID])
        Me.Call.Value = .Column(1)
        Me.QRA.Value = .Column(2)
        Me.QTH.Value = .Column(3)
    End With

End Sub

Private Sub btnInsert_Click()       ' Btn   "INSERT"

    Dim SQL
    SQL = "INSERT INTO tblStaff (Call,QRA,QTH,RST,QRG,TimeStart,TimeEnd)" & _
    "VALUES (Call,QRA,QTH,RST,QRG,TimeStart,TimeEnd)" & "CurrentDb.Execute SQL"

    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec

End Sub

Что нужно сделать, чтобы предотвратить поискнабранные буквы 'нужно сохранить ... а в отдельный файл?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...