duplicate record command button

nomvula

hi guys
i need help, i have a form which is diplayed in a Datasheet view with more that 2 hundred records, when a user needs to add new entries i want him/her to select atleast 5 or more rows and click duplicate record button to duplicate those five records but at the moment only 1 record is getting duplicated

nico5038

Hi nomvula,

Best to check the code of this sample:
http://www.geocities.com/nico5038/xS...p-Down2000.zip
It shows how to select the rows from a datasheet subform and will allow you to write the needed INSERT loop.

Nic;o)

nomvula

thanks Nico, i'll have a look at that

nico5038

In the subform the code:

Expand|Select|Wrap|Line Numbers

 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Parent.txtSelLength = Me.SelHeight

Parent.txtSelstart = Me.SelTop
 
Dim rs As Recordset

Dim intI As Integer
 
Set rs = Me.RecordsetClone
 
rs.MoveFirst

intI = 1

While intI < Me.SelTop

 intI = intI + 1

 rs.MoveNext

Wend

'now positioned on the first
 
'Init resultfield

Parent.txtSelected = ""
 
intI = 0
 
While intI < Me.SelHeight

 Parent.txtSelected = Parent.txtSelected & " " & rs!Field1

 intI = intI + 1

 rs.MoveNext

Wend
 
Set rs = Nothing
 
End Sub

Is filling the fields of the mainform with the rows and more important the keys (here field1). The same loop can be used to execute an insert statement for duplicating the selected rows.

What more do you need o know ?

Nic;o)

duplicate record command button

Post your reply

Similar topics