在ACCESS中，怎样用Do Until 语句从表的某一条记录开始循环？急！！！

解0人

用代码？
代码要写在哪里？
以下举个列子：
1.如果在“系统1.accdb”中，这样写代码：
sub test()
    DoCmd.TransferDatabase acExport, "Microsoft Access", "F:\系统2.accdb", acTable, "表1", "新表1"
end sub
2.如果在“系统2.accdb”中，这样写代码：
sub test()
    DoCmd.TransferDatabase acImport, "Microsoft Access", "F:\系统1.accdb", acTable, "表1", "新表1"
end sub
3.如果是在Excel中，这样写代码：
Sub test()
    Dim acc
    Set acc = CreateObject("Access.Application")
    acc.OpenCurrentDatabase "F:\系统1.accdb"
    acc.DoCmd.TransferDatabase acExport, "Microsoft Access", "F:\系统2.accdb", acTable, "表1", "新表1"
    acc.CloseCurrentDatabase
    Set acc = Nothing
End Sub

cwzj3807

解0人 发表于 2017-4-7 20:30
用代码？
代码要写在哪里？
以下举个列子：

谢谢老师指点！学习中。

cwzj3807

解0人 发表于 2017-4-7 20:30
用代码？
代码要写在哪里？
以下举个列子：

再次求教老师：
我是在“系统2”中操作，如果“系统1”的数据库密码是“111111”，那下面的代码该怎么修改呢？谢谢！
sub test()
     DoCmd.TransferDatabase acImport, "Microsoft Access", "F:\系统1.accdb", acTable, "表1", "新表1"
end sub

cwzj3807

解0人 发表于 2017-4-7 20:30
用代码？
代码要写在哪里？
以下举个列子：

再次求助老师：
我有两个Access文件：“数据库A”和“数据库B”，现在我需要在“数据库B”中操作，将“数据库A”中的表全部导入到“数据库B”中，恳请老师给出代码！谢谢！
注：链接的代码我已经学着写好了。
导入数据库A中的表.rar (38.66 KB, 下载次数: 1)

2017-4-18 10:02 上传

点击文件名下载附件

LMY123

循环之前，先把指针指向第100条记录：
rs1.Move 99'记录集的第一条序号是0rs.AbsolutePosition = 100