OVH Cloud OVH Cloud

Problème code VBA

3 réponses
Avatar
Jean Bonbeurre
Bonjour,


Dans un formulaire, j'ai deux champs texte et un bouton. Sur le onclic du
bouton, j'essaie le code suivant mais j'obtiens une erreur. Ce code sert à
verifier sir les mêmes données sont déja dans la DB. Si oui, mmessage, si
non Insert.

Merci


If Dcount("*","Auteurs, "Prénom = """ & Me.Prénom & """ AND Nom = """ &
Me.Nom """") > 0 Then
'l'enregistrement existe déjà
MsgBox "Existe déjà"
Else

'Nouveau
db.execute " INSERT INTO ...."
end if

3 réponses

Avatar
Eric
Bonjour,

Il manque des " et un opérateur &.

Je mettrai des Chr(34) à la place de ces foutus guillemets:

If Dcount("*","Auteurs, "Prénom = " & Chr(34) & Me.Prénom & Chr(34)
& " AND Nom = " & Chr(34) & Me.Nom & Chr(34)) >0 then

ou si tu préfères les guillemets:
If Dcount("*","Auteurs, "Prénom = """ & Me.Prénom & """ AND Nom = """
& Me.Nom & """") >0 then



Bonjour,


Dans un formulaire, j'ai deux champs texte et un bouton. Sur le onclic du
bouton, j'essaie le code suivant mais j'obtiens une erreur. Ce code sert à
verifier sir les mêmes données sont déja dans la DB. Si oui, mmessage, si
non Insert.

Merci


If Dcount("*","Auteurs, "Prénom = """ & Me.Prénom & """ AND Nom = """ &
Me.Nom """") > 0 Then
'l'enregistrement existe déjà
MsgBox "Existe déjà"
Else

'Nouveau
db.execute " INSERT INTO ...."
end if



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Pierre CFI [mvp]
plus un " aprés auteurs

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Eric" a écrit dans le message de news:
Bonjour,

Il manque des " et un opérateur &.

Je mettrai des Chr(34) à la place de ces foutus guillemets:

If Dcount("*","Auteurs, "Prénom = " & Chr(34) & Me.Prénom & Chr(34)
& " AND Nom = " & Chr(34) & Me.Nom & Chr(34)) >0 then

ou si tu préfères les guillemets:
If Dcount("*","Auteurs, "Prénom = """ & Me.Prénom & """ AND Nom = """ & Me.Nom & """") >0 then



Bonjour,


Dans un formulaire, j'ai deux champs texte et un bouton. Sur le onclic du bouton, j'essaie le code suivant mais j'obtiens une
erreur. Ce code sert à verifier sir les mêmes données sont déja dans la DB. Si oui, mmessage, si non Insert.

Merci


If Dcount("*","Auteurs, "Prénom = """ & Me.Prénom & """ AND Nom = """ & Me.Nom """") > 0 Then
'l'enregistrement existe déjà
MsgBox "Existe déjà"
Else

'Nouveau
db.execute " INSERT INTO ...."
end if



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Jean Bonbeurre
Merci


plus un " aprés auteurs

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Eric" a écrit dans le message de news:
Bonjour,

Il manque des " et un opérateur &.

Je mettrai des Chr(34) à la place de ces foutus guillemets:

If Dcount("*","Auteurs, "Prénom = " & Chr(34) & Me.Prénom & Chr(34)
& " AND Nom = " & Chr(34) & Me.Nom & Chr(34)) >0 then

ou si tu préfères les guillemets:
If Dcount("*","Auteurs, "Prénom = """ & Me.Prénom & """ AND Nom = """ & Me.Nom & """") >0 then



Bonjour,


Dans un formulaire, j'ai deux champs texte et un bouton. Sur le onclic du bouton, j'essaie le code suivant mais j'obtiens une
erreur. Ce code sert à verifier sir les mêmes données sont déja dans la DB. Si oui, mmessage, si non Insert.

Merci


If Dcount("*","Auteurs, "Prénom = """ & Me.Prénom & """ AND Nom = """ & Me.Nom """") > 0 Then
'l'enregistrement existe déjà
MsgBox "Existe déjà"
Else

'Nouveau
db.execute " INSERT INTO ...."
end if



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr