Text value of last record

K

kuslusr1

I am tracking site hazard inspection reports, multiple items are turned in by
the same inspector and the same inspection support group. I would like to add
new form records (specific hazards) and have the inspector and support group
fields populate based on the last date enter to minimize key strokes. The
information that was last enter would populate in the new record fields with
edits allowable. Once edits were made, this would become the last record
information and would update new records.
 
L

Linq Adams via AccessMonster.com

If you're talking about entering a series of new records and having the
inspector and support group from one record carry forward to the next group,
you can use the AfterUpdate event of the control holding your data to set the
DefaultValue for the field. From that time forward, until you either manually
change the data or close your form, the data will be entered automatically in
each new record. The syntax is slightly different, depending on the datatype
of the data:

For Text fields

Private Sub YourTextControlName_AfterUpdate()
If Not IsNull(Me.YourTextControlName.Value) Then
YourTextControlName.DefaultValue = """" & Me.YourTextControlName.Value &
""""
End If
End Sub

For Numeric fields

Private Sub YourNumericControlName_AfterUpdate()
If Not IsNull(Me.YourNumericControlName.Value) Then
YourNumericControlName.DefaultValue = Me.YourNumericControlName.Value
End If
End Sub

For Date fields

Private Sub YourDateControlName_AfterUpdate()
If Not IsNull(Me.YourDateControlName.Value) Then
YourDateControlName.DefaultValue ="#" & Me.YourDateControlName & "#"
End If
End Sub

If you're talking about having these fields carry forward with the form being
closed then re-opened netween records, that a little more complicated. If
this is the case post back.
 
Top