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
|
Private Sub cmdNouveau_Click()
On Error GoTo Err_cmdConsultation_Click
Dim Reponse As Integer
Dim stDocName As String
stDocName = "frmConsultation"
Reponse = MsgBox("Voulez allez créer un nouveau projet à partir de zéro. Cliquez sur OK pour continuer ou Cancel pour annuler.", vbOKCancel, "Avertissement")
If Reponse = 1 Then
DoCmd.OpenForm stDocName, acNormal, , , acFormAdd, acDialog, "GotoNew"
DoCmd.GoToRecord , , acNewRec
Me.Recordset.AddNew
End If
Exit_cmdConsultation_Click:
Exit Sub
Err_cmdConsultation_Click:
MsgBox Err.Description
Resume Exit_cmdConsultation_Click
End Sub |
Partager