Fill a record with data - Access 2007

[punky001]

Can someone please give me some suggestions for filling a record with data from a previous record?
EX:
Field1: 1234
Field2: Test 2
Field3: Test 2 aa
Field4: Test 2 bb

This would be my first record and any other new records would have fields 1 and 2 automatically filled with data from the first record.

Any ideas?

 

[randy700]

Why not simply create a default value?


Randy

 

[punky001]

The fields I want duplicated from record to record may change - so I don't think I can use a default value - can I?

For Example: the user may enter 20 records with fields 1 and 2 the same. The next day the first time they enter a record - fields 1 and 2 changes for the first record but may be the same for a number of records they enter.

 

[SkipVought]

HOW is the user entering data? Using a FORM?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[punky001]

Yes a form would be used.

 

[dhookom]

You could try use code in the after update event of each control that sets its default value to the value recently updated.

Duane
Hook'D on Access
MS Access MVP

 

[Hap007]

You might try

1) Create a Global Field for each form field you want to repeat
2) Create Functions that return the Global field Value and use the function in the Default value of the form field
3) In the after update event of each field, set the corresponding global Field to the new value just entered.

That should handle filling in recently entered values as 'Default Values' for new records.

Hope This Helps,
Hap...

Access Developer

http://www.fcs-software.com/fcsaccessdev.html

Access based Accounting Solutions - with free source code
Access Consultants forum

http://www.tek-tips.com/threadminder.cfm?pid=1121

 

[TheAceMan1]

How are ya punky001 . . .

With the following code, double clicking the [blue]record selector[/blue] of any previously saved record sets the defaults. Here's how to install:
[ol][li]Put a question mark [blue]?[/blue] ([red]no quotations please[/red]) in the [blue]Tag[/blue] property of the textboxes of interest.[/li]
[li]In the forms [blue]On Dbl Click[/blue] event, copy/paste the following:

[blue]   Dim ctl As Control, DQ As String
   
   DQ = """"
   
   If Not Me.NewRecord Then
      For Each ctl In Me.Controls
         If ctl.Tag = "?" Then
            ctl.DefaultValue = DQ & ctl & DQ
         End If
      Next
   End If[/blue]

[/li]
[li]Thats it! ... perform your testing.[/li][/ol]
[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see faq219-2884 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]