Auto fill the value in sub-form

[Guest]

Access 2003
Hi, I have a sales tracker table with fallowing fields. Employee ID, Date,
Model and Number of models sold by an employee. Employee ID is pulled from
another table using Lookup function. Same is the case with Model also.

Now I designed a form where user can select the EMP ID and Put the date;
however, its not convenient as each time they enter the sales they will have
to enter the date and employee ID. Is there any way where They can just
select the Employee ID and put a date only one and when they enter the Model
and no of pieces sold the other two filed pull the data automatically.

Below is the design of my form, I used the default value in sub form but
that does not seems to be very convenient.

Form
-------------------------------------------------------------------------------------
EmpID [Combox4] Unbound

Date [textBox1]

Subform(In data sheet view)

 

[jahoobob via AccessMonster.com]

If the Date (BTW, change this to something like SalesDate. One of the No Nos
of Access is never name anything with a reserved word) will always be the
current date set the default of the field in your form to =Date() (This is
why you don't name a field Date)

Access 2003
Hi, I have a sales tracker table with fallowing fields. Employee ID, Date,
Model and Number of models sold by an employee. Employee ID is pulled from
another table using Lookup function. Same is the case with Model also.

Now I designed a form where user can select the EMP ID and Put the date;
however, its not convenient as each time they enter the sales they will have
to enter the date and employee ID. Is there any way where They can just
select the Employee ID and put a date only one and when they enter the Model
and no of pieces sold the other two filed pull the data automatically.

Below is the design of my form, I used the default value in sub form but
that does not seems to be very convenient.

Form
-------------------------------------------------------------------------------------
EmpID [Combox4] Unbound

Date [textBox1]

Subform(In data sheet view)