MS Access弹出式窗体取决于组合框值

时间:2019-01-18 16:17:58

标签: vba ms-access access-vba

我正在使用一个数据库来存储一堆动物行为观察数据,并且正在创建一个表单来输入数据(许多表单之一)。主表单输入到名为"FocalSample"的表中,子表单输入到"FocalData"表中。 This is the form at present 该子表单中的一个总体样本中将有多个记录,一个样本的周期为10分钟,并记录了该10分钟内的单个动物行为,并记录了以分钟和秒为单位的时间,以计算每种行为所花费的时间。 / p>

根据在子窗体的"Behaviour Type"字段中选择的内容,我需要弹出窗体,作为"feed"观测记录与"social"观测记录的数据类型是非常不同的。我已经为设置为"popup"表单的数据和表单的不同行为类型创建了单独的表,但是需要代码方面的帮助才能使其执行我需要的操作! :P

我一直在尝试对我在此处(http://www.justskins.com/forums/pop-up-form-based-238440.html)找到的以下代码进行变种

Private Sub Campaign_AfterUpdate()
Dim strFormName As String
Select Me.Campaign.Value
Case "In Honor", "In Memory"
strFormName = "HonorMemory"
Case "In-Kind"
strFormName = "InKind"
End Select
DoCmd.OpenForm strFormName, , , , , acDialog
End Sub

但是在第一行之后,我一直收到错误消息。 Here is the error and code screen

与我附加的其他论坛链接类似,我还需要弹出表单从主表单中提取很多信息,但是我很高兴能够使该弹出表单在当前工作。

很抱歉,这么多细节-我在非洲的偏远地区,只能访问互联网,所以我想尽早提供尽可能多的信息!

Example of popup form - you might be able to determine fields that will feed off the focalsample form Another example of a popup form - different behaviour type to the previous

编辑 我已经根据先前的响应对代码进行了调整,但没有收到其他错误。This is the code with the error line highlighted - I am not sure what table name to add if any Error code

1 个答案:

答案 0 :(得分:0)

Select Me.Campaign.Value行应显示为Select Case Me.Campaign.Value

相关问题