通过单击按钮输入数据时，要添加功能有效

Question

我是VBA的新手，我对以下问题有些堆积。我有一个访问表格，有一个子形式。通过单击表单上的按钮，数据将添加到子形式中，并通过以下代码刷新了子形式：

   Private Sub add_Click()
'add data to table
CurrentDb.Execute "insert into Daily_inputs_m (date, text) " & _
" Values ('" & Me.date & "','" & Me.text & "')"
'refresh data in list on form
Me.Daily_inputs_m_sub.Form.Requery  
End Sub

我希望下一列上的数据将根据"文本"添加到表中。所以请帮助我解决问题。

例如，我有一个带有三列" date"，" text"，" text_1"的表格以及带有" text"one_answers" text_1"的表格在第一种形式中，有两个文本框和一个按钮"添加"应为" date"one_answers" text"的位置，然后单击按钮后，将" data"添加为" date"one_answers" text"。代表一个表。

所以我希望" text_1"列自动从第二个表中获取与"文本"列的数据。

为此，我应该使用dlookup函数，但我不知道如何在VBA中进行。

Answer 1

我终于找到了一个解决方案，如何将Dlookup函数放入VBA访问中：

Private Sub add_Click()
txt_1 As String
txt_1 = DLookup("[text_1]", "table_2", "text= '" & Forms!Daily_inputs!txt & "'")
'add data to table
CurrentDb.Execute "insert into Daily_inputs_m (date, text, text_1) " & _
" Values ('" & Me.date & "','" & Me.txt & "','" & txt_1 & "')"    
'refresh data in list on form
Me.Daily_inputs_m_sub.Form.Requery    
End Sub