Discussion :

[krassi]

pour l ouverture d'une form, l'utilisateur doit entrer une valeur dans une box.
Si la valeur n'existe pas dans la table source de la form tally, la form retournée est vide.
Je souhaite sur cette information "form vide" creer une condition et ne sais absolument pas comment faire

Merci de votre aide


Pour info bout du code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub c_nv_rapport_Click()
On Error GoTo Err_c_nv_rapport_Click
Dim Message, Title, Default, MyValue
 
' Définit le message.
Message = "Entrez le numero Ademar de l'escale recherchéé"
Title = "SAISIE ADEMAR"    ' Définit le titre.
Default = ""    ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
 
DoCmd.OpenForm "tally1", , , "ademar=" & [MyValue], acFormReadOnly

[Tofalu]

Sur l'évènement Open du formulaire à ouvrir tu dois pouvoir tester la priopriété Recordcount du recordset et annuler l'ouverture dans le cas où elle vaudrait 0 :

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.Recordset.RecordCount = 0 Then
    MsgBox "Aucune donnée"
    Cancel = True
End If
End Sub

[krassi]

Merci pour la reponse
ca marche bien mais le probléme est que la form peut aussi être ouverte dans un menu en

Code :

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

DoCmd.OpenForm "tally1", , , , acFormAdd, , Me.Name

et alors l' ouverture de la forme en ajout plante

Krassi

[Tofalu]

Spécifie un argument dans openargs dans ce cas. Tu testeras cet argument lors de l'ouverture

[krassi]

Merci de la péponse,
mais étant béotien, je n'arrive pas a utiliser correctement openargs ; ou pourrais je trover des exemples d'utilisation

merci
krassi

[Tofalu]

Dans l'aide. C'est pourtant simple

[Invité]

pour la commande d'ouverture tu mets :

Code :

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

DoCmd.OpenForm "tally1",acNormal,,,acFormAdd,,"ModeAjout"

"ModeAjout" etant l'argument d'ouvertutre pour Tally1
dans Tally1 sur l'evenement ouverture tu colles ça :

Code :

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

1
2
3
4
5
6
7
Select Case OpenArgs
Case "ModeAjout"
If Me.Recordset.RecordCount = 0 Then
    MsgBox "Aucune donnée"
    Cancel = True
End If
End Select

ça devrait le faire...
J'ai mis "ModeAjout" mais tu peux utiliser un autre terme, le principal etant que tu le retrouves dans les 2 forms !