大家看看下面的代码,是哪里出错?
下面这段代码在access2003可以用,但是在access2010中不能用了
执行的时候停止,点调试,指向红色的地方
Private Sub 文件_KeyDown(KeyCode As Integer, Shift As Integer)
1001 If KeyCode = 13 Then
1002 Set newx = New ADOX.Catalog
1003 If Dir(Me![文件]) = "" Then
1004 MsgBox "指定文件找不到，无法操作"
1005 Exit Sub
1006 End If
1007 cstring = "Driver=Microsoft Excel Driver (*.xls);dbq=" & Me![文件]
1008 newx.ActiveConnection = cstring '取得Excel文件
1009 For i = 0 To newx.Tables.Count - 1 '取得工作表名称
1010 v = v & ";" & Left(newx.Tables(i).Name, Len(newx.Tables(i).Name) - 1)
1011 Next
1012 v = Right(v, Len(v) - 1)
1013 Me![sheet].RowSource = v
1014 Me![sheet].Requery
1015 ' MsgBox "请在工作表名称选取来源数据所在之工作表"
1016 End I