how do i get access to automatically fill in fields?

[DP]

hi,

i have created a video rental database system. i have created a customer
form, and a film form.

i related all the tables, with;

tblCustomer has membershipID, which is primary and autonumber,
tblFilm has FilmID, which is primary and autonumber,
tblFilmRental , which has RentalID, CsutomerID, and FilmID

tbl customer is related to tblFilmRentals, and tblFilm is related to
tblFilmRental.

i've created a query, but i want it so that, when a film is rented, through
using the ID, i want it to display the film name and type in the
corresponding fields respectively. in the film rental form (subform).

i've done this before, on some other database, where it fills in the fields
automatically, but i cant get it to work on this.

any1 got an idea? i'm probably missing something obviouse.
TIA.

devin

[Jana]

Devin:

You can add a couple of unbound fields to your form, and name them
txtFilmName & txtFilmType. Then, on the FilmID AfterUpdate Event, put
something like this (Air Code):

Private Sub FilmID_AfterUpdate()
If Nz(Trim(FilmID),"") = "" then Exit Sub
Me!txtFilmName = Nz(DLookup("FilmName","tblFilm","FilmID = " _
& Me!FilmID),"Film Not Found")
Me!txtFilmType = Nz(DLookup("FilmType","tblFilm","FilmID = " _
& Me!FilmID),"")
End Sub

Now, you should be aware that every DLookup causes a separate query to
your database, which *can* be slow if you have lots of records...if
that is the case, let me know & I will help you with a more efficient
method.

HTH,
Jana

[DP]

thanx for the help,

i've sorted it, without using any code.

i basically created that query, but used fields from the film table, so now
eveytime a number is inserted as a film id, the rest of the fields are
automatically updated.

thanx for the help.

dev

"Jana" <Ba********@gmail.com> wrote in message
news:11**********************@o13g2000cwo.googlegr oups.com...

Devin:

You can add a couple of unbound fields to your form, and name them
txtFilmName & txtFilmType. Then, on the FilmID AfterUpdate Event, put
something like this (Air Code):

Private Sub FilmID_AfterUpdate()
If Nz(Trim(FilmID),"") = "" then Exit Sub
Me!txtFilmName = Nz(DLookup("FilmName","tblFilm","FilmID = " _
& Me!FilmID),"Film Not Found")
Me!txtFilmType = Nz(DLookup("FilmType","tblFilm","FilmID = " _
& Me!FilmID),"")
End Sub

Now, you should be aware that every DLookup causes a separate query to
your database, which *can* be slow if you have lots of records...if
that is the case, let me know & I will help you with a more efficient
method.

HTH,
Jana