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

Posted 2023-02-16

【中文标题】访问数据库中的空单元格时如何填写[关闭]

【英文标题】：how to fill down when empty cells in access db [closed]

【发布时间】：2022-01-21 12:57:41

【问题描述】：

数据库访问表

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

【参考方案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