A propos de la nouvelle version que tu as postée :
1. j'ai décelé une erreur sur le type de donnée du champ "nom" de la table tbl_tempLstTbl. Celui-ci doit être de type texte et nom de type NumAuto
2. il y a toujours la même erreur au niveau de la procédure Après_MAJ de la liste cbo_Table
1 2 3 4 5
| Private Sub cbo_table_AfterUpdate()
Me.cbo_champ.RowSourceType = "Field List"
Me.cbo_champ.RowSource = Me.cbo_Table
Me.cbo_champ.Requery
End Sub |
Il te faut ajouter le type de la source de ta liste déroulante (Liste de champs) et modifier la RowSource de ta liste déroulante comme je te l'avais déjà indiqué le 04/09.
3. Le nom du champ critère est toujours différent dans le formulaire(txt critère) et dans le code (txt_critere)
4. A propos de l'option de recherche. Dans ton formulaire, pour ton option "Effectuer dans la recherche courante", tu as utilisé un groupe d'option. Dans le code, l'élément à tester n'est donc pas opt_RechCourante mais Cadre17. Il te serait plus simple de supprimer ce groupe d'options et de créer un autre contrôle indépendant de type bouton radio qui pourrait prendre la valeur 0 (faux) ou -1 (Vrai). Il te faudra ajouter également une ligne sur la procédure Form_Open
1 2 3 4 5 6 7 8 9
| Private Sub Form_Open(Cancel As Integer)
Me.Opt_RechCourante = 0
' crée la liste des tables
If lf_GetTableList() = 0 Then
MsgBox "Pas de tables dans cette application .", vbInformation + vbOKOnly, "Erreur"
Cancel = True
End If
End Sub |
Je te joins ta base modifiée.
Partager