Discussion :

[Brolaf]

Bonjour,

Je viens vous demandez un peu d'aide car je sèche...

Je vous explique, j'ai un formulaire de recherche avec une requête construite dynamiquement selon 3 champs.
Le résultat de cette requête s'affiche dans une liste de résultat.

Comme ceci :



Mon problème est le suivant, je n'arrive pas à rendre cette liste de résultat modifiable.
Pourtant l'option est bien mise sur Oui et la liste n'est pas verrouiller...



Avez-vous des idées?
Merci d'avance pour vos réponses.

[ClaudeLELOUP]

Bonjour,

Il faut d'abord que le résultat de ta requête soit lui-même modifiable.

Est-ce le cas ?

Récupère le SQL construit, intègre-le dans une requête et vérifie alors que tu peux modifier le résultat.

Si non, c'est là qu'est l'os !

[Brolaf]

Bonjour,
Je ne vois pas trop comment tester que ma requête sois modifiable...
En gros j'ai fait cette base de données :



De là j'ai fait 2 requêtes fixe :

INFO PARKING :


INFO PHONIE :


Ensuite j'ai créer un événement sur Click sur le bouton de recherche de mon formulaire,

Code :

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

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
Private Sub cmd_recherche_Click()
    Dim strTable As String, strField As String, strCriteria As String, strSql As String
    Dim Criter As Variant
 
    strTable = "[" & Me.cbo_table & "]"         ' recupère le nom de la table
    strField = "[" & Me.cbo_champ & "]"         ' recupère le nom du champ
 
    ' compose les critères de recherche
    Select Case Me.opt_Recherche
                  Case 1 ' strictement egal
                       strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """"
                  Case 2 ' commence par
                       strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & "*"""
                  Case 3 ' contient
                       strCriteria = strTable & "." & strField & " Like ""*" & Me.txt_critere & "*"""
                  Case 4 ' fini par
                       strCriteria = strTable & "." & strField & " Like ""*" & Me.txt_critere & """"
    End Select
 
    ' construit la requête sql
    strSql = "SELECT DISTINCTROW " & strTable & ".*"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE ((" & strCriteria & "));"
 
    Me.lst_resultat.RowSource = strSql  ' affecte sql a lst_Resultat
    Me.lst_resultat.Requery             ' recalcule la liste
 
    MsgBox Me.lst_resultat.ListCount & " résultats"
End Sub

Et donc je voudrais modifier ma liste de résultat.
Le problème est que je ne vois pas comment tester la requête.
Et je ne vois pas pourquoi je ne pourrais pas changer les valeurs alors que dans les requetes INFO PARKING et INFO PHONIE j'y arrive...

Merci d'avance

[ClaudeLELOUP]

J'utilise Access2000, dans cette version, on ne peut modifier le contenu des colonnes d'une zone de liste.

(J'ignore si cela est devenu possible dans des versions plus récentes... mais ce serait surprenant !)

Je ne peux t'aider davantage.

Par contre, tu pourrais plutôt envisager un formulaire en mode continu pour afficher les enregistrements sélectionnés : ils seraient alors modifiables.

[Brolaf]

Ok merci de ta réponse.
Je ne connais pas du tout les formulaires continu peut tu m'en dire plus?

Sinon j'ai trouver dans ce tuto un passage sur un formulaire d'édition.

Je pense essayer de suivre ce qu'il nous montre dans ce tuto.
Merci encore.

[ClaudeLELOUP]

Je ne connais pas du tout les formulaires continu peut tu m'en dire plus?

Jette aussi un œil ici : http://claudeleloup.developpez.com/t...-multicritere/

Si l'approche te convient, on pourrait voir comment l'appliquer à ton cas particulier (layout différent selon la table choisie).

[Brolaf]

Ok, je regarderais par curiosité.

Finalement j'ai suivi ce tuto mais j'ai un petit bug... lol

Il me dit que " Cette table ne possède pas de formulaire. Veuillez renseigner la table des paramètres".
Sauf que je l'ai renseigner :



Ma table PARKING :



Mon formulaire de modification :



Le code VBA du tuto :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub lst_resultat_DblClick(Cancel As Integer)
Dim rst As Recordset
Dim strCriteria As String
 
Set rst = CurrentDb.OpenRecordset("tbl_TempLstFrm", dbOpenSnapshot)
' recherche les informations de la table
rst.FindFirst ("Table='" & Me.cbo_table & "'")
 
If rst.NoMatch Then     ' non trouvé
   MsgBox "Cette table ne possède pas de formulaire. Veuillez renseigner la table des paramètres.", _
          vbCritical + vbOKOnly, "formulaire de Recherche"
   Exit Sub
Else                    ' trouvé
   If lf_GetTypeField(Me.cbo_table, rst.Fields("Champ")) = dbText Then  'la clef est Texte
      strCriteria = rst.Fields("Champ") & "='" & Me.lst_resultat & "'"
   Else                                                                 'la clef est numérique
      strCriteria = rst.Fields("Champ") & "=" & Me.lst_resultat
   End If
   DoCmd.OpenForm rst.Fields("Formulaire"), acNormal, , strCriteria
End If
 
End Sub

Cela peut venir de quoi a ton avis?

Encore merci de ton implication.

[pyloupylou]

bonjour,

je me permet de revenir au sujet initial de la question

Code :

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

 strSql = "SELECT DISTINCTROW " & strTable & ".*"

Je vois que tu utilises l'ordre distinctrow. Cet ordre est ignoré si une seule table est concernée par la requête, mais devient actif si plusieurs tables interviennent, et donc supprime les doublons.
Si des doublons sont supprimés, ta requête ne peut plus être éditable du fait qu'access devient incapable d'identifier les enregistrements concernés par la mise à jour.

Ne serais tu pas dans ce cas de figure ?