ник: Дядя Федор
копировать все кроме кода
Private Sub BtnCopy_Click()
Dim i As Integer
If Me.fcount > 0 Then
For i = 1 To Me.fcount
CurrentDb.Execute ("INSERT INTO Tbl_Price ( Naim )" & _
"SELECT Tbl_Price.Naim FROM Tbl_Price WHERE [IdPrice]=" & Me.IdPrice & ";")
Next
End If
Me.fcount = 0
Me.Requery
End Sub
|
-> копирует текущую запись заданное в поле fcount раз