Access - Formulaire de recherche - erreur

Nolwenn -  
 Nolwenn -
Bonjour,
je rencontre un petit problème sur Access, je vous explique :

Voilà ce que j'ai dans ma base Access :
- Tables : 1 table principale, 2 tables secondaires qui servent pour une liste.
- Requêtes : 2 requêtes qui m'affichent chacune une liste, 1 autre requete qui m'affiche une partie de liste, 1 requête basée sur le nom, le prénom, etc. (le critère est: comme "*"+[param_DNI_nom de champ]+"*"). Dans cette dernière requête, j'ai inséré 11 paramètres, qui commencent tous par "param_DNI_" le dernier mot est le nom de champ.
- Formulaires : 1 formulaire "menu", 1 formulaire "fiche", où je peux voir toutes mes fiches, une par une, et 1 formulaire "recherche" dans lequel j'ai donc 11 critères pour faire une recherche de fiche.

Voilà mon problème :
- Une fois que je lance la recherche, ce sont toutes mes fiches qui s'affichent et non celles que je recherche ; de plus un message d'erreur s'affiche "error de conversión de tipos de datos" (oui, je travaille avec Access espagnol, en français ça donnerait "erreur de conversion de type de données"). Il ne me dit rien de plus, je ne sais donc pas d'où vient l'erreur...

Voilà ce que j'ai fait :
- Pour créer mon formulaire de recherche, j'ai inséré soit une zone de texte ou de liste ou case à cocher, suivant ce dont j'avais besoin. Les zones de texte ont pour nom "input_DNI_nom de champ", les listes ont pour nom "lista_nom de champ", et les cases à cocher ont pour nom "casilla_nom de champ".
- Mon bouton "rechercher" à pour procédure événementielle ceci :

Private Sub cmd_buscar_ficha_Click()
On Error GoTo Err_cmd_buscar_ficha_Click

Dim stDocName As String

stDocName = "frm_Ficha"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Set qdf = CurrentDb.QueryDefs("Rqt_Apellidos")
qdf.Parameters("param_DNI_apellido") = Nz(Me![input_DNI_apellido], "*")
qdf.Parameters("param_DNI_nombre") = Nz(Me![input_DNI_nombre], "*")
qdf.Parameters("param_DNI_provincia") = Nz(Me![lista_provincia], "*")
qdf.Parameters("param_DNI_comunidad") = Nz(Me![lista_comunidad], "*")
qdf.Parameters("param_DNI_estatura") = Nz(Me![input_DNI_estatura], "*")
qdf.Parameters("param_DNI_talla") = Nz(Me![input_DNI_talla], "*")
qdf.Parameters("param_DNI_pelo") = Nz(Me![lista_pelo], "*")
qdf.Parameters("param_DNI_conducir") = Nz(Me![casilla_conducir], "*")
qdf.Parameters("param_DNI_patinadora") = Nz(Me![casilla_patinadora], "*")
qdf.Parameters("param_DNI_manipuladora") = Nz(Me![casilla_manipuladora], "*")
qdf.Parameters("param_DNI_congresos") = Nz(Me![casilla_congresos], "*")

Set Forms(stDocName).Recordset = qdf.OpenRecordset

Forms![frm_Ficha].Form.Visible = True

Exit_cmd_buscar_ficha_Click:
Exit Sub

Err_cmd_buscar_ficha_Click:
MsgBox Err.Description
Resume Exit_cmd_buscar_ficha_Click

End Sub

A quel endroit ai-je fais une erreur ?? Comment résoudre ce problème ? Lorsque j'ai commencé ce formulaire, les 4 premiers critères mis fonctionnaient, j'ai ensuite continué sans tester, puis une fois le test effectué, voilà que m'est apparu ce problème...

Si vous pouviez m'aider ce serait fantastique !
Merci

1 réponse

nvaros Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   17
 
Bonjour Nolwenn (jolie prénom).

Pour ton cas, j'ai pas très bien compris du fait de tes explications un peu fouillies.

Cependant, si cela est important, je peux essayer de t'aider.

As-tu msn pour m'envoyer ton fichier.
0
Nolwenn
 
en fait, je n'ai plus accès à ma base avant demain matin 8h45 plus ou moins...
je pensais avoir donné des explications précises, mais le problème c'est que comme je ne sais pas d'où vient le problème, je préférais donner le plus d'informations possibles !

si tu peux quand même essayer de me guider... ça m'arrangerait !
Merci
0