VBA医疗预约表单验证需求：检查控件非空并保留已填内容

我来帮你给这个预约提交按钮加上空值检查功能，确保用户必须填写完所有必填的文本框和组合框才能提交，同时保留已填内容不丢失。

修改后的完整代码 #

Private Sub btCadastra_Click()
    ' 第一步：遍历所有需要验证的控件，检查是否为空
    Dim ctrl As Control
    Dim hasEmptyField As Boolean
    hasEmptyField = False
    
    ' 检查文本框和组合框
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then
            ' 判断控件值是否为空（注意处理组合框的未选择状态）
            If (TypeName(ctrl) = "TextBox" And Trim(ctrl.Value) = "") Or _
               (TypeName(ctrl) = "ComboBox" And (ctrl.ListIndex = -1 Or Trim(ctrl.Value) = "")) Then
                MsgBox "请填写完整所有信息：" & ctrl.Name & " 不能为空！", vbExclamation, "提示"
                ctrl.SetFocus ' 自动聚焦到空控件，方便用户快速补填
                hasEmptyField = True
                Exit For ' 找到第一个空控件就停止检查，避免多次弹窗干扰
            End If
        End If
    Next ctrl
    
    ' 如果存在空字段，直接退出，不执行后续提交逻辑
    If hasEmptyField Then Exit Sub
    
    ' 第二步：验证通过后，执行原有的数据写入逻辑（优化了写法）
    Sheets("AGENDA").Select
    lastrow1 = Range("A" & Rows.Count).End(xlUp).Row
    id = lastrow1 + 1 ' 修正原代码的ID计算，新数据要写入下一行
    
    ' 用With语句简化写入操作，避免频繁切换单元格
    With Sheets("AGENDA").Range("A" & id)
        .Value = id
        .Offset(0, 1).Value = cmbProfissional.Value
        .Offset(0, 3).Value = txtData.Value
        .Offset(0, 4).Value = txthorario.Value
        .Offset(0, 5).Value = cmbDescricao.Value
        .Offset(0, 6).Value = cmbNomePaciente.Value
        .Offset(0, 7).Value = cmbStatus.Value
        .Offset(0, 8).Value = Format(Date, "dd/mm/yyyy") & " - " & Time
    End With
    
    MsgBox "Dados cadastrados com sucesso", vbExclamation
    Unload Me
    frmAgenda.Show
End Sub

关键改动说明 #

• 空值验证逻辑：遍历表单上所有的TextBox和ComboBox，逐一检查是否为空。针对组合框额外判断ListIndex = -1（表示用户未选择任何预设选项），避免出现用户清空文本但未选选项的遗漏情况。
• 用户友好提示：找到空控件后，弹窗提示具体哪个控件未填写，并自动将光标定位到该控件，既清晰告知问题，又方便用户快速补填，同时完全保留已填写的内容。
• 优化数据写入：把原代码中多次Select和ActiveCell操作改成With语句，代码更简洁高效，也避免了因工作表切换导致的意外错误。
• 修正ID计算：原代码中id = lastrow1是最后一行的行号，新数据应该写入下一行，所以调整为id = lastrow1 + 1，确保ID与数据行号对应准确。

如果你的表单中有非必填控件，可以给这些控件加个统一前缀（比如opt_），然后在遍历验证时跳过它们，比如在判断控件类型的代码后加上And Left(ctrl.Name, 4) <> "opt_"即可。

内容的提问来源于stack exchange，提问作者BernardoRValle