Copy contents of above-cell to next record - when query is applied? 2

[keun]

I am trying to make a data entry task a little easier. Normally, I use CTRL+' to copy the contents of the above text box into the next record. But in my form I have a query applied so this is not working.

Is there another way?

I have thought about two buttons by each Text Box: the first button will copy the contents of the Text Box, and then second button with paste the clipboard into the Text Box. So, the user will get to the populated Text Box, hit the copy button. Go down one record, hit paste button, next records paste, etc until she gets to the next Text Box with data. Hit the Copy button and move on down.

Thoughts on this?

 

[fneily]

Maybe this can help:
How to fill a record with data from a previous record automatically in Access 2000 and 2002 and Office Access 2003

http://support.microsoft.com/?kbid=210236

 

[keun]

This appears to only apply to new records. I have the records existing in the database already.

 

[bubba100]

Another way you may wish to consider. This is placed in the KeyDown Event of the form. It uses the send key method which may fit your needs.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Turns off the ESC Key Must be in KeyDown, KeyPress, & KeyUp
Dim strKey As String
strKey = Chr(KeyCode)
If KeyCode = 27 Then
KeyCode = 0
End If

'If the F2 Key has been Pressed, the Field from the previous invoice is duplicated

Select Case KeyCode

Case vbKeyF2 'Duplicate The Field From The Previous Record
SendKeys "^(')"

End Select

Exit Sub
End Sub

 

[TheAceMan1]

How are ya keun . . .

Can be done with a [blue]simple double-click[/blue] of the textbox of interest (the previous record textbox is copied).

Setup:
[ol][li]In the forms code module, copy/paste the following routine.

[blue]Public Sub PrevRecVal()
   Dim Nam As String, hldVal
   
   Nam = Screen.ActiveControl.Name
   
   If Me.CurrentRecord > 1 Then
      Me.Recordset.MovePrevious
      hldVal = Me(Nam)
      Me.Recordset.MoveNext
      Me(Nam) = hldVal
   End If

End Sub[/blue]

[/li]
[li]In the [blue]On Dbl Click[/blue] event of each textbox of interest, copy/paste the following.

[blue]   Call PrevRecVal[/blue]

[/li]
[li]Done![/li][/ol]
[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[keun]

LOVIN' IT!

AceMan, you rock. This is amazing!