.
Diese Funktion verwendet die Funktion [[http://wiki.yaslaw.info/wikka/VbAccessFunctions#translateToTechName translateToTechName()]].
'/**
' * Wandelt alle Spaltennamen in technische Namen. Praktisch nach einem Erstimport aus Excel
' * @used               http://wiki.yaslaw.info/wikka/VbAccessFunctions#translateToTechName
' * @param  String      Tabellenname
' */
Public Sub translateTableFields(ByVal iTableName As String)
	Dim tbl     As DAO.TableDef
	Dim dbs     As DAO.Database
	Dim fld     As DAO.field
	
	Set dbs = CurrentDb
	Set tbl = dbs.TableDefs(iTableName)
		
	For Each fld In tbl.fields
		fld.name = translateToTechName(fld.name)
	Next
	
	Set fld = Nothing
	Set tbl = Nothing
	Set dbs = Nothing
End Sub