Access Button to Auto Populate default data to a table

[tsgtnissen]

Hello!



Im working on a very simple database that tracks tasks that are assigned to users. I have setup two tables called "Contacts" and "Tasks". In a perfect would I would like to auto populate 3 brand new tasks each time i create a new user // two tasks would be assigned to the "INDOC" tab and 1 task to the "blk 1" tab. I am using a query to filter the lists on each tab based on a field called "Block" Currently my user datebase looks like this:




the tabs look like this ...



the tasks table would need default info auto populated this is what my table looks like...





Thank you so much for the help!

[June7]

Execute INSERT action SQL statements to create records. But first have to commit new user record to table before records in related tables can be created. What are the foreign key fields?

Advise not to use spaces nor punctuation/special characters in naming convention. PctComplete would be better than % Complete.

[tsgtnissen]

Where would i find my foreign key fields ?>

[June7]

I should have said "foreign key field" - singular.

It is the field in Tasks table that saves primary key (what is that field?) from Contacts table.

[tsgtnissen]

First, thank you so much for helping me with this issue. YOUR patience and kindness is greatly appreciated!

I believe the key field is "ID"

[June7]

That is primary key in Contacts. Now what field in Tasks saves that ID as foreign key?

Trying to understand how tables are related.

I am guessing it is the AssignedTo field.

Oh, and what are TaskList ID's of tasks you want to create?

So as soon as new contact record is saved, need to grab that new ID and use it to create Task records.

Real trick is figuring out what event to put code into. Perhaps button Click.

If Me.Dirty Then Me.Dirty = False
CurrentDb.Execute "INSERT INTO Tasks(AssignedTo, TaskID) VALUES(" & Me.ID & ", 1)"

CurrentDb.Execute "INSERT INTO Tasks(AssignedTo, TaskID) VALUES(" & Me.ID & ", 2)"
CurrentDb.Execute "INSERT INTO Tasks(AssignedTo, TaskID) VALUES(" & Me.ID & ", 3)"