USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Procurando um campo em todas as tabelas do Access
Postada em 2/10/2003 por ^HEAVY-METAL^            
'Código escrito para Access, para
'usá-lo no VB somente faça a adaptação
'de CurrentDB para sua variável DataBase

Public Function FindFieldInTables(FldName As String, Optional Delimeter As String = Vbcrlf) As String
Dim tdf As TableDef
Dim fld As Field
Dim res As String

If FldName = "" Then
Exit Function
Else
FldName = Trim(FldName)
End If

For Each tdf In CurrentDb.TableDefs
    For Each fld In tdf.Fields
        If StrComp(fld.Name, FldName, vbTextCompare) = 0 Then
            res = res & tdf.Name & Delimeter
        End If
    Next
Next

'strip off trailing delimeter when returning result
If Len(res) > 1 Then
    FindFieldInTables = Left(res, Len(res) - Len(Delimeter))
End If
End Function

T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página