bonjour a tous, j'ai un probleme avec une procédure pour ajouter un nom dans
une liste déroulante, ça pourait etre normal si j'ai fait une erreur !! mais
alors pourquoi des fois ça marche, et des fois ça marche pas !!
il ne prend pas en compte mon nouveau mot saisie, et persiste a me dire
qu'il n'est pas dans la liste!
voila ma procédure:
Private Sub apéritif_NotInList(NewData As String, Response As Integer)
On Error GoTo erreur
Dim dbs As Database
Dim rcst As DAO.Recordset
If MsgBox("Voulez-vous ajouter ce tribunal?", vbOKCancel) = vbOK Then
Response = acDataErrAdded
Set dbs = CurrentDb
Set rcst = dbs.OpenRecordset("détail invitations", dbOpenDynaset)
On Error Resume Next
rcst.AddNew
rcst.Fields![apéritif] = NewData
rcst.Update
rcst.Close
Set dbs = Nothing
Else
Response = acDataErrContinue
Me![apéritif].Undo
End If
sortie:
Exit Sub
erreur:
MsgBox Err.Description
GoTo sortie
'ATTENTION: Rajouter la library ' "microsoft DAO 3.6 object library"
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bonjour
Tu rafraichis ta liste *avant* d'ajouter les données dans la table ! essaye donc de mettre Response = acDataErrAdded juste avant le else mais quand même après la routine d'ajout de données...
sinon pourquoi ouvrir de recordset alors qu'une simple requête ajout ferait l'affaire ? voir exemple ici http://www.3stone.be/access/articles.php?lng=fr&pgI
"le méruvien" a écrit dans le message de news: 44b5190f$0$5522$
bonjour a tous, j'ai un probleme avec une procédure pour ajouter un nom dans une liste déroulante, ça pourait etre normal si j'ai fait une erreur !! mais alors pourquoi des fois ça marche, et des fois ça marche pas !! il ne prend pas en compte mon nouveau mot saisie, et persiste a me dire qu'il n'est pas dans la liste! voila ma procédure: Private Sub apéritif_NotInList(NewData As String, Response As Integer) On Error GoTo erreur Dim dbs As Database Dim rcst As DAO.Recordset If MsgBox("Voulez-vous ajouter ce tribunal?", vbOKCancel) = vbOK Then Response = acDataErrAdded Set dbs = CurrentDb Set rcst = dbs.OpenRecordset("détail invitations", dbOpenDynaset) On Error Resume Next rcst.AddNew rcst.Fields![apéritif] = NewData rcst.Update rcst.Close Set dbs = Nothing Else Response = acDataErrContinue Me![apéritif].Undo End If sortie: Exit Sub erreur: MsgBox Err.Description GoTo sortie 'ATTENTION: Rajouter la library ' "microsoft DAO 3.6 object library" End Sub
Bonjour
Tu rafraichis ta liste *avant* d'ajouter les données dans la table !
essaye donc de mettre Response = acDataErrAdded juste avant le else
mais quand même après la routine d'ajout de données...
sinon pourquoi ouvrir de recordset alors qu'une simple requête ajout ferait l'affaire ?
voir exemple ici http://www.3stone.be/access/articles.php?lng=fr&pgI
"le méruvien" <lemeruvien@free.fr> a écrit dans le message de news: 44b5190f$0$5522$626a54ce@news.free.fr...
bonjour a tous, j'ai un probleme avec une procédure pour ajouter un nom dans une liste déroulante, ça pourait etre normal si j'ai
fait une erreur !! mais alors pourquoi des fois ça marche, et des fois ça marche pas !!
il ne prend pas en compte mon nouveau mot saisie, et persiste a me dire qu'il n'est pas dans la liste!
voila ma procédure:
Private Sub apéritif_NotInList(NewData As String, Response As Integer)
On Error GoTo erreur
Dim dbs As Database
Dim rcst As DAO.Recordset
If MsgBox("Voulez-vous ajouter ce tribunal?", vbOKCancel) = vbOK Then
Response = acDataErrAdded
Set dbs = CurrentDb
Set rcst = dbs.OpenRecordset("détail invitations", dbOpenDynaset)
On Error Resume Next
rcst.AddNew
rcst.Fields![apéritif] = NewData
rcst.Update
rcst.Close
Set dbs = Nothing
Else
Response = acDataErrContinue
Me![apéritif].Undo
End If
sortie:
Exit Sub
erreur:
MsgBox Err.Description
GoTo sortie
'ATTENTION: Rajouter la library ' "microsoft DAO 3.6 object library"
End Sub
Tu rafraichis ta liste *avant* d'ajouter les données dans la table ! essaye donc de mettre Response = acDataErrAdded juste avant le else mais quand même après la routine d'ajout de données...
sinon pourquoi ouvrir de recordset alors qu'une simple requête ajout ferait l'affaire ? voir exemple ici http://www.3stone.be/access/articles.php?lng=fr&pgI
"le méruvien" a écrit dans le message de news: 44b5190f$0$5522$
bonjour a tous, j'ai un probleme avec une procédure pour ajouter un nom dans une liste déroulante, ça pourait etre normal si j'ai fait une erreur !! mais alors pourquoi des fois ça marche, et des fois ça marche pas !! il ne prend pas en compte mon nouveau mot saisie, et persiste a me dire qu'il n'est pas dans la liste! voila ma procédure: Private Sub apéritif_NotInList(NewData As String, Response As Integer) On Error GoTo erreur Dim dbs As Database Dim rcst As DAO.Recordset If MsgBox("Voulez-vous ajouter ce tribunal?", vbOKCancel) = vbOK Then Response = acDataErrAdded Set dbs = CurrentDb Set rcst = dbs.OpenRecordset("détail invitations", dbOpenDynaset) On Error Resume Next rcst.AddNew rcst.Fields![apéritif] = NewData rcst.Update rcst.Close Set dbs = Nothing Else Response = acDataErrContinue Me![apéritif].Undo End If sortie: Exit Sub erreur: MsgBox Err.Description GoTo sortie 'ATTENTION: Rajouter la library ' "microsoft DAO 3.6 object library" End Sub
