Discussion :

[freerider74]

Bonjour à tous,

Je développe une appli dans laquelle je fais des ajout, des suppressions, des modif dans une base de donnée access.

dans une de mes méthodes, il m'est impossible d'ajouter mon enregistrement dans ma table.

Pas de message d'erreur, j'ai essayer de mettre un On error resume next et d'espionner la variable Err mais elle est toujours à 0. je ne sais plus quoi faire. si quelqu'un peux m'aider

voici comment je fais mon ajout

1)requete
2)addnew
3)attribution des valeurs par: monRecorSet!MonChamp = blabla
4)update
5)close

Je fais ca dans d'autre méthode et je n'ai aucun souci. POURQUOI

[OhMonBato]

Un oubli sans doute de ne pas nous montrer ton code ?

[freerider74]

en gros je fais ca

Code :

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

1
2
3
4
5
6
7
8
9
10
l_requete = "SELECT * FROM ZONES WHERE CLEF=-" & CStr(x_clefPage)
FaireRequete l_requete, l_rsData
If l_rsData.EOF = True Then
        l_rsData.AddNew
        l_rsData!Clef = CInt("-" & x_clefPage)
        l_rsData.Update
End if
 
l_rsData.Close
Set l_rsData= Nothing

[Invité]

Bonjour

Qu'est ce qu'il y a dans FaireRequete ?

edit :pourquoi un - dans ta chaine SQL ?
Philippe

[freerider74]

contenu de FaireRequete

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub FaireRequete(ByVal clause As String, ByRef RecordsetResult As Recordset)
 
    Set RecordsetResult = New Recordset
    With RecordsetResult
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open clause, ConnectBD
    End With
 
End Sub

pour le '-' c'est normal car je recherche une clef de type -xxx

[ProgElecT]

Code :

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

If l_rsData.EOF = True Then

l_rsData est donc Nothing, non et s'il l'est bien tu ne peux pas l'invoquer pour un AddNew, ou alors je n'est rien compris (ce qui est possible )

[Invité]

Bonjour

Code :

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

If l_rsData.EOF = True Then

l_rsData est donc Nothing, non et s'il l'est bien tu ne peux pas l'invoquer pour un AddNew, ou alors je n'est rien compris (ce qui est possible )

Tu n'es pas le seul, je te rassure.

Je ne vois pas pourquoi passer par cette sub

Philippe

[freerider74]

tout simplement car ma sub FaireRequete comme son nom l'indique, execute la requete passer en paramètre et me remplie mon RecordSet donc au final quand je sort de cette sub mon RecordSet n'est jamais à nothing

[OhMonBato]

Je ne suis pas sur de moi mais apres l'ouverture du Recordset, EOF est a True ? Le curseur serait donc positionne sur le dernier enregistrement ? JE pensais qu'il se mettait sur le premier. D'ailleurs, quelle importance d'etre sur le premier ou le dernier enregistrement puisque tu veux en ajouter un nouveau de toute facon ? Je ne comprends pas l'utilite du test :

Code :

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

If l_rsData.EOF = True Then

[freerider74]

je test EOF pour savoi r si j'ai dèjà des enregistrement avec ma requete. Si EOF = true alors cela veut dire que je n'ai pas d'enregisstrement avec ma requete donc il faut que j'en ajoute un. SI EOF = false alors je modifie les champ

[OhMonBato]

Ce n'est pas tout a fait la meme explication que le premier message, en tout cas je ne comprends pas la meme chose, mais bref, es tu sur que tu passes dans ton test ?
Tu veux donc ajouter une donnee a un recordset quand celui ci est vide ? Pourquoi ne pas tester la propriete Count ou RecordCount (je me souviens plus) du recordset ?

[freerider74]

la propriété recordCount me retourne tout le temps -1 (du au cursor je crois). mais j'ai trouvé la solution. c'est à cause de ces foutu evenement qui sont levé lors d'un changement de valeur pour une checkbox qui supprimait mon enregistrement. merci à tous en tout cas