根据三个已知条件，从数据库中查找对应的最后50条信息显示在下方

魂断蓝桥

[f27:f77].NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"

这样试一试，如果不行传个附件我试一试

ym21ht

魂断蓝桥 发表于 2020-3-25 15:41
[f27:f77].NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"

这样试一试，如果不行传个附件我试一试

好的  我试下

ym21ht

魂断蓝桥 发表于 2020-3-25 15:41
[f27:f77].NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"

这样试一试，如果不行传个附件我试一试

把ACCESS数据库字段属性修改为时间/日期后，显示的表格可以正常使用，但是录入的表格提示错误 调试发现下面语句错误 ，我把附件上传了 大神帮忙看下

ym21ht

魂断蓝桥 发表于 2020-3-25 15:41
[f27:f77].NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"

这样试一试，如果不行传个附件我试一试

大神，帮忙看下什么问题

ym21ht

魂断蓝桥 发表于 2020-3-25 15:41
[f27:f77].NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"

这样试一试，如果不行传个附件我试一试

大神，帮忙看下什么问题

魂断蓝桥

ym21ht 发表于 2020-3-26 14:04
把ACCESS数据库字段属性修改为时间/日期后，显示的表格可以正常使用，但是录入的表格提示错误调试发现下 ...

这一句修改成
SQL = "SELECT * FROM 生产命令单 WHERE [WRN#]=#" & Range("a6") & "#"

ym21ht

魂断蓝桥 发表于 2020-3-27 13:58
这一句修改成
SQL = "SELECT * FROM 生产命令单 WHERE [WRN#]=#" & Range("a6") & "#"

有效果 谢谢！！我在试运行一段时间

ym21ht

魂断蓝桥 发表于 2020-3-27 13:58
这一句修改成
SQL = "SELECT * FROM 生产命令单 WHERE [WRN#]=#" & Range("a6") & "#"

大神，出现这个错误时 怎么让他忽略错误继续执行？等待下一次刷新

魂断蓝桥

ym21ht 发表于 2020-3-30 09:09
大神，出现这个错误时 怎么让他忽略错误继续执行？等待下一次刷新

先判断一下是否被打开。

On Error GoTo 100
    cnn.Open "Provider=microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
    MsgBox cnn.State
    cnn.Close: Set cnn = Nothing
    Exit Sub
100:
    MsgBox Err.Description
    Exit Sub

魂断蓝桥

On Error GoTo 100
    cnn.Open "Provider=microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
    MsgBox cnn.State
    cnn.Close: Set cnn = Nothing
    Exit Sub
100:
    MsgBox Err.Description
    Exit Sub