Discussion :

[freeman3869]

Bonjour tout le monde.
J'ai un petit problème :

En effet, je demande à l'utilisateur via un inputbox de rentrer un nom :

Code :

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

Denom= InputBox("saisir le nom ")

J'aimerai comparer ce nom avec les intitulés des champs d'une table pour voir s'il existe. (Mon but est de créer des champs dans la table table1 à l'aide d'autres fonctions).
Donc, je veux vérifier l'existence de ce nom : s'il existe, j'effacerai la colonne qui est déjà dans la table pour la remplacer par la nouvelle colonne et ajouter les données qui vont avec via des requêtes :

Code :

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

1
2
3
DoCmd.RunSQL "ALTER TABLE table1 DROP COLUMN test_" & Denom
'le nom qui s'affectera à la table prendra avant test_. Donc ce sera test_(+ le nom saisi).
DoCmd.RunSQL "ALTER TABLE table1 ADD COLUMN test_" & Denom

Je bloque au niveau de la vérification : Comment je peux vérifier si le nom saisi dans le inputbox est égale à un des noms des champs de la table table1 ?

Merci de votre réponse.

[argyronet]

Bonjour

Tu peux utiliser une fonction...

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
34
35
36
37
 
Public Function ChampExiste(ByRef DB As DAO.Database, ByVal NomTable As String, ByVal NomChamp As String) As Boolean
'---------------------------------------------------------------------------
' Procedure     : ChampExiste
' DateTime      : 19/05/2015
' Author        : Argyronet
' Purpose       : Vériie l'existence d'un champ de table
'...........................................................................
' Parameters    : DB : Objet DB
'                 NomTable : String
'                 NomChamp : String
 
' Return Codes  : Boolean = Vrai si le champ existe déjà
'...........................................................................
' Notice        :
'---------------------------------------------------------------------------
Dim oTDF                                               As DAO.TableDef
Dim oFLD                                               As DAO.Field
Dim blnExiste                                           As Boolean
 
    On Error GoTo L_ErrChampExiste
    Set oTDF = DB.TableDefs(NomTable)
    Set oFLD = oTDF.Fields(NomChamp)
    blnExiste = Not (oFLD Is Nothing)
 
    On Error GoTo 0
 
L_ExChampExiste:
    ChampExiste = blnExiste
    Set oTDF = Nothing
    Set oFLD = Nothing
    Exit Function
 
L_ErrChampExiste:
    blnExiste = (err = 3380)
    Resume L_ExChampExiste
End Function

Exemple :

Code :

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

1
2
3
4
5
6
7
Sub AjouterChamp()
    If ChampExiste(CurrentDb, "Table1", InputBox("Quel nom de champ ?", "Sépcifiez...")) = True Then
        MsgBox "Ce champ existe déjà !", vbExclamation
    Else
        'Routine d'ajout du champ...
    End If
End Sub

Attention, cette routine suppose que la table existe dans l'objet DB !

Argy

[freeman3869]

Merci argyronet,

Je pensai que ça allait être une fonction plus simple ^^

[argyronet]

Ah ben si tu ne veux pas passer par du code propre, tu peux aussi faire :

Code :

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

1
2
3
4
5
 
On Error Resume Next
If Len(currentdb.TableDefs("Table1").Fields("Champ1").Name) Then
    'Routine d'ajout du champ
End If

Tu peux également user de nouveau d'un déconseillé "On Error Resume Next" et tenter d'ajouter le champ en force.
Si Err<>0 alors c'est qu'il existe déjà !

Code :

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

1
2
3
 
On Error Resume Next
CurrentDB.Execute "ALTER TABLE table1 ADD COLUMN Champ1", dbFailOnError

Mais perso, je préfère le générique et disposer de la fonction comme une bibliothèque pour d'autres usages.

A toi de voir.

Argy

[freeman3869]

Oui c'est vrai. J'ai gardé la première solution aussi.

Merci encore. Je dormirai encore moins con ce soir