Zone de liste modifiable

Question

Bonjour,

Ma question est simple et j'imagine que la solution doit l'être tout autant... Mais je suis débutant
en VB...

J'ai une zone de liste modifiable et j'aimerais que lorsque j'ajoute un nouveau contact dans cette
zone de liste, le formulaire affiche un nouvel enregistrement à partir de l'événemet NotInList()
Voici le code que j'ai actuellement :

Private Sub Modifiable33_NotInList(NewData As String, Response As Integer)
On Error Resume Next

Dim valeurRetour As Integer
Dim maBase As Database
Dim strNom_a_ajouter As String
strNom_a_ajouter = NewData
Set maBase = CurrentDb()

valeurRetour = MsgBox("Voulez-vous créer ce nouveau contact :" & strNom_a_ajouter, vbOKCancel)

If (valeurRetour = 1) Then
Dim jeuxdenro As Recordset
Dim strCode_Nom As Integer
Dim Sqlstr As String

Sqlstr = "SELECT id_contact, nom FROM tbl_contact;"

Response = acDataErrAdded

Set jeuxdenro = maBase.OpenRecordset(Sqlstr, dbOpenDynaset)
With jeuxdenro

.AddNew
!nom = strNom_a_ajouter
.Update
End With

Else
'Annulation par l'utilisateur
Modifiable33.Value = Modifiable33.OldValue
Response = acDataErrContinue
End If

End Sub

Merci pour vos réponses éclairées....

jrivet · Answer

Salut,
Désolé mais ta question est peu être simple mais elle est surtout inexistante.

@+: Ju£i€n
Pensez: Réponse acceptée

Kingrise · Answer

Que veux-tu dire par là ?

jrivet · Answer

Re,
Bah je veux dire par là que y a pas de question....

Tu as juste exposé un code (d'ailleurs fonctionnes t il). 

si " le formulaire affiche un nouvel enregistrement à partir de l'événemet NotInList()" est la question 

Alors je te demanderai l'afficher oui mais OU?

Une solution précise repose sur une question clairement exposée.

@+: Ju£i€n
Pensez: Réponse acceptée

Kingrise · Answer

Ok, je reformule la question autrement..

J'ai un formulaire contact avec une zone de liste qui reprend tous les contacts.
Cette zone de liste est synchronisée avec le formulaire.

Lorsque je choisi un élément de la liste, le formulaire affiche toutes les données
relatives au contact sélectionné.

Maintenant, lorsque j'ajoute un élément à la liste, c'est-à-dire un nouveau contact,
un message me demande si je veux ajouter ce contact à la liste. Si la réponse est oui, le code vb ajoute à la
table le nouvel enregistrement. 

Mais ensuite affiche le premier enregistrement (selon le tri)... mais je souhaiterais qu'il affiche l'enregistrement
nouvellement créé.

Est-ce que ma question est mieux posée ainsi ?

jrivet · Answer

Salut,
Oki, j'avais pas compris.

Essaie peu etre de déplacer le REcordset jusqu a l'enregistrement nouvellement créé.

@+: Ju£i€n
Pensez: Réponse acceptée

Kingrise · Answer

Oui, c'est ce que j'ai essayé avec DoCmd.GotoRecord , , acNewRec.

Mais dès lors, le bouton "Voulez-vous créer un nouveau contact...." apparaît continuellement et ajoute autant de nouveau contact à ma table... sauf si je fais cancel.  Mais le formulaire affiche par la suite le premier enregistrement (selon l'ordre de tri)...

Merci

Zone de liste modifiable

6 réponses

Votre réponse

Discussions similaires