Emplacement du code VBA

**anouar_chaieb** · 23/06/2008, 16h00

J'ai un code sert à effacer les trous dans les numéros auto c à dire il crée un numéro juste après le dernier, mais je cherche l'emplacement exacte du code j'ai essayé de plusieurs façons.

code:

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
25
26
27
28
29
30
Function NextID(LeChamp As String, LaTable As String) As Long 
 '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 'Fonction renvoyant le prochain Identifiant, en fonction des valeurs existantes dans une table. 
 'Arguments : 
 '    LeChamp => Nom du champ Identifiant numérique Long concerné 
 '    LaTable => Nom de la table contenant cet identifiant 
 'Retour    : 
 '    1 s'il n'y a rien dans la table 
 '    Le Nombre maximum +1 s'il y a une suite ininterrompue de nombres 
 '    La valeur du nombre manquant en cas de trou. 
 '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Dim sSQL    As String 
    Dim rs      As DAO.Recordset 
    Dim n       As Long 
 
    'Chaîne SQL en fonction de LeChamp et de LaTable, retournant NULL ou le numéro du trou 
    sSQL = "Select Min([" & LECHAMP & "]-1) As NextID From " & LATABLE & " As T1 "
    sSQL = sSQL & "Where ((([" & LECHAMP & "]-1)>0) And (((Select [" & LECHAMP & "] "
    sSQL = sSQL & "From " & LATABLE & " T2 "
    sSQL = sSQL & "Where T2.[" & LECHAMP & "]=T1.[" & LECHAMP & "]-1)) Is Null));" 
    Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot) 
    'Nbre d'enregistrements dans laTable 
    n = DCount("[" & LeChamp & "]", "[" & LaTable & "]") 
    If n = 0 Then               'S'il n'y a pas d'enregistrements, mettre 1 
        NextID = 1 
    ElseIf IsNull(rs(0)) Then   'Si la requête ne renvoie rien, incrémenter de 1 le maximum 
        NextID = DMax("[" & LeChamp & "]", "[" & LaTable & "]") + 1 
    Else 
        NextID = rs(0)          'Sinon, il y a un trou. Renvoyer la valeur du trou 
    End If

**Jean-Philippe André** · 23/06/2008, 16h21

Bonjour,
et tu attends quel genre de réponse ?

- dans un module ?

**anouar_chaieb** · 23/06/2008, 16h44

ça n'a pas marché dans un bouton de commande ou autre !!

**Jean-Philippe André** · 23/06/2008, 16h57

tu le mets où bon te semble, du moment qu'il est déclaré en tant que

Code :

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

Public

**LE VIEUX** · 23/06/2008, 23h35

une function se met effectivement "en général" dans un module mais pour qu'elle functionne il faut l'appeler - là toujours en général cela peut effectivement se faire avec un bouton et un code "sub" attaché à un de ses évènements "souvent clic" et ne pas oublier d'y passer les arguments dont la function a besoin dans ton cas (LeChamp As String, LaTable As String) et normalement ça functionne...

**anouar_chaieb** · 26/06/2008, 11h22

Veux tu m'indiquer comment fait-on appel à ce code "sur click" j'ai essayé mais je me suis trompé

**_MattU_** · 26/06/2008, 11h35

Tu va dans les propriété du controle qui t'interesse, dans l'onglet evenement et puis au niveau de la ligne "sur clic" tu cliques sur les petits pointillés à droite et ensuite génération de code.

**anouar_chaieb** · 26/06/2008, 11h51

Salut
effectivement mais ça n'a pas marché

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
25
26
27
28
29
30
31
32
33
Private Sub Commande29_Click()
Function NextID(n°_facture As String, tble_facture As String) As Long
 '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 'Fonction renvoyant le prochain Identifiant, en fonction des valeurs existantes dans une table.
 'Arguments :
 '    LeChamp => Nom du champ Identifiant numérique Long concerné
 '    LaTable => Nom de la table contenant cet identifiant
 'Retour    :
 '    1 s'il n'y a rien dans la table
 '    Le Nombre maximum +1 s'il y a une suite ininterrompue de nombres
 '    La valeur du nombre manquant en cas de trou.
 '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sSQL    As String
    Dim rs      As DAO.Recordset
    Dim n       As Long
 
    'Chaîne SQL en fonction de n°_facture et de tble_facture, retournant NULL ou le numéro du trou
    sSQL = "Select Min([" & n°_facture & "]-1) As NextID From " & tble_facture & " As T1 "
    sSQL = sSQL & "Where ((([" & n°_facture & "]-1)>0) And (((Select [" & n°_facture & "] "
    sSQL = sSQL & "From " & tble_facture & " T2 "
    sSQL = sSQL & "Where T2.[" & n°_facture & "]=T1.[" & n°_facture & "]-1)) Is Null));"
    Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot)
    'Nbre d'enregistrements dans tble_facture
    n = DCount("[" & n°_facture & "]", "[" & tble_facture & "]")
    If n = 0 Then               'S'il n'y a pas d'enregistrements, mettre 1
        NextID = 1
    ElseIf IsNull(rs(0)) Then   'Si la requête ne renvoie rien, incrémenter de 1 le maximum
        NextID = DMax("[" & n°_facture & "]", "[" & tble_facture & "]") + 1
    Else
        NextID = rs(0)          'Sinon, il y a un trou. Renvoyer la valeur du trou
    End If
 
End Function

**_MattU_** · 26/06/2008, 14h22

C'est normal ce code il faut que tu le copie dans un module, peu importe son nom, tu peux en créer un qui serviera juste à receuillir la fonction.
Donc tu créé un module et tu y ajoutes ceci :

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
25
26
27
28
29
30
31
32
Public Function NextID(n°_facture As String, tble_facture As String) As Long
 '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 'Fonction renvoyant le prochain Identifiant, en fonction des valeurs existantes dans une table.
 'Arguments :
 '    LeChamp => Nom du champ Identifiant numérique Long concerné
 '    LaTable => Nom de la table contenant cet identifiant
 'Retour    :
 '    1 s'il n'y a rien dans la table
 '    Le Nombre maximum +1 s'il y a une suite ininterrompue de nombres
 '    La valeur du nombre manquant en cas de trou.
 '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sSQL    As String
    Dim rs      As DAO.Recordset
    Dim n       As Long
 
    'Chaîne SQL en fonction de n°_facture et de tble_facture, retournant NULL ou le numéro du trou
    sSQL = "Select Min([" & n°_facture & "]-1) As NextID From " & tble_facture & " As T1 "
    sSQL = sSQL & "Where ((([" & n°_facture & "]-1)>0) And (((Select [" & n°_facture & "] "
    sSQL = sSQL & "From " & tble_facture & " T2 "
    sSQL = sSQL & "Where T2.[" & n°_facture & "]=T1.[" & n°_facture & "]-1)) Is Null));"
    Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot)
    'Nbre d'enregistrements dans tble_facture
    n = DCount("[" & n°_facture & "]", "[" & tble_facture & "]")
    If n = 0 Then               'S'il n'y a pas d'enregistrements, mettre 1
        NextID = 1
    ElseIf IsNull(rs(0)) Then   'Si la requête ne renvoie rien, incrémenter de 1 le maximum
        NextID = DMax("[" & n°_facture & "]", "[" & tble_facture & "]") + 1
    Else
        NextID = rs(0)          'Sinon, il y a un trou. Renvoyer la valeur du trou
    End If
 
End Function

Et après tu créé ta procédure "sur clic", à l'intérieure de laquelle tu places ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande29_Click()
Dim Nom_champ As String
Dim Nom_table As String
Dim resultat as Long
'bien entendu il faut que tu renseigne le nom du champ et le nom de la table
 
Resultat = NextID(Nom_champ, Nom_table)
if Resultat = 1 then
msgbox "aucun enregistrement dans la table"
else
'traitement
end if
 
End sub

Tu peux ensuite traiter le résultat mais il faut que tu saches à l'avance combien tu as d'enregistrement dans ta table (de ce que j'ai compris de la fonction)

**anouar_chaieb** · 26/06/2008, 15h54

Slt
merci de ton aide mais j'ai rencontré ce pb (voit photo)

**_MattU_** · 26/06/2008, 16h37

Quel est le message d'erreur d'access ?!
Mais bon après il s'agit d'une fonction que je ne connais pas (même si elle est relativement simple) donc ce n'est pas facile de la retoucher.

Invité · 26/06/2008, 16h40

Bonjour

As-tu coché la référence Microsoft DAO 3.6 Object Library dans Outils/Références.

Starec

**anouar_chaieb** · 26/06/2008, 16h42

Voir photo
merci de ton interet

**anouar_chaieb** · 26/06/2008, 16h46

Slt
l'option n'a pas pu être cochée et un message "le nom de module, de projet est dèjà utilisé"

**anouar_chaieb** · 26/06/2008, 16h51

le msg d'erreur:
erreur d'exécution '3131':
Erreur de syntaxe dans la clause FROM.

Invité · 26/06/2008, 16h57

rE

Envoyé par anouar_chaieb

l'option n'a pas pu être cochée

Il faut donc la cocher et décocher (si elle est là : Microsfoft Actixe X Data Object ....)

et un message "le nom de module, de projet est dèjà utilisé"

Je n'ai jamais vu celle-là, as-tu des modules avec le même nom ? Où deux éléments Module ou Projet qui ont le même nom.

Starec

Invité · 26/06/2008, 16h59

Re

En regardant ta copie d'écran :

Dans la deuxième partie tu déclares des variables que tu passes en paramètre à la fonction sans leur donner des valeurs, donc tu as une chaine vide dans pour ton From.

Starec

**LE VIEUX** · 26/06/2008, 18h18

1) le référencement de DAO en 2007 est inutile déjà inclu explication du mess
seul ADO 2.8 doit si necessaire être éventuellement référencé "pour info seulement" car pas le problème du jour.

2) d'accord...bien sur avec starec - les valeurs passées à la fonction ne sont pas bonnes et seront vides si elles font appel à par exemple des zones de texte du formulaire et faut faire appel à leur propriété .value je pense dans ce cas.

3) n'étant pas expert en SQL, je préfère travailler tout en VBA, je suis interpellé par le nom de la fonction au milieu du code SQL enfin parole aux experts je n'ai pas essayé.

**anouar_chaieb** · 27/06/2008, 21h15

salut, j'ai activé ADO 2.8 mais le pb perciste

Starec a dit:

Dans la deuxième partie tu déclares des variables que tu passes en paramètre à la fonction sans leur donner des valeurs, donc tu as une chaine vide dans pour ton From.

peut être c'est le pb mais expliquer un peu