Kikoo, j'espère que ça va !!! Moi j'ai un souci :


Autre souci:
quand j'effectue une suppression, elle fonctionne.
Cependant, si je veux supprimer toute ma base de données,ça plante.Par contre, quand je relance mon application tous mes enregistrements sont supprimés. Je ne comprend pas pourquoi ça plante !
Voici mon code :

'Supprime un enregistrement
Private Sub cmdSupprimer_Click()
Dim rep As String
rep = MsgBox("Etes-vous sûr de vouloir supprimer cet enregistrement ?", vbYesNo)
If rep = vbYes Then
rs.Delete
rs.MoveNext
If rs.EOF = True Then
rs.MoveLast
End If
Call afficherEnregistements(rs)
End If
End Sub

ça plante à ce niveau : rs.MoveLast.

Pourquoi?

Merci de votre aide !!!@ + !!

Pourquoi tu vas pas chercher l'enregistrement dans une requete sql apré tu fé un rst.delete et on en parle plus ??
_______________________
<<<< :-: 4L!@$ :-: >>>>

If rs.EOF = True Then
rs.MoveLast
End If

Tu te rends compte de ce que tu as marqué ?

Si tu est à la fin de la base, aller au dernier éléments, sauf qu'après avoir tout supprimé, il n'y a plus d'enregistrement !
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Kikoo, c'est encore moi !!! Moi j'ai un souci :


Dans un module, j'ai :
'Procédure permettant d'afficher les informations de l'auteur en cours
Public Sub afficherAuteur(record As Recordset)
FrmAuteur!txtAuteur.Text = record!NOM_AUTEUR & ""
End Sub



et ma requete est comme ça :
'Supprime un enregistrement
Private Sub cmdSupprimer_Click()
Dim reqSuppr As String
Dim rep As String
rep = MsgBox("Etes-vous sûr de vouloir supprimer cet enregistrement ?", vbYesNo)
If rep = vbYes Then
reqSuppr = "delete from AUTEUR where NOM_AUTEUR = '" & txtAuteur.Text & "' "
rsAuteur.Delete
End If
'appelle de la procédure d'affichage des données
Call afficherAuteur(rsAuteur)
End Sub


Mon problème :
le descripteur de ligne faisait référence à une ligne supprimée ou à une ligne marquée comme devant etre supprimée.

Toujours la meme galère ca supprime ms ca bug !

Merci de votre aide !!!@ + !!

il te sert à quoi ton reqSuppr ? Car là tu t'en sert pas du tout !
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer