Limiter nombre d'enregistrement d'un sous-formulaire

Version imprimable

20/10/2005, 08h32
snoopy69

Limiter nombre d'enregistrement d'un sous-formulaire

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 ...
20/10/2005, 08h38
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 ! :wink:
@+
20/10/2005, 08h41
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 ...
20/10/2005, 08h48
samlepiratepaddy

Re,
Haa là je peux pas t'aider ! :oops:
Empêcher que SI il y a déja 4 enregistrements .... :koi:
Et donc SI il y a mois de 4 pouvoir ajouter ??
Désolé je sais pas!
20/10/2005, 08h50
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 ...

+++
++
+
20/10/2005, 13h08
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
20/10/2005, 13h40
snoopy69

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

A plus les gens ...

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

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 :

Citation:

Erreur de compilation
Sub ou fonction non définie

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

merci de vos réponses ...

+++
++
+

20/10/2005, 14h42
pgz

Salut,

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

Code:

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:

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

Bonne chance,

pgz
20/10/2005, 15h25
snoopy69

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

Citation:

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

Tu sais de quoi cela vient ???

Merci pour ton aide ...
20/10/2005, 15h33
pgz

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

A+
pgz

Code:

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 ...

:oops: :oops: :oops:

26/10/2005, 17h03
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:

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+