窗体无数据自动关闭
来源：爱赛思应用俱乐部 tanyiqiang

Private Sub FORM_Open(Cancel As Integer)
　　If Me.Recordset.RecordCount = 0 Then
　　　　Cancel = True
　　End If
End Sub