Emplacement du code VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

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

Bonjour,
et tu attends quel genre de réponse ? :roll:
- dans un module ?
23/06/2008, 16h44
anouar_chaieb

re

ça n'a pas marché dans un bouton de commande ou autre !! :(
23/06/2008, 16h57
Jean-Philippe André

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

Code:

Public
23/06/2008, 23h35
LE VIEUX

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...
26/06/2008, 11h22
anouar_chaieb

ça n'a pas marché

Veux tu m'indiquer comment fait-on appel à ce code "sur click" j'ai essayé mais je me suis trompé :arf:
26/06/2008, 11h35
_MattU_

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

Salut
effectivement mais ça n'a pas marché

Code:

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

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:

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:

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)

26/06/2008, 15h54
anouar_chaieb

Suite

Slt
merci de ton aide mais j'ai rencontré ce pb (voit photo)
26/06/2008, 16h37
_MattU_

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.
26/06/2008, 16h40
Invité

Bonjour

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

Starec
26/06/2008, 16h42
anouar_chaieb

RE

Voir photo
merci de ton interet
26/06/2008, 16h46
anouar_chaieb

RE

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

RE

le msg d'erreur:
erreur d'exécution '3131':
Erreur de syntaxe dans la clause FROM.
26/06/2008, 16h57
Invité

rE

Citation:

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

Citation:

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
26/06/2008, 16h59
Invité

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
26/06/2008, 18h18
LE VIEUX

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é.
27/06/2008, 21h15
anouar_chaieb

re

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

Starec a dit:

Citation:

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
27/06/2008, 21h22
alaingui
bonjour

je te conseille de faire un
Code:

1 2 debug.print sSQL
juste avant ta ligne en erreur de la mettre dans une requete pour regarder ce qui ne vas pas

Voir 40 message(s) de cette discussion en une page