VBA et SQL avec access chercher une valeur

**chneu87** · 29/12/2011, 12h52

Bonjour,

J'ai réaliser, en vba, suite à un click sur un bouton un programme qui permet l'ajout d'une societe à une table societe ( avec un clé primaire auto-incrémenté)

Ca marche parfaitement mais j'aimerai rechercher si cette societe n'existe pas déja dans ma table ? es possible ? si oui en vba, avec une requete ou les deux ?

Voila ce que sa donne :

VBA

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
 
Private Sub commande6_click()
  Dim qdf As querydef
  Dim qbs As Database
 
  Set dbs = currentDb
  Set qdf = dbs.Querydefs('R_Ajout_Societe')  // Ma requete
 
  If isnull (me.texte7)then  // ma texte box ou l'on saisi le nom de la societe
    msgbox("entrez un nom de societe")
  else : 
    qdf.parameters("Name").Value = Me.texte7
    qdf.Execute
    msgbox("réussi")
  End If
End Sub

en SQL:

Code :

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

1
2
3
 
insert into T_societe(NOM_SOCIETE)
select [Name] As Expr1;

Ce programme marche, mais ou et comment devrais je rajouter la fonction qui me permet de voire si la societe créé n'existe pas déja ?

Merci d'avance !!
Bye

Invité · 29/12/2011, 13h22

Bonjour
Il y a plusieurs façons de faire.
Tu peux peut être déjà dans la table empêcher les doublons dans le champ concerné.

Sinon tu peux aussi créer 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
Public Function Exist_Societe(ByVal StrNomSociete As String) As Boolean
 
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
    Dim StrSql As String
 
StrSql = "Select NOM_SOCIETE From T_Societe Where NOM_SOCIETE Like '" & StrNomSociete & "'"
Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset(StrSql, dbOpenSnapshot)
 
    If Not oRst.EOF Then
        Exist_Societe = True
    Else
        Exist_Societe = False
    End If
 
    oRst.Close
    oDb.Close
    Set oDb = Nothing
    Set oRst = Nothing
 
End Function

Après il faudra appeler la fonction en modifiant ton code de base de cette sorte:

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
Private Sub commande6_click()
    Dim qdf As QueryDef
    Dim qbs As Database
 
    Set qbs = CurrentDb
    Set qdf = qbs.QueryDefs("R_Ajout_Societe")  'Ma requete
 
    If IsNull(Me.Texte7) Then  ' ma texte box ou l'on saisi le nom de la societe
        MsgBox ("entrez un nom de societe")
    Else:
        If Exist_Societe(Me.Texte7.Value) = True Then
            MsgBox "La société existe déjà"
        Else
            qdf.Parameters("Name").Value = Me.Texte7
            qdf.Execute
            MsgBox ("réussi")
        End If
    End If
 
End Sub

A vérifier et à adapter