VBA et SQL avec access chercher une valeur

Version imprimable

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:

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:

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

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:

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:

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

29/12/2011, 14h08
pc75

Bonjour,

Il faut être conscient qu'il y aura des "loupés".

Si dans ta base tu as :

Citation:

NOM_SOCIETE = Compagnie des îles

Et que l'utilisateur saisi :

Citation:

Cie des iles

Ca passera
29/12/2011, 20h00
chneu87

Merci ça marche impeccable !!! :ccool:

Merci a vous !!!