强制用户在填充文本框之前填充超链接

Question

我目前正在改进一个相当旧的任务订单数据库，我正在尝试进行的一项功能改进是强制用户在选择要标记为完成的任务的日期之前在表单上设置超链接值.

我对 vba 非常陌生，顺便说一句。

FEDel 是我的日期选择器文本框。
FSDel 是我的日期选择器控制源。
FDLink 是我的超链接文本框。
LinkToFieldDel 是我的超链接控制源。

Private Sub FEDel_Click()
  If LinkToFieldDel = Null Then Msgbox("Please set the Field Deliverables File Path before entering a Delivery Date!", vbCritical, "Field Deliverables File Path Not Set!", "Use the 'Link to File Deliverables' button below to set the file path.") As VbMsgBoxResult


  Exit Sub

Else

End Sub

我在 LinkToFieldDel 上不断收到“编译错误：语句在类型块外无效”，我很困惑为什么会这样。

我愿意接受有关如何使这种类型的场景也起作用的任何其他建议，这只是我有限的经验所想到的。谢谢！

Answer 1

无法编译的原因有几个

1. 您要么必须在另一行使用 THEN 并关闭 IF 在 ELSE 之后阻止 - 或删除 ELSE
2. 你还应该删除As VbMsgBoxResult - 你调用的函数没有声明一个子
3. 除非您在某处有帮助文件，否则请删除它“使用下面的'链接到文件交付物'按钮设置文件路径。”

另外 - 使用 IsNull() 或 NZ() 函数进行比较可能是一个更好的主意

Private Sub FEDel_Click()

   If IsNull(LinkToFieldDel) Then 
      Msgbox "Please set the Field Deliverables File Path before entering a Delivery Date!", vbCritical, "Field Deliverable File Path Not Set!"         
      Exit Sub

   Else
      ' Do something else here
   End If
End Sub