Final reply: My working code...
Dim AdminBookmark As Variant
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
AdminBookmark = Me.Bookmark
Do Until MultiCounter = TempCounter
MultiCounter = MultiCounter + 1
DoCmd.SetWarnings False...
I'll test your shorter version...but now I'm smokin'. Wow, I needed this for our aircraft inspection at Vance AFB on Sunday....your SUPER!!!!:cool:
And I did a lot of searching on this site...Thanks vbaInet!!!
Thanks again,
Ed
vbaInet...you got me on track...almost their!
The error was stating a field was not being copied to the next record even with data in the original. Figured out that somehow I changed the "Enabled" and "locked" properties of the form for this field! Changed back to "Enabled = yes" and "Locked...
Update: I replaced the "Error$" back into the error reporting...It states I'm missing a required field...shouldn't this be copied as well during the process?
No, I see no newly added records from the process. Was wondering if I should resort to a recordset verses a recordsource...
The current record remains on the form still and the record counter moves by 1...but no records
Are you saying then I should "move" to new record like:
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
Do Until MultiCounter = TempCounter
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdPaste ' or...
This allows me to multiply the number of times the record is required. for example, inspector looked at 5 Techical Orders (T.O.'s) and they all were good. I can capture their five inspections without having to type each one over again.
First post: I need to use the form's recordsource(recordset?) of a record to copy it back into the table (an exact copy). Reason: When inspectors go out and have "identical" writeups (passes/fails) it saves time on entry. I used the following but now I did something to mess it up:
Do Until...
What I use to copy fields from one record to a new record within the "Add Button" is the field name default value as below...works great:)
HQIDCombo.DefaultValue = """" & Me.HQIDCombo.Value & """"
WingIDCombo.DefaultValue = """" & Me.WingIDCombo.Value & """"
GrpIDCombo.DefaultValue = """" &...