Bonjour, j'expose mon problème :
J'ai un formulaire principal "Customer" avec un sous-formulaire "Paymentplan" et un autre "Paymentplandetail".
Dans ces 2 sous-formulaires, j'ai pour chacun un champ calcul qui doit être exactement le même ; j'ai alors mis ce code dans le module de formulaire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Function checkAmountNumbers() As Boolean If Me.Form.Controls("Amountarrears") <> Me.frm_paymentplan2.Form.Controls("Totaldetail") Then checkAmountNumbers = False MsgBox "Error : Payment plan" & vbCrLf & vbCrLf & "The amount of arrears and the detail total are not equal ! Please correct this error.", vbExclamation, "CTX" Else checkAmountNumbers = True End If End FunctionLe problème est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub Form_Unload(Cancel As Integer) If Not checkAmountNumbers Then Cancel = True End If End Sub
Lorsque je quitte le formulaire principal par un bouton Close, la msgbox apparaît bien mais j'aimerais ou bien réouvrir le formulaire principal sur le même enregistrement automatiquement ou que le formulaire principal ne se ferme pas même en appuyant par Close.
Comment puis-je faire ?
Partager