访问数据库中的空单元格时如何填写[关闭]答案

【问题标题】：how to fill down when empty cells in access db [closed]访问数据库中的空单元格时如何填写[关闭]
【发布时间】：2022-01-21 12:57:41
【问题描述】：

数据库访问表

我需要帮助填写以前的字符串 PS：我是初学者

【问题讨论】：

标签： vba database ms-access field cell

【解决方案1】：

您的Date 字段似乎属于Text 数据类型。如果是这样，请将其更改为 DateTime。

然后你可以运行一个循环来更新没有日期值的记录：

Dim Records     As DAO.Recordset

Dim Sql         As String
Dim LastDate    As Date

Sql = "Select * From YourTable Order By [Surevey ID]"
Set Records = CurrentDb.OpenRecordset(Sql)

If Records.RecordCount > 0 Then
    LastDate = Date ' Adjust if needed.
    Records.MoveFirst
    While Not Records.EOF
        If IsNull(Records!Date.Value) Then
            Records.Edit
                Records!Date.Value = LastDate
            Records.Update
        Else
            LastDate = Records!Date.Value
        End If
        Records.MoveNext
    Wend
End If
Records.Close

【讨论】：