How do I auto populate several fields at once

I have a table that I am holding play data for a football game. Each play is a separate record. Each Record will have two video files associated with it, a sideline view and an endzone view. What I would like is for someone to click the button at the top of the form and for the button to give you three prompts:
1) Game Number
2) Name of first Endzone File
3) Name of first Sideline File

I would then want access to append to the end of the table and auto populate the following 4 fields
1) Game Number (always the same)
2) Play Number (start at 1 and Go up 1 each play)
3) Endzoneview (a link to a file would start off VFD00023.wmv and go up 1 each play)
3) Sidelineview (a link to a file would start off VFD01099.wmv and go up 1 each play)

I would want it to do this until it ran out of files in the endzone and sideline video folders

I was able to do this in excel, but after I create the button and tie a macro to it, I am lost.

This is what I was able to come up with, but I know it is not correct.

This is what I have and know most of it is not right.... any advice

Function Macro1()


Prompt for Gameno
Promt for ezfilename
Promt for slfilname
Play = 1
While FileExists(tblgames.filepath.Gameno"\"ezfilename) Or FileExists(tblgames.filepath.Gameno"\"slfilename)
INSERT INTO tblGameData ([Game Number], [Play Number], [EZ View], [SL View])
VALUES (Gameno, Play, ezfilename, slfilename)
Play = Pkay + 1
ezfilename = "vfd" + (cat(ezfilename, 4, 4) + 1) + "wmv"
slfilename = "vfd" + (cat(slfilename, 4, 4) + 1) + "wmv"
EndWhile
DoCmd.OpenForm "Gamedata", acNormal, "", "", , acNormal
DoCmd****nCommand acCmdDataEntry



End Function


Any advise?
thank you,
Jerome