Mark -
You are kind of hopping all over the place a bit.  Posting in multiple forums with the same title. Like HERE.

You remind me a bit of the Hare in the old story of the Tortoise and the Hare.
I see that you now have some the courses finally but I don't see that you are grasping the teachings. I really encourage you become more Tortoise like.  Slow down a bit and go through the process of Knowing Access  Not just watching a bunch of videos to incorporate the next cool gadget.

I get that you have a director you're trying to please and that you have a family life -  that, you have mentioned before.  BUT - Do yourself a favor and, now that you have a good example of what you want to accomplish, re-watch the Expert 1 and 2 on relationships.  Those explain how to break up the data properly.  Re-watch the videos on Queries.  Those explain how to bring the data back together, in a meaningful way,  for us humans to read.

Both the Calendar Seminar and the Add Records Automatically videos have the information you are needing for what you want to accomplish.  You just need the base knowledge and understanding to put it together.

We are here to help. I hope you understand we want to help you learn. We're not here to just provide you a solution to the most current problem.

Yeah, plus I don't understand the question. :)

Can you elaborate? Maybe a screen shot?

Hi Richard and guys I am trying to post a screenshot of the vba from my form but it's not loading the picture for some reason. Anyway I got as far as the msgbox asking for the name, watching videos about the docmd.gotorecord and gotocontrol  and watching different ways of how to do the code and rewatching some of the expert levels also.  
I just tried to upload a screenshot but still can't, using jpg at 253 KB. So I am going to type it in.
This is what I got so far just the inputbox. Thanks.

Code

Private Sub AddFuture_Click()

    Dim StartDate As Date
    Dim S As String
    Dim X As String
    
    X = InputBox("enter FirstName", "Enter Name")
    S = InputBox("Enter Begin Date", "Enter date", Date)
    
    If S = "" Then Exit Sub
    If X = "" Then Exit Sub
    
    StartDate = CDate(S)
    
    DoCmd.GoToControl "DateTime"
    DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
    DateTime = StartDate + 7

Mark -
I think you hit the length limit for posts.  Did all of your sub get posted?

You can't put an image directly into a current reply.
How are you trying to upload the image?  Are you using the up load images link in the original post?

Hi Scott thanks for responding. I am not trying to hit any length or max out on posts or anything of that nature. The database i am making is for my nonprofit organization that i work for. It consists of only 4 forms and the calendar form that I saw on the site and a few people said lets see if we could use that. Turns out we can. Anyway to answer your question about uploading the picture, on the top first conversation on the right small letters it says upload images and link. I did use that one and still not working, don't know why. I did once before and it worked.

I think you misunderstood.  The length of any one reply is about 1000 characters.
It appears that all of your code didn't make it and got cut off.

Are you receiving an error or file to large for up load?

Hey Scott, I got no error code. I chose the file and did the upload but nothing happened. the code that you see is what I copied and pasted, that is as far as I got with it.

Just throwing this out there Mark, if this is what you were e-mailing me about back in January for scheduling staff in the future automatically, this is not how you want to do it. This is still you entering one record at a time, you need a For Next Loops or a recordset to schedule out multiple records ahead.

As for your code, start off with a simpler version than add more. Do this, this works.
    Dim StartDate As Date
    StartDate = InputBox("Enter Start Date")
    DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
    DateTime = StartDate + 7

Also, you're not doing anything with X, the name in your code, it's just an unused variable after you set it with the inputbox

    Dim StartDate As Date
    Dim X As String
    X = InputBox("Enter Name")
    StartDate = InputBox("Enter Start Date")
    DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
    FirstName = X
    DateTime = StartDate + 7