Função GetFields (ByVal TableName como a corda) como a corda
'Referências: Biblioteca de objeto de Microsoft Access 11.0, biblioteca de objeto de Microsoft DAO 3.6
'Ajustar referências estalando ferramentas e então referências na janela da opinião do código
'Retorna todos os nomes de campo que existem na tabela TableName.
'Aceita
'TableName: Nome da tabela em que os campos são ficados situados
'Retorna todos os nomes de campo, zero de outra maneira
'USO: GetFields “TABLENAME”
No errhandler empreendedores do erro
DB não ofuscante como DAO.Database
Tdf não ofuscante como DAO.TableDef
Fld não ofuscante como DAO.Field
strField não ofuscante como a corda
Ajustar DB = CurrentDb
Ajustar o tdf = o db.TableDefs (TableName)
'Dar laços através de todos os campos (as colunas)
Para cada fld no tdf. Campos
strField = strField & fld. Nome & “,” 'garra o nome de campo
Em seguida
'Retornar os nomes de campo
GetFields = strField
'Se nenhuns erros
ExitHere:
Ajustar o fld = nada
Ajustar o tdf = nada
Ajustar DB = nada
'Notificar o usuário que o processo está completo.
' MsgBox do “cópia registro completa”
Retirar a função
errhandler:
'Há um retorno do erro como o zero
GetFields = “erro” & Err.Number & vbCrLf & Err.Description
Com errar
' MsgBox “erro” &. Número & vbCrLf &. Descrição, _
' vbOKOnly ou vbCritical, “GetFields”
Extremidade com
Resumo ExitHere
Função do fim
|