
Data Cotrol (DAO) and Index
Your database has no key,
you could try this code instead
dim strParm as string
dim strSearchme as string
strSearchme = InputBox("Please enter info to search for")
if not strSearchme = "" then
strParm = "Select * from [Name of your Table here] _
where [Field name here] = '" & strSearchme & "' Order by _
[Field Name] ASC"
data1.recordset.recordsource = atrparm
data1.refresh
end if
'This just passes an SQL search to an access database you
'attached to data1 hopefully this is self explanitory if not
'email me Jason
-**** Posted from RemarQ, http://www.*-*-*.com/ ****-
Search and Read Usenet Discussions in your Browser - FREE -