在VBA中，日期值无法直接从表单传递。但可以通过以下方法解决：

1. 将日期值转换为文本字符串传递给VBA： 在表单上创建一个文本框，将日期值转换为文本字符串并传递给VBA。

例如，在表单上创建一个名为"txtDate"的文本框，用户输入日期后，可以使用以下代码将日期值传递给VBA：

Dim strDate As String
strDate = Me.txtDate.Value

2. 使用隐藏的标签或文本框传递日期值： 在表单上创建一个隐藏的标签或文本框，将日期值传递给该标签或文本框，并从VBA中读取该控件的值。

例如，在表单上创建一个名为"lblHiddenDate"的隐藏标签，可以使用以下代码将日期值传递给VBA：

Dim hiddenDate As Date
hiddenDate = Me.lblHiddenDate.Caption

3. 使用公共变量传递日期值： 在VBA模块中声明一个公共变量，将日期值赋给该变量，并在需要的地方使用该变量。

例如，在VBA模块的顶部声明一个公共变量：

Public selectedDate As Date

然后，在表单上的日期控件的事件中将日期值赋给该变量：

selectedDate = Me.datePicker.Value

这样，在其他需要使用日期值的地方，可以直接使用公共变量selectedDate。

请注意，如果使用第二种或第三种方法传递日期值，请确保在使用该值之前进行有效性验证和转换（例如，使用CDate函数将字符串转换为日期）。