嘗試將由分隔符分隔的多個輸入數據保存爲數據庫中的單數記錄

我正在嘗試爲我的公司創建庫存數據庫。問題在於一次輸入一個項目的數據效率不高。於是，我們買了一臺掃描儀。掃描儀可以在其內存中放置多個項目，並且在傳輸到位置（文本框，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

嘗試將由分隔符分隔的多個輸入數據保存爲數據庫中的單數記錄

回答

相關問題