Discussion :

[Tchupacabra]

Bonjour,

j'ai un sous-formulaire qui "se grise / s'efface" lorsqu'il n'y a pas de "sous-enregistrement". (je sais pas comment le dire... )

Comment tester si ce sF est rempli ou non ?

J'ai essayé avec :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
    If Me.sfrmClientInscription. Then
        Me.btnSaveModif.Enabled = False
    Else
        Me.btnSaveModif.Enabled = True
    End If
End Sub

Le but est de désactiver un bouton s'il n'y a pas de sous-enregistrement....

Merci d'avance.

@+

[Dolphy35]

Salut

Je pense que tu as une erreure dans ton code.

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current() 
    If Me.sfrmClientInscription. Then 
        Me.btnSaveModif.Enabled = False 
    Else 
        Me.btnSaveModif.Enabled = True 
    End If 
End Sub

Dans le If Me.sfrmClientInscription ne correspond à rien !!!

@+

[Tchupacabra]

Pardon, erreur de copier/coller pendant mes tests....

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
    If Me.sfrmClientInscription.Enabled Then
        Me.btnSaveModif.Enabled = False
    Else
        Me.btnSaveModif.Enabled = True
    End If
End Sub

Mais le test renvoi toujours True. ce n'est donc pas la bonne propriété à tester...

[Dolphy35]

Il y a un truc dans ton If Me.sfrmClientInscription.Enabled , il faut que tu le compare soit à la valeur True ou False

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current() 
    If Me.sfrmClientInscription.Enabled = True Then 
        Me.btnSaveModif.Enabled = False 
    Else 
        Me.btnSaveModif.Enabled = True 
    End If 
End Sub

@+

[Tchupacabra]

On n'est pas obligé de mettre un " = booleen" pour la comparaison....

Code :

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

If (Me.sfrmClientInscription.Enabled = False) Then

renvois toujours False parce que Me.sfrmClientInscription.Enabled est égal à True

Moi je cherche juste à tester s'il existe un enregitrement dans le sous-formulaire qui est basé sur une requête....

[Dolphy35]

salut,

Si ton sous Formulaire est basé sur une requête tu peux vérifier si il possède un enregistrement et tu anime ton BP en fonction ou alors je n'ai rien compris

@+

[Tchupacabra]

tu peux vérifier si il possède un enregistrement

oui mais comment ? C'est ça ma question !

tu anime ton BP en fonction

C'est quoi un BP ?

@+

[Dolphy35]

C'est quoi un BP ?

Désolé déformation Professionnel je voulais dire un Bouton de commande.

Pour le recherche d'enregistrement tu créer un Recordset et tu contrôle si il y a des enregistrements.

[Dolphy35]

J'ai trouvé cela dans les sources.

http://access.developpez.com/sources...NavigSansAjout

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
19
20
21
22
23
24
  Me!txtAtteindre = Me.CurrentRecord
 
'Disponibilité des boutons de navigations :
  'On ne peut aller vers l'enregistrement précédent
  'que si nous ne sommes pas déjà sur le premier.
  Me!btcPréc.Enabled = (Me.CurrentRecord > 1)
  Select Case Me.NewRecord
    Case True
      Me!btcSuiv.Enabled = False
      Me!btcNouv.Enabled = False
      'Mise à jour des infos de navigation
      '(affichées par étqCpteEnr)
      strInfosNavig = "sur " & Me.CurrentRecord
       'Mise à jour des infos de navigation
       '(affichées par étqCpteEnr)
      If Me.FilterOn Then strInfosNavig = strInfosNavig & " (Filtré)"
    Case False
      Me!btcSuiv.Enabled = True
      Me!btcNouv.Enabled = True
      If Me.CurrentRecord = 1 Then sMajInfosNavig
      'Mise à jour des infos de navigation
      '(affichées par étqCpteEnr)
      strInfosNavig = "sur " & mlngCpteEnr & mstrFiltré
  End Select

Sur le lien tu peut télécharger le projet Exemple.

@+

[boubignole]

salut

sinon faut faire un recordset du sous form et utiliser la méthode RecordCount.

Code :

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

1
2
3
4
5
 
    Dim Rs As Object
    Set Rs = Me.SousForm.Form.RecordsetClone
    nbEnreg = Rs.RecordCount
... test de nbEnreg

[Dolphy35]

Salut,

Très bien encore plus simple et plus j'aprend un truc merci boubignole

[Tchupacabra]

Trop de la balle !

@+