读取文本内容作为列表框来源并自动更新文本内容

时　间:2012-07-23 18:55:26
作　者:54.℡80後2oO   ID：2399  城市：东莞
摘　要:读取文本内容作为列表框来源并自动更新文本内容
正　文:

点击下载此附件

根据论坛坛友所做修改，希望可以帮助到ACCESS爱好者！

===============================================

Private Sub Text1_NotInList(NewData As String, Response As Integer)

    If MsgBox("是否添加新内容", vbQuestion + vbYesNo) = vbYes Then

        Response = acDataErrAdded

        Dim xlapp As Object

        Set xlapp = CreateObject("excel.application")

        With xlapp

            .Visible = False
            .DisplayAlerts = False
            .Workbooks.Open (CurrentProject.Path & "\TEXT1.txt")
            .Cells(1, 1) = .Cells(1, 1) & ";" & NewData
            .ActiveWorkbook.Save
            .Quit
        End With
        'Call Form_Load       ‘注释掉出现问题的代码
        Me.Text1.RowSource = GetTexContent(CurrentProject.Path & "\Text1.txt", 1)   ’加入这条代码更新代码

    Else
        Response = acDataErrContinue
    End If