Discussion :

[Pioul]

Bonjour,

Je voudrais savoir comment faire pour savoir si ma requete renvoie un enregistrement ou si elle ne renvoie rien...Je voudrais utiliser cela pour eviter les doublons lors d'insertion via un formulaire.

J'ai cherché sur le net mais j'ai rien trouvé...

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
Dim erreur, Societe, sql As String
Dim ID_Fournisseur As Integer
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
 
 
Sociéte = Me.txtNomSociéte
 
 
Set oDb = CurrentDb
sql = "SELECT ID_Fournisseur FROM tbl_Fournisseurs where NomDeLaSociété = '" & Sociéte & "' ;"
Set oRst = oDb.OpenRecordset(sql, dbOpenDynaset)
'If IsNull(oRst.Fields(0).Value) Then
orst.MoveFirst    
    If Not (oRst.EOF) Then
       erreur = MsgBox("La sociéte " & Sociéte & " est deja présente dans la base, vous ne pouvez l'ajouter une deuxiéme fois", vbCritical, "Doublon")
        Exit Sub
    End If
'End If

j'ai essayé plusieur choses mais je n'arrive pas à trouver la solution.Lorsque je rentre une sociéte qui existe deja le message d'erreur s'affiche mais lorsque j'essaie d'entrer une sociéte qui n'existe pas j'ai l'erreur 3021 'Aucun enregistrement en cours' qui se lance.

Merci de vos réponses !!

[alaingui]

pour faire un check (vu dans la FAQ)

tu peux compter le nombre de champ correspondant à ta requete donc dans ton cas

Code :

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

1
2
3
4
5
6
7
8
9
 
nb = DCount("*","tbl_Fournisseurs","[NomDeLaSociété] = '" & Me.txtNomSociéte & "'" )) 
if nb >0 then
    me.undo
   .......
else
 
 
end

le test doit etre fait dans le controle évenement beforeupdate

Petite remarque banni les é et è de ton code.

[azertix]

Salut, je pense que ça peut marcher comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
maRequete = "SELECT * FROM MaTable;"
Set req = dbs.CreateQueryDef("", maRequete) 
req.OpenRecordset 
 
If IsNull(req) Then 
     'La requete n'a rien retourné
Else
     'La requete a retourné quelque chose
End If

Sinon, je pense que trouveras ta réponse ici :
http://www.developpez.net/forums/arc.../t-395363.html

[Pioul]

Merci !

j'ai utiliser la fonction count dans ma requete SQL et cela fonctionne parfaitement !

[azertix]

Avec plaisir
Content de voir ton problème résolu