ACCESS2003中如何打开文本文件并能对其进行编辑保存？

54.℡80後2oO　发表于：2012-07-22 10:24:08 　

复制

1、请问在ACCESS2003中，如何打开文本文件并能对其进行编辑保存？

2、值来源于文本文件的组合框，如何能把不在文本文件中的值添加进文本文件中，是直接，不是自己打开文本文件进行编辑，保存？

Top

竹笛发表于：2012-07-22 10:29:28

参考一下示例《读取文本文件内容作下拉框数据源》：http://www.accessoft.com/article-show.asp?id=6636

再修改一下相关代码，应该就好了。具体你再研究一下。

Top

54.℡80後2oO 发表于：2012-07-22 10:33:21

我已经研究过了，没研究出来，请管理员帮忙看看，如何在组合框中输入新值的时候能弹出是否保存入文件文件的提示？谢了

Top

lyxiong 发表于：2012-07-22 12:39:49

Private Sub 材料_NotInList(NewData As String, Response As Integer)
Dim Rst As DAO.Recordset
Dim strName As String
Dim strMsg As String
strName = Me.ActiveControl.Tag
strMsg = "'" & NewData & "' is not an available '" & strName & "'"
strMsg = strMsg & "Do you want to associate the new Name to the current DLSAF?"
strMsg = strMsg & " Click Yes to link or No to re-type it."

Response = acDataErrContinue
If MsgBox(strMsg, vbQuestion + vbYesNo, "Add new name?") = vbYes Then
Set Rst = CurrentDb.OpenRecordset("材料表")
Rst.AddNew
Rst(strName) = NewData
Rst.Update
Rst.Close
Set Rst = Nothing
Me.Controls.Item(strName) = NewData
Me.Controls.Item(strName).Requery
Else
Me.Controls.Item(strName).Undo
End If
End Sub

自修改下代码就可以啦

Top

lyxiong 发表于：2012-07-22 12:43:20

Private Sub 单位名称_NotInList(NewData As String, Response As Integer)
If MsgBox("是否要添加新新客户吗？", vbInformation + vbYesNo, "寻问") Then
    DoCmd.OpenForm "客户信息录入", , , , acFormAdd, acDialog, NewData
    Response = acDataErrAdded
    End If
End Sub

Top

54.℡80後2oO 发表于：2012-07-22 18:54:55

LS的兄弟，没明白我的意思，我要的是，我这个组合框的数据源来源于一个文本文件，我想要的效果是：当我在组合框中输入一个不在列表中的值时，能提示是否保存入文本文件中，不知能不能实现？

Top

叶海峰发表于：2012-07-23 08:45:47

肯定可以的啊,只是你又不截图看看文本文件是什么的格式,要填入的新值应该怎么去填

Top

54.℡80後2oO 发表于：2012-07-23 10:20:32

是TXT格式的，具体如图