|
|
|
|
|
|
|
|
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+,
|
|
|
|
|
