Discussion :

[snoopy69]

Bonjour à tous ...

Voici ma question. J'aimerais limiter le nombre d'enregistrement possible pour un sous formulaire c'est à dire que j'aimerais avoir seulement 4 enregistrement possible dans ce sous formulaire et pas un de plus ...

Es ce que cela est possible par le code ou alors par un autre moyen ???

Merci de vos réponses et à tout bientôt ...

[samlepiratepaddy]

Slt,
Dans ta requete source de ton sous form utilise le "SELECT TOP 4" en début d'instruction !
En fait ta requete ne sortira que les 4 premiers enregistrements, donc ton sous-formulaire n'en présentera que 4 enregistrements !
@+

[snoopy69]

Merci de ta réponse ... c'est pas totallement ce que je voulais faire ... mais cela marche ...

J'aimerais en fait interdir l'insertion d'enregistrement si il y en à déjà 4 par rapport à un champ de mon sous-formulaire

Es ce que cela est possible ???

Merci de vos réponses ...

[samlepiratepaddy]

Re,
Haa là je peux pas t'aider !
Empêcher que SI il y a déja 4 enregistrements ....
Et donc SI il y a mois de 4 pouvoir ajouter ??
Désolé je sais pas!

[snoopy69]

Oki alors je vais essyer d'aller faire un ptit tour dans le monde si vaste de VBA pour créer un module qui me fasse mes tests ...

Ouais ouais ... Si quelqu'un à une autre idée, je prends volontier ...

Merci des réponses que vous me donnez ...

+++
++
+

[Invité]

Salut,

Ton sou formulaire est sûrement lié à une table, ou à une requête, essaye par DAO et un recordset d'avoir le nombre d'enregistrements avec un RecordCount. Et suivant la valeur bloque ton formulaire.

Je n'ai jamais essayé, c'est juste une piste

Starec

[snoopy69]

Merci pour ta piste ... je vais jeter un oeuil ...

A plus les gens ...

[snoopy69]

Voici ce que j'ai trové ....

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
Sub nombre_enregistrement()
 
'Déclaration des variables
 
Dim db As DAO.Database
Dim rst As DAO.Recordset
 
'Ouverture de la table TB_CARACTERISTIQUES
Set db = CurrentDb
Set rst = dbOpenRecorset("TB_CARACTERISTIQUES", dbOpenDynaset)
 
'Affichage des résultats
MsgBox "Nombre d'enregistrements :" & rst.RecordCount
If Not rst.EOF Then rst.MoveLast
MsgBox "Nombre d'enregistrements :" & rst.RecordCount
 
'Fermeture et libération des objets
rst.Close
Set rst = Nothing
Set db = Nothing
 
 
End Sub

EN fait avec ce code j'aimerais déjà (pour commencer) afficher le nombre d'enregistrement que j'ai dans ma table mais j'ai une erreur qui me dit :

Erreur de compilation
Sub ou fonction non définie

Savez vous d'ou vient le problème ???

merci de vos réponses ...

+++
++
+

[pgz]

Salut,

Il te manque un point sur la ligne set rst ...

Code :

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

Set rst = db.OpenRecorset("TB_CARACTERISTIQUES", dbOpenDynaset)

Par ailleurs, il faudrait vérifier que le dbOpenDynaset ne pose pas un pb d'accès au recordCount. Pourquoi pas dbOpenTable?

Tu peux aussi chercher u nb d'enregistrements avec une fonction de domaine

Code :

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

DCount("*","TB_CRACTERISTIQUES", "écrire ici la condition")

Bonne chance,

pgz

[snoopy69]

Merci de ta réponse ... j'ai encore une erreur ... la voici :

Erreur de compilation
Membre de méthode ou de donnée introuvable

Tu sais de quoi cela vient ???

Merci pour ton aide ...

[pgz]

Il faut que tu montres de nouveau le code...

A+
pgz

[snoopy69]

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
Sub nombre_enregistrement()
 
'Déclaration des variables
 
Dim db As DAO.Database
Dim rst As DAO.Recordset
 
'Ouverture de la table TB_CARACTERISTIQUES
Set db = CurrentDb
Set rst = db.OpenRecorset("TB_CARACTERISTIQUES", dbOpenDynaset)
 
'Affichage des résultats
MsgBox "Nombre d'enregistrements :" & rst.RecordCount
If Not rst.EOF Then rst.MoveLast
MsgBox "Nombre d'enregistrements :" & rst.RecordCount
 
'Fermeture et libération des objets
rst.Close
Set rst = Nothing
Set db = Nothing
 
 
End Sub

Voili ... pardon ...

[marot_r]

Salut j'apporte une partie de la solution

Déjà il faudrait que ce soit une Function pour que tu puisse récupérer ton nombre d'enr.

À la la vue de ton code, transforme ta Sub nombre_enregistrement en Function et ajoute

nombre_enregistrement=rst.recordCount

avant le rst.close.

Tu associe ensuite dans une Sub pour l'événement 'Avant Insertion' dans ton form avec un code du genre

Code :

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

1
2
3
4
5
6
 
if nombreEnregistrement > 4 then
       msgbox "Pas plus de 4 enr"
    else
       'Annule l'insertion et ça je ne sais pas le faire :-(
end if

Tu peux aussi offrir un bouton Ajouter qui compte AVANT même de faire l'insertion.

A+