点击清空按钮后，数据库第一行，有一个字段数据丢失。。

自己做个小程序，出现个奇怪的问题，点击清空按钮后，再跳转页面，窗体中一个字段数据就丢失了。

看了一下是数据库表中第一行的一个字段变为空值了。

不知道是什么原因。。。应该怎么改呢？

清空按钮代码如下，

Private Sub cmd清空_Click()
On Error GoTo Err_cmd清空_Click


    Dim ctl As Control
    
    For Each ctl In Me.Controls
    
        Select Case ctl.ControlType
            Case acTextBox 
                If ctl.Locked = False Then ctl.Value = Null
                
            Case acComboBox '是组合框，也要清空
                ctl.Value = Null
            '其它类型的控件不处理
        
        End Select
    Next
    
    '取消子窗体的筛选
    Me.手册详细信息表_查询_子窗体1.Form.Filter = ""
    Me.手册详细信息表_查询_子窗体1.Form.FilterOn = False
    
    '在子窗体取消筛选后要运行一下自编子程序CheckSubformCount()
    'Call CheckSubformCount


Exit_cmd清空_Click:
    Exit Sub


Err_cmd清空_Click:
    MsgBox Err.Description
    Resume Exit_cmd清空_Click
End Sub

截图如下：