点击下载此附件
根据论坛坛友所做修改,希望可以帮助到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