Re: Date of Birth Function

#1

hi!!!

create a command button name 'Show'

in the click event of the command button

dim sDate as string ' to store date
dim sSQL as string ' to store query
dim rs as new ADODB.Recordset

sdate = trim(txtsearch)

sSQL = "SELECT Count(DOB) from CLIENTS where DOB = #" &
format(sDate,"mm/dd/yyyy") & "#"

if u r using ADO then

rs.cursorlocation = adclient
rs.open sSQL, cn (this being connection object)

with rs
if not(.BOF and .EOF) then
txtResult = rs.fields(1)
end if
end with

hope this helps, sorry if i messed up my explanation or didn't answer
your exact question.

thanx, peace and have a great day

regards
bala

#2

Thanks Ira but I still need some help since I am not familiar with
VBA.
I have tried your code but does not work.
Do I still need two text boxes? WHere do I write the function, add it
to a cmd button to a property of the text box?
Sorry but still need some help.

Ciao.

Ira Solomon <isolomon (AT) solomonltd (DOT) com> wrote

Quote:

Paolo:
You could use a query, but there is an easier way.
Use this function:
DCount(expr, domain, [criteria])

In this case expr is any field in the table.
domain is the name of the table.
criteria looks like:
"dob = " & me.dob

You will get the count without wrting a query.
There are a whole set fo function called "Domain Aggregate Functions"
that are very useful and often neglected.
Look them up .
Good Luck
Ira Solomon
On 31 Jul 2003 03:23:00 -0700, jprma (AT) tin (DOT) it (Paolo) wrote:

Frinds,
I have a table named CLIENTS with a field named DOB in which I have
stored my client's date of birth.
I would now like to create a form (named frmquery) on which add two
tex boxes to run a query so that I can know how many clients I have
with a specific age.

Let's say that the first text box (I'll name it simply txtsearch) will
be used to supply criteria to the query.
The second, named txtresult, should return the number of clients with
the age indicated in txtsearch.

The field on my table has a mm/dd/yyyy format with date property.

My problem is that I do knot know how to write the query criteria or
other.
I know how to write in the query: Like [forms]![frmquery]![txtsearch]
do make the text box ready for the query but do not know how do
actually
create date of birth queries.

Thanks.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Re: Date of Birth Function

comp.database.ms-access comp.database.ms-access

Re: Date of Birth Function - 07-31-2003 , 09:29 AM

Re: Date of Birth Function - 08-02-2003 , 02:38 AM