Check Column is exist

Hi,
How can we check column in MS Access database table is exist or not?
The action that I would like to do is when the column is not exist in the
database then I will alert add column to that database. But I found know why
for me check the column exist or not.


Please help
Thanks in advance,
Goh



*

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!

dim db as dao.database
dim rs as dao.recordset
dim fld as dao.field

set rs = db.openrecordsource("tablename")
for each fld in rs.fields
if fld.name = "fred" then blnFound = true
next fld

if not blnFound then msgbox "not found"


(david)

"Goh" wrote in message
news:On%232VE8oGHA.4988@TK2MSFTNGP04.phx.gbl...
> Hi,
> How can we check column in MS Access database table is exist or
> not? The action that I would like to do is when the column is not exist in
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/12840-check-column-is-exist.html
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12840
> the database then I will alert add column to that database. But I found
> know why for me check the column exist or not.
>
>
> Please help
> Thanks in advance,
> Goh
>

There are several ways to do this. Here's one of them ...

Public Function DoesColExist( _
ByVal TableName As String, _
ByVal ColName As String) As Boolean
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12840

Dim rst As ADODB.Recordset
Set rst = CurrentProject.Connection.OpenSchema( _
adSchemaColumns, Array(Null, Null, TableName, ColName))
If rst.BOF And rst.EOF Then
DoesColExist = False
Else
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12840
DoesColExist = True
End If

End Function

Examples of use, in Immediate Window ...

? doescolexist("Table1", "TestText")
True
? doescolexist("Table1", "NoSuchCol")
False

--
Brendan Reynolds
Access MVP

"Goh" wrote in message
news:On%232VE8oGHA.4988@TK2MSFTNGP04.phx.gbl...
> Hi,
> How can we check column in MS Access database table is exist or
> not? The action that I would like to do is when the column is not exist in
> the database then I will alert add column to that database. But I found
> know why for me check the column exist or not.
>
>
> Please help
> Thanks in advance,
> Goh
>