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é

**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, 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