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

我希望下一列的数据会根据＆＃34; text＆＃34;被添加到表中。所以请帮我解决问题。

例如，我有一个包含三列的表格＆＃34; date＆＃34;，＆＃34; text＆＃34;，＆＃34; text_1＆＃34;和另一个表格＆＃34; text＆＃34;和＆＃34; text_1＆＃34; 在第一种形式中有两个textBox和一个Button＆＃34; add＆＃34;它应该在哪里＆＃34;日期＆＃34;和＆＃34;文字＆＃34;键入然后单击按钮＆＃34;添加＆＃34;数据为＆＃34; date＆＃34;和＆＃34;文字＆＃34;被添加到表示表的子表单中。

所以我想要专栏＆＃34; text_1＆＃34;会自动从第二个表中获取与＆＃34; text＆＃34;匹配的数据。列。

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

Answer 1

我终于找到了一个如何将dlookup函数放入VBA Access的解决方案：

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

通过单击按钮

1 个答案: