[已解决]求助各位老师：为什么写入黄色区域数据到ACCESS出现下面信息。谢谢

hwc2ycy

1. 本年大病范围内费用累计 real);"

复制代码

分号是多余的。

hwc2ycy

我早上在家都测试过了的，{:912:}

qinhuan66

hwc2ycy 发表于 2013-5-17 08:02
我早上在家都测试过了的，

是不是我安装的版本过高2013的，谢谢

hwc2ycy

==，我传个我这能用的附件你再试吧。

hwc2ycy

报销统计录入.rar (22.91 KB, 下载次数: 7)

2013-5-17 08:14 上传

点击文件名下载附件

hwc2ycy

hwc2ycy

记住，表内的所有内容全要填完整，否则就会INSERT 语法错误。

hwc2ycy

对了，你再帮我做个测试

1. '    StrConn = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
   
2.               "Data Source='" & AccessFile & "';"
   
3. 
   
4.     StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source='" & _
   
5.                       AccessFile & "';"

复制代码

代码中的这段，你改成下面这段试试。

1.     StrConn = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
   
2.               "Data Source='" & AccessFile & "';"
   
3. 
   
4.     'StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source='" & _
   
5.                       AccessFile & "';"
   

复制代码

qinhuan66

hwc2ycy 发表于 2013-5-17 08:14
记住，表内的所有内容全要填完整，否则就会INSERT 语法错误。

老师我想问一下为什么我设置的光标按顺序跳转有时候不是指定路线跳转的呢
Dim N

Sub NextCell()
arr = Split("B3,F3,B6,D6,B7,B8,D8,F8,B9,D9,F9,B10,D10,F10,B11,D11,F11,F12,B13,D13,F13,B14,D14,F14", ",")
If N < UBound(arr) Then
    N = N + 1
    Range(arr(N)).Activate
Else
    N = 0
    Range(arr(N)).Activate
End If
End Sub

Sub LastCell()
arr = Split("B3,F3,B6,D6,B7,B8,D8,F8,B9,D9,F9,B10,D10,F10,B11,D11,F11,F12,B13,D13,F13,B14,D14,F14", ",")
If N > LBound(arr) Then
    N = N - 1
    Range(arr(N)).Activate
Else
    N = UBound(arr)
    Range(arr(N)).Activate
End If
End Sub

hwc2ycy

我看看03版的连接字符串到了13还能用不，