Problème avec .addnew et .updateRésolu

Question

Salut,
Voil&#224;, j'ai un petit soucis. J'utilise la m&#233;thode .addnew afin d'ajouter un enregistrement &#224; un bd sous SQL Server... En voici le code :

Il s'agit simplement du code pour effectuer l'ajout.

Private Sub CreaEtudiantCmdValider_Click()


Dim RsCreaEtudiant As ADODB.Recordset
Dim StrSQLCreaEtudiant As String


StrSQLCreaEtudiant = "Select * From Etudiants Order by Nom"


CreaRecordSet StrSQLCreaEtudiant, RsCreaEtudiant


On Error GoTo UpdateFailed


RsCreaEtudiant.AddNew
RsCreaEtudiant!Numero = CreaEtudiantText0(0)
RsCreaEtudiant!Nom = CreaEtudiantText0(1)
RsCreaEtudiant![Nom jeune fille] = CreaEtudiantText0(2)
RsCreaEtudiant!Pr&#233;nom = CreaEtudiantText0(3)
RsCreaEtudiant![Voiture perso] = CreaEtudiantCheck0(1)
RsCreaEtudiant![Date naissance] = CreaEtudiantText0(14)
RsCreaEtudiant![Lieu naissance] = CreaEtudiantText0(15)
RsCreaEtudiant![Adresse 1] = CreaEtudiantText0(10)
RsCreaEtudiant!CP1 = CreaEtudiantText0(11)
RsCreaEtudiant!Ville1 = CreaEtudiantText0(12)
RsCreaEtudiant!Telephone1 = CreaEtudiantText0(13)
RsCreaEtudiant!Adresse2 = CreaEtudiantText0(4)
RsCreaEtudiant!CP2 = CreaEtudiantText0(5)
RsCreaEtudiant!Ville2 = CreaEtudiantText0(6)
RsCreaEtudiant!Telephone2 = CreaEtudiantText0(7)
RsCreaEtudiant![N&#176; secu] = CreaEtudiantText0(17)
RsCreaEtudiant!Nationalit&#233; = CreaEtudiantText0(16)
RsCreaEtudiant![Classe ann&#233;e pr&#233;c&#233;dante] = CreaEtudiantText1(1)
RsCreaEtudiant!Dipl&#244;me1 = CreaEtudiantCmb1(0)
RsCreaEtudiant!Serie1 = CreaEtudiantText1(2)
RsCreaEtudiant![Ann&#233;e obtention1] = CreaEtudiantText1(3)
RsCreaEtudiant![Lieu obtention1] = CreaEtudiantText1(4)
RsCreaEtudiant!Dipl&#244;me2 = CreaEtudiantCmb1(1)
RsCreaEtudiant!Serie2 = CreaEtudiantText1(5)
RsCreaEtudiant![Ann&#233;e obtention2] = CreaEtudiantText1(6)
RsCreaEtudiant![Lieu obtention2] = CreaEtudiantText1(7)
RsCreaEtudiant!Dipl&#244;me3 = CreaEtudiantCmb1(2)
RsCreaEtudiant!Serie3 = CreaEtudiantText1(8)
RsCreaEtudiant![Ann&#233;e obtention3] = CreaEtudiantText1(9)
RsCreaEtudiant![Lieu obtention3] = CreaEtudiantText1(10)
RsCreaEtudiant!Dipl&#244;me4 = CreaEtudiantCmb1(3)
RsCreaEtudiant!Serie4 = CreaEtudiantText1(11)
RsCreaEtudiant![Ann&#233;e obtention4] = CreaEtudiantText1(12)
RsCreaEtudiant![Lieu obtention4] = CreaEtudiantText1(13)
RsCreaEtudiant![Interruption &#233;tude] = CreaEtudiantCheck1
RsCreaEtudiant![Situation pr&#233;c&#233;dante] = CreaEtudiantText1(0)
RsCreaEtudiant![Profession chef famille] = CreaEtudiantCmb0(0)
RsCreaEtudiant![Profession autre parent] = CreaEtudiantCmb0(1)
RsCreaEtudiant![Nombre fr&#232;res] = CreaEtudiantText0(18)
RsCreaEtudiant![Nombre soeurs] = CreaEtudiantText0(19)
RsCreaEtudiant!Mari&#233; = CreaEtudiantCheck0(0)
RsCreaEtudiant![Profession conjoint] = CreaEtudiantCmb0(2)
RsCreaEtudiant![Nombre enfants] = CreaEtudiantText0(20)
RsCreaEtudiant!Loisirs = CreaEtudiantText0(21)
RsCreaEtudiant!DateConcours = CreaEtudiantText2(0)
RsCreaEtudiant!Tests = CreaEtudiantText2(1)
RsCreaEtudiant!Oral = CreaEtudiantText2(2)
RsCreaEtudiant!CultureG = CreaEtudiantText2(3)
RsCreaEtudiant!Email = CreaEtudiantText0(9)
RsCreaEtudiant![Telephone port] = CreaEtudiantText0(8)
RsCreaEtudiant.Update


UpdateFailed:
    MsgBox Err.Description '"&#201;chec de la mise &#224; jour."
    RsCreaEtudiant.CancelUpdate
    Exit Sub


End Sub

Et celui-ci celui de la cr&#233;ation de mon rs :

Public Sub CreaRecordSet(StrSQL As String, MonRs As Recordset)


Set MonRs = New ADODB.Recordset
    MonRs.CursorLocation = adUseClient
    MonRs.CursorType = adOpenDynamic
    MonRs.LockType = adLockOptimistic
    MonRs.Open StrSQL, Connexion


End Sub

Lorsque je valide, le programme affiche une fenetre erreur mais sans message. Quand je v&#233;rifie dans la bd, l'enregistrement y est. Alors est ce que quelqu'un peut me dire pourquoi la fen&#234;tre apparait ? Merci.

Kcin

cs_CanisLupus · Accepted Answer

Salut,

Simple, dans l'&#233;tat de ton code, qu'il y ait erreur ou non, tu passes dans le traitement d'erreur. Pour &#233;viter &#231;a, place un exit sub avant l'&#233;tiquette :

Exit sub
UpdateFailed:

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_kcin · Answer

Merci beaucoup.. :) C'&#233;tait encore une erreur b&#234;te !!!

Kcin

abrassfils · Answer

Bonjour

Je suis entrain de réaliser une application en access.
J'ai un probleme puisque je ne pouvais creer un nouvel enrégistrement dans mon formulaire intervention.
Aidez moi s'il vous plait

cs_kcin · Answer

Salut explique nous un peu mieux ton problème ?
Quel message d'erreur tu as ? Montre nous le code par exemple !

Bye

Kcin

Problème avec .addnew et .update

4 réponses

Discussions similaires