通过点击按钮如何实现输入一批数据？？

lixiang_30

我想通过点击领料输入表中的按钮2来实现把“窗体2550”的内容一次性全部输入到领料输入表中
该如何实现啊？？？我是一个新手，麻烦大侠说的详细点！！最好有代码！！！

jiahongyu

Public Sub 将工作表的某些区域数据保存为新的ACCESS数据库()
    Dim myData As String, myTable As String
    Dim myFile As String, myRange As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim myAccess As Access.Application
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("总公司")
    myData = wb.Path & "\NewData.mdb"
    myTable = "总公司销售记录"
    myFile = wb.FullName
    myRange = ws.Name & "!" & ws.Range("A1:F10").Address(False, False)
    On Error Resume Next
    Kill myData
    On Error GoTo 0
    Set myAccess = New Access.Application
    With myAccess
        .NewCurrentDatabase myData
        .DoCmd.TransferSpreadsheet acImport, 8, myTable, myFile, True, myRange
    End With
    MsgBox "工作表数据已成功保存到数据库！", vbOKOnly
    myAccess.CloseCurrentDatabase
    Set myAccess = Nothing
    Set wb = Nothing
    Set ws = Nothing
End Sub

咱家是猫

楼主好象没有问Excel的问题哟,楼主的回答跑题了吧.
楼主,建议不要在程序里打开表,表是存储数据的地方,但不是让用户直接操作的对象.因为表打开后,对于数据来说是极其危险的.用窗体来显示或输入数据,窗体是人机交换数据的地方.
把窗体2的当前记录数据传递到窗体1的子窗体里,可以在窗体上上放到按钮打开窗体2,然后在窗体2上设置个按钮来传递当前记录数据,在窗体2的按钮的单击事件上写代码,大致如下:
With Forms!窗体1!子窗体1
!Text1=me.Text1
!Text2=me.Text2
...
End With
如果你想传递完了顺便关闭窗体2,加一行代码
Docmd.Close,acform,me.name

lixiang_30

回复 咱家是猫 的帖子
大哥！我用这个命令好象只能一个数据一个数据的传递，我现在有一批数据想一下子传递到窗体1的子窗体里面有没有办法啊？？

   

roych

指定子窗体的源对象怎么样？——我这里下载不到附件（受限）——以下是我以前写的一个导入规格，把基础数据放在任意地方，均可以导入并更新数据

lixiang_30

回复 roych 的帖子
看了下你的附件但和我想要的不一样！还是要谢谢你啊，

   

咱家是猫

可以用追加查询批量添加记录,然后刷新子窗体就行了