使用VBA从主菜单中打开其中一个字段为空/空白的表单

Private Sub btnOpenForm_Click()
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim strFormName As String
    
    ' 设置SQL查询语句，查找字段为空/空白的记录
    strSQL = "SELECT * FROM YourTableName WHERE YourFieldName IS NULL OR YourFieldName = ''"
    
    ' 执行查询
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    ' 检查是否存在符合条件的记录
    If rs.RecordCount > 0 Then
        ' 移动到第一条符合条件的记录
        rs.MoveFirst
        
        ' 获取表单名称
        strFormName = rs!YourFormNameField
        
        ' 关闭记录集
        rs.Close
        
        ' 打开表单
        DoCmd.OpenForm strFormName
    Else
        ' 关闭记录集
        rs.Close
        
        ' 提示用户没有符合条件的记录
        MsgBox "没有找到符合条件的记录。"
    End If
    
    ' 释放资源
    Set rs = Nothing
End Sub