[AC-2007] Zone de liste avec visual basic access

[billiejoe]

Bonjour,

voila j'ai cette question qui me tourmente :s ,

*Créer dans le formulaire « entrée » une zone de liste comportant les nip, nom, prénom et date de naissance des patients. Lorsque l'on double-clique sur un patient, le formulaire saisie des patient doit s'ouvrir sur l'enregistrement du patient (procédure Visual Basic).

j'ai crée le formulaire , mais je sais pas comment proceder dans la suite :s aidez moi svp et merci d'avance !

[spaiku]

On peut dire que tu pars de loin...

Pour la faire très courte, tu dois utiliser l'événement onDblClick de ta zone de liste. Tu ouvres alors ton formulaire de saisie des patients et tu atteins l'enregistrement qui t'intéresse grâce à la valeur de la ligne sélectionnée dans ta zone de liste.

Si tu bloques sur des points particuliers, la FAQ et les tutos sont là pour t'aider.

[billiejoe]

oui je c'est bien qu'il existe une zone de texte mais le problem c'est que je dois faire le travail avec le visual basic

[hajeahmad]

bonjour
si ta zone de liste deroulante est dans le meme formulaire
sur evenement absence de la liste mets le code suivant
c'est un code à nettoyer peut etre et à adapter à ton cas

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub BillTo_NotInList(NewData As String, Response As Integer)
' Allows user to add a new customer by typing the customer's name
' in the BillTo combo box.
 
    Dim intNewCustomer As Integer, strTitle As String
    Dim intMsgDialog As Integer, strMsg As String
 
    ' Check if user has already selected a customer.
    If IsNull(BillTo) Then
 
        ' Display message box asking if the user wants to add a new customer.
        strTitle = "Patient Pas dans liste"
        strMsg = "Voulez vous ajouter un Nouveau Patient?"
        intMsgDialog = vbYesNo + vbExclamation
        intNewCustomer = MsgBox(strMsg, intMsgDialog, strTitle)
 
        If intNewCustomer = vbYes Then
 
 
            BillTo.Undo
 
            Me.DataEntry = True
            Me.AllowAdditions = True
‘ mettre le focus sur le premier element de la liste
            Prefix.SetFocus 
 
            ' Continue without displaying default error message.
 
            Response = acDataErrContinue
        Else
            ' Display the default error message.
            Response = acDataErrDisplay
            BillTo.Undo
        End If
 
        ' Continue without displaying default error message.
        Response = acDataErrContinue
    End If

et si ta liste est dans un autre formulaire
sur evenement dbl click
pour modifier

Code :

DoCmd.OpenForm "patient", acNormal, "", [CustomerID] = " & Str$(Npatient) & "

pour ajouter

Code :

1
2
3
 docmd.OpenForm "patient",acNormal,,,acFormAdd  
 
setfocus...etc

espere avoir ete utile
bien cordialement
ahmad