如何基於字段值創建新表？

我已經使用Access已經很多年了，而且我絕對生鏽......我想根據單個值將現有表分成多個表。例如：（注意值不同，不要緊，他們是什麼，除了下面山口C）如何基於字段值創建新表？

Col A | Col B | Col C | Col D 
-------------------------------- 
aaa | xxx | app1 | somepath1 
bbb | yyy | app1 | somepath2 
ccc | zzz | app2 | somepath3 
ddd | www | app2 | somepath4 
eee | vvv | app3 | somepath5

基本上我想分裂並創建一個名爲「APP1」表具有所有從APP1行，一個名爲「app2」的表，其中包含來自app2的所有行等。

而不是用make表查詢手動執行此操作，將每個appname複製並粘貼到條件字段中，我寧願這樣做自動並使其成爲可以在未來數據上運行的已保存查詢。

我試着直接編輯SQL並選擇一個不同的appname，然後創建一個基於此的選擇，但是我嘗試過的每一件事都給出了錯誤「該字段太小而無法接受您嘗試的數據量」。我甚至不知道這意味着什麼，因爲我的所有字段都是「長文本」，並且在大多數情況下數據不超過200個字符。

任何建議如何自動執行此操作？謝謝你的時間。

來源

2016-08-04 Tim S.

Function split() 
Set db = CurrentDb() 
Set Applist = db.OpenRecordset("select ColC from SourceData group by ColC") 
Applist.MoveFirst 
Do While Not Applist.EOF 
    App = Applist.Fields("ColC").Value 
    SQL = "select * into [" & App & "] " 
    SQL = SQL & " from [SourceData] where ColC='" & App & "'" 
    db.Execute (SQL) 
    Applist.MoveNext 
    Loop 
MsgBox ("Done") 
End Function

注意 - 這裏假定ColC的內容是「很好」 - 例如沒有引號或括號。空間應該沒問題。

來源

2016-08-04 18:36:07

運行VBA代碼的方法多年來顯然有所改變。我如何/在哪裏實際運行此代碼？ –

創建一個模塊並將其放入其中。在模塊內部，您可以單擊F5功能鍵。或者你可以創建一個帶有RunCode命令的宏。 –

謝謝 - 我做了模塊路由並運行，但必須刷新我的表視圖才能看到新的表名。謝謝，這很好用！ –

如何基於字段值創建新表？

回答

相關問題