Início
percoski 4/6/2013, 12:17OLá senhores, por vezes somos obrigados, ou por melhorias ou por problemas, a atualizar e incluir ou excluir algum campo em nosso banco de dados ou até mesmo incluir tabelas. Até ai não seria problema pois temos vários exemplos de códigos que vazem isso, eu gostaria de saber se há uma maneira de chegar em uma tabela a existencia de campos ?
2 participantes
Atualização de bd
percoski- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 319
Registrado : 27/02/2013
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
Pode usar uma função para verificar o campo desejado.
exemplo:
Testando:
msgbox fncCampoExiste("datanascimento","tblClientes")
Sucesso!
exemplo:
Public Function fncCampoExiste(strNomeCampo As String, strNomeTabela As String) As Boolean
Dim j%
For j = 0 To (CurrentDb.TableDefs(strNomeTabela).Fields.Count - 1)
If CurrentDb.TableDefs(strNomeTabela).Fields(j).Name = strNomeCampo Then
fncCampoExiste = True
Exit Function
End If
Next
fncCampoExiste = False
End Function
Testando:
msgbox fncCampoExiste("datanascimento","tblClientes")
Sucesso!
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.