Discussion :

[lucas-18]

Bonjour,

J'ai un formulaire de recherche (Search) qui m'ouvre mon formulaire principal (Customers). Tout fonctionne mais lorsqu'il n'existe pas l'enregistrement que je tape, il m'ouvre mon formulaire (Customers) vide (donc juste avec une couleur en arrière-fond) et une msgbox.

Comment éviter l'ouverture de mon formulaire (Customers) tout en gardant ma msgbox ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Customer_AfterUpdate()
        DoCmd.OpenForm "Customers", , , "[Customer number]=Forms![Search]![Customer]"
 
        If IsNull(Forms![Customers]![Customer number].Value) Then
 
                MsgBox "This customer number doesn't exist ! Please try again.", vbExclamation
 
                DoCmd.OpenForm "Search"
                DoCmd.Close acForm, "Customers"
 
        Else      
        Exit Sub
        End If
 
 End Sub

[FreeAccess]

Bonjour,

La .toujours la ....

Comment ne pas ouvrir un formulaire si celui est vide ?

Bonne lecture.....

[lucas-18]

Bonjour,

La .toujours la ....

Comment ne pas ouvrir un formulaire si celui est vide ?

Bonne lecture.....

J'ai essayé de combiner mon code avec celui dans le FAQ mais cela ne marche pas :

Sur ma zone de texte "Customer" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Customer_AfterUpdate()
On Error GoTo Err_Customer_AfterUpdate
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Customers"
 
    stLinkCriteria = "[Customer_number]" & Me![Customer]
 
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_VAT_AfterUpdate:
    Exit Sub
Err_VAT_AfterUpdate:
    If Err = 2501 Then Resume Exit_Customer_AfterUpdate
    MsgBox Err.Description
    Resume Exit_Customer_AfterUpdate
 
 End Sub

(Le formulaire à ouvrir est "Customers" et "Customer_number" est le champ de ma table "Customers").

Sur le formulaire à ouvrir "Customers" :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
    If Me.RecordsetClone.RecordCount = 0 Then
        MsgBox "Le formulaire ne s'ouvre pas car il est vide.", vbInformation
        Cancel = True
    End If
End Sub

Où se situe le problème ???