Ne pas ouvrir formulaire si ou réouvrir formulaire

**lucas-18** · 07/10/2009, 18h19

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 Function

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

Le problème est le suivant :

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 ?

**lucas-18** · 13/10/2009, 10h46

J'ai trouvé çà qui empêche la fermeture d'un formulaire ; est-ce que ce code pourrait servir pour régler mon problème ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Etes-vous certain ?", vbYesNo) = vbNo Then Cancel = True
End Sub

Invité · 13/10/2009, 11h35

Envoyé par lucas-18

J'ai trouvé çà qui empêche la fermeture d'un formulaire ; est-ce que ce code pourrait servir pour régler mon problème ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Etes-vous certain ?", vbYesNo) = vbNo Then Cancel = True
End Sub

Pourquoi, n'essaies tu pas?

Si à chaque problème tu demandes aux autres une solution tu n'apprendras rien.

**lucas-18** · 13/10/2009, 12h07

Envoyé par GAYOT

Pourquoi, n'essaies tu pas?

Si à chaque problème tu demandes aux autres une solution tu n'apprendras rien.

Ne crois pas que lorsque je pose je n'essaie pas avant bien au contraire.

J'avais déjà essayé ce code et le formulaire se ferme quand meme MAIS j'ai mis le code sur le sous formulaire et pas le formulaire principal ... je retente

**lucas-18** · 14/10/2009, 18h07

En toute logique, il faudrait que les 2 codes suivants "agissent" avant la fermeture du formulaire principal par mon bouton Close et pour le moment, j'ai donc mis ces 2 codes dans mon formulaire principal mais je ne comprends pas que le formulaire principal se ferme quand même If Not checkAmountNumbers puisqu'il est bien écrit Cancel = True !!!

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 Function

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

**pier.antoine** · 14/10/2009, 20h07

Idée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Unload(Cancel As Integer)
    If checkAmountNumbers = false Then
           Cancel = True
    End If
End Sub

Ca a l'air pareil, mais bon peut-être que non...

PIerre

**lucas-18** · 14/10/2009, 20h30

Envoyé par pier.antoine

Idée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Unload(Cancel As Integer)
    If checkAmountNumbers = false Then
           Cancel = True
    End If
End Sub

Ca a l'air pareil, mais bon peut-être que non...

PIerre

Toujours pas, j'ai la msgbox qui apparaît, le formulaire se ferme et j'ai un msgbox d'access : The CloseAction was cancelled ...

**lucas-18** · 14/10/2009, 20h51

En fait, je me suis trompé Access ne fermait ps le formulaire, il le réduisait ...

Impossible de fermer le formulaire si les 2 montants ne sont pas égaux et c'est ce que je voulais.

Mais le problème, c'est qu'en réduisant le formulaire, l'utilisateur tombe directement sur mon formulaire d'accueil et peut ouvrir d'autres formulaires.

Il faudrait donc que le formulaire ne se réduise pas mais reste au premier plan ... si qqun a une idée ...

J'ai bien essayé çà mais çà ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_Unload(Cancel As Integer)
    If checkAmountNumbers = false Then
           Cancel = True
           DoCmd.Maximize
    End If
End Sub