what is a command equal to = (CTRL+')

  • Thread starter Thread starter 1aae
  • Start date Start date
1

1aae

Thank you
what is a command equal to = (CTRL+') I can use with many text box exactly 40 text box using only (command button)
is this possible or not
thank you
 
1aae said:
Thank you
what is a command equal to = (CTRL+') I can use with many text box
exactly 40 text box using only (command button)
is this possible or not
thank you
Click to expand...

There is no single command to do that; you have to write a bit of code.
Do you mean you want to copy many text boxes from the previous record?
You might do it following this model:

'------ start of code ------
Private Sub cmdCopyPrevious_Click()

On Error GoTo Err_cmdCopyPrevious_Click

With Me.RecordsetClone
If Me.NewRecord Then
If Not .EOF Then
.MoveLast
End If
Else
.Bookmark = Me.Bookmark
.MovePrevious
End If
If .BOF Then
MsgBox "There is no previous record!", _
vbExclamation, "Nothing to Copy"
Else
Me!Field1 = !Field1
Me!Field2 = !Field2
' ... and so on ...
End If
End With

Exit_cmdCopyPrevious_Click:
Exit Sub

Err_cmdCopyPrevious_Click:
MsgBox Err.Description, vbExclamation, "Error " & Err.Number
Resume Exit_cmdCopyPrevious_Click

End Sub
'------ end of code ------
 
Back
Top