尝试将由分隔符分隔的多个输入数据保存为数据库中的单数记录

我正在尝试为我的公司创建库存数据库。问题在于一次输入一个项目的数据效率不高。于是，我们买了一台扫描仪。扫描仪可以在其内存中放置多个项目，并且在传输到位置（文本框，Excel单元格）时，所有数据都将输入到由选项卡分隔符分隔的一个单元格中。尝试将由分隔符分隔的多个输入数据保存为数据库中的单数记录

有没有一种方法（split()功能也许），我可以从扫描仪的所有内存“粘贴”到表单上的单个文本框（以便文本框有“data1 data2 data3 data4”，然后保存这样我的表中就包含单独的记录数据

RECORD1 - 数据1
RECORD2 - 数据2
RECORD3 - 数据3

我只是学习的机会所以，语法的理解通常是我奋斗

来源

2017-04-11 TylerStudent

读取所有数据到文本框中，你需要一个按钮，点击，与OnClick事件代码看起来像这样：

Dim astrInput() As String 
Dim i As Integer 

astrInput = Split(txtData, " ") 
For i = 0 To UBound(astrInput) 
    CurrentDb.Execute "INSERT INTO myTable(DataColumn) VALUES ('" & astrInput(i) & "')" 
Next i

来源

2017-04-11 20:46:16 Skippy

感谢您回复！我会努力实现这一点，如果我有任何问题，如果你不介意 – TylerStudent

这个按钮的OnClick事件代码能够加上简单的保存按钮吗？我在想，添加保存记录的按钮，将宏更改为实际的VBA代码，然后实现上面提供的代码？我的意思是区分用于将文本框的记录保存为独立于上述代码的VBA代码，还是将此代码替换掉？如果这是有道理的 – TylerStudent

它工作！你是生命之师！ hahahah非常感谢你的帮助@Skippy，会花上很多时间来找出我自己的！ – TylerStudent

尝试将由分隔符分隔的多个输入数据保存为数据库中的单数记录

回答

相关问题