1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| Private Sub btnCopy_Click()
'Forms!frm_Process.TabCtl361 = 0
On Error GoTo Err_Handle
Dim reponse As String
DoCmd.SetWarnings False
Me.Group.SetFocus
DoCmd.RunCommand acCmdSaveRecord
reponse = MsgBox("Êtes-vous certain de vouloir créer une copie de de ces données?", vbYesNo + vbQuestion, "Confirmation")
If reponse = vbYes Then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPasteAppend
Me.StreamNum.Visible = True
Me.StreamTitle.Visible = True
Call EmptyClipboard
Me!btnCreate.Enabled = True
Me!btnUndo.Enabled = True
Me!btnSave.Enabled = True
Me!btnDelete.Enabled = True
Me!btnCopy.Enabled = True
Else
Exit_btnCopy_Click:
End If
Err_Exit:
Exit Sub
Err_Handle:
Select Case Err.Number
Case Not 2501
MsgBox Err.Number & " " & Err.Description, "Unknown error"
End Select
If Err.Number = 3022 Then
response = MsgBox("Le '# de processus de sélection' et '# de volet' entrés existent déjà.", vbExclamation, "Erreur")
Me.StreamNum.Value = Null
Me!StreamNum.SetFocus
End If
DoCmd.SetWarnings True
End Sub |
Partager