Доступ. Не работает кнопка редактирования с выпадающими списками - PullRequest
Новая
       48

Доступ. Не работает кнопка редактирования с выпадающими списками

0 голосов
/ 28 октября 2019

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

Проблема возникла с кнопкой редактирования, которая должна взять строку из сводной таблицы и поместить значения обратно в поля со списком. С моим кодом поля со списком остаются пустыми. (текстовое поле заполнено этим) Есть идеи, как исправить код? 

   Private Sub btnAdd_Click()
    'add data to table

    CurrentDb.Execute "INSERT INTO toolList(numberTool, roughFinish, application, dim, tool, holder, h, f, s, offsetR, d, toolLife, corNumber, pictureSource, dms) " & _
    " VALUES('" & Me.cboNumberTool.Column(1) & "','" & Me.cboRoughFinish.Column(1) & "','" & Me.cboApplication.Column(1) & "','" & (Me.txtLabelDim.Caption & " " & Me.txtDim) & "','" & Me.cboTool.Column(1) & "','" & _
    (Me.cboHolder.Column(1) & " " & Me.cboMmaster.Column(1) & " " & Me.cboCollet.Column(1) & " " & Me.cboShrink.Column(1) & " " & Me.cboStrshank.Column(1)) & "','" & _
    Me.txtH & "','" & Me.txtF & "','" & _
    Me.txtS & "','" & Me.txtOffsetR & "','" & Me.txtD & "','" & Me.txtToolLife & "','" & Me.txtCorNumber & "','" & Me.txtPictureSource & "','" & Me.txtDms & "')"

    'refresh data in list on form
    ToolListsub.Form.Requery  
End Sub


Private Sub btnEdit_Click()
'check whether there exists data in list
If Not (Me.ToolListsub.Form.Recordset.EOF And Me.ToolListsub.Form.Recordset.BOF) Then
    'get data to text box control
    With Me.ToolListsub.Form.Recordset
        Me.cboRoughFinish = .Fields("roughFinish")
        Me.cboApplication = .Fields("application")
        Me.txtDim = .Fields("dim")
        Me.cboNumberTool = .Fields("numberTool")
        Me.cboTool = .Fields("tool")
        Me.cboHolder = ""
        Me.cboCollet = ""
        Me.cboMmaster = ""
        Me.cboShrink = ""
        Me.cboStrshank = ""
        Me.txtH = .Fields("h")
        Me.txtF = .Fields("f")
        Me.txtS = .Fields("s")
        Me.txtOffsetR = .Fields("offsetR")
        Me.txtD = .Fields("d")
        Me.txtToolLife = .Fields("toolLife")
        Me.txtCorNumber = .Fields("corNumber")
        Me.txtPictureSource = .Fields("pictureSource")
       End With
    End If
End Sub

1 Ответ

0 голосов
/ 30 октября 2019

Спасибо! Давно понял, но в итоге получилось. Вот код, кому-то может пригодиться Me.cboRoughFinish = DLookup ("ID", "roughFinish", "Value = '" & .Fields ("roughFinish") & "'")

...