Double insertions dans une base de données ACCESS

Question

bonjour a tous
J'ai un PB avec mon insertion dans ma base de données
Voici mon code
:
function addJourFerie()

 on error resume next
Dim flag
if session("Connection") is nothing then
flag = 1
openConnection(Application("databaseDNS"))
end if
'ajouter
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "select * from JOURFERIE where 0=1",Session("Connection"),1,2,1
objRS.AddNew
objRS.Fields("RAISONJOURFERIE")=Me.Raison
objRS.Fields("DATEJOURFERIE")=Me.DateJour
objRS.Fields("IDAGENCE")=Me.Agence
id = objRS.Fields("IDJOURFERIE").Value
objRS.Update
objRS.close
Set objRS = Nothing

if flag=1 then
closeConnection()
end if

addJourFerie  = id
end function

Il m'insere deux fois la ligne au lieu d'une.
Aidez moi SVP
Merci d'avance

cs_kikuyu · Answer

J'ai exactement le même problème et personne n'a trouvé de solution.... je constate que je ne suis pas le seul à avoir ce genre de truc...

Si tu as trouvé une réponse peux-tu me la faire parvenir ce serait très cool. D'avance merci.

Kikuyu

Double insertions dans une base de données ACCESS

1 réponse

Votre réponse

Discussions similaires