Access - Formulaire de recherche - erreur
Nolwenn
-
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
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
A voir également:
- Access - Formulaire de recherche - erreur
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook compte désactivé - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Formulaire de reclamation instagram - Guide
- Recherche photo - Guide
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