Problème sur access avec une textboc

Question

Bonjour,

Je suis dans la création d'une base de donnée, j'essaye d'incorporer dans mon formulaire une recherche par mots clefs. (via une txtbox). Donc en mettant un mot ou un debut de mot et en tapant sur entrée, le résultat de ma recherche devrait apparaître dans une zone de résultat.

Bref j'ai besoin d'aide, tout aide sera donc la bienvenue.

Le Pingou · Answer

Bonjour,
Quelle instruction SQL avez-vous utilisez pour renseigner la zone de résultat ?

Mickael1461 · Answer

Private Sub chkREFERENCE_Click()

If Me.ChkREFERENCE Then
    Me.cmbRechREFERENCE.Visible = False
    
Else
    Me.cmbRechREFERENCE.Visible = True
End If

RefreshQuery

End Sub


Private Sub chkTITRE_Click()

If Me.ChkTITRE Then
    Me.txtRechTITRE.Visible = False
Else
    Me.txtRechTITRE.Visible = True
End If

RefreshQuery

End Sub

Private Sub chkMOTSCLEFS_Click()

If Me.chkMOTSCLEFS Then
    Me.txtRechMOTSCLEFS.Visible = False
Else
    Me.txtRechMOTSCLEFS.Visible = True
End If

RefreshQuery

End Sub

Private Sub cmbRechREFERENCE_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub

Private Sub IstResults_DblClick(Cancel As Integer)
DoCmd.OpenForm "Formulairedesaisie", acNormal, , "[REFERENCE] = " & lstResults

End Sub

Private Sub txtRechTITRE_BeforeUpdate(Cancel As Integer)
RefreshQuery

End Sub

Private Sub txtRechMOTSCLEFS_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub



Private Sub Form_Load()

Dim ctl As Control

For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
        

        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
        
        Case "cmb"
            ctl.Visible = False
            
    End Select
Next ctl


End Sub

Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String

SQL = "SELECT TITRE,AUTEUR,EDITEUR, DATE_EDITION, MOTS_CLEFS FROM table1 "

If Me.ChkREFERENCE Then
    SQL = SQL & "And Table1!REFERENCE = '" & Me.cmbRechREFERENCE & "*' "
End If

If Me.ChkTITRE Then
    SQL = SQL & "And Table1!TITRE = '" & Me.txtRechTITRE & "*' "
End If

If Not Me.chkMOTSCLEFS Then
    SQL = SQL & "And Table1!MOTS-CLEFS like '*" & Me.txtRechMOTSCLEFS & "*' "
End If
  
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where") - Len("Where") + 1))
SQL = SQL & ";"

Me.lblStats.Caption = DCount("*", "Table1", Reference) & " / " & DCount("*", "Table1")
Me.IstResults.RowSource = SQL
Me.IstResults.Requery

End Sub

Je vous envoie tout mes codes j'arrive pas a envoyé la base.

Le Pingou · Answer

Bonjour,
Est-ce que le code produit une erreur ? 
Si oui sur quelle ligne ?
Il me semble qu'il s'agit d'une multi-recherche ... et  non d'une simple recherche, si c'est le cas il faut suivre le code pas à pas pour contrôler la bonne exécution ... !
Au passage j'ai trouvé ceci : 
dans la procédure : [Private Sub Form_Load()], il manque les 2 instructions suivantes juste avant le End Sub:
Me.lstResults.RowSource = "SELECT …, … , … FROM ….;"
Me.lstResults.Requery

Note: pour envoyer la base il faut la compacter si nécessaire puis la compresser en ZIP ou RAR et ensuite vous pouvez la mettre sur www.cjoint.com ou www.cijoint.fr

Le Pingou · Answer

Bonjour,
Proposition : remplacer la procédure [Private Sub RefreshQuery] par celle qui suit:
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT TITRE, AUTEUR, EDITEUR, DATE_EDITION, MOTS_CLEFS FROM Table1 Where Table1!TITRE like'*'"
If Not Me.ChkREFERENCE Then
    SQL = SQL & "And Table1!REFERENCE = '" & Me.cmbRechREFERENCE & "*' "
End If
If Not Me.ChkTITRE Then
    SQL = SQL & "And Table1!TITRE like '*" & Me.txtRechTITRE & "*' "
End If
If Not Me.chkMOTSCLEFS Then
    SQL = SQL & "And Table1!MOTS_CLEFS like'" & Me.txtRechMOTSCLEFS & "*' "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where") - Len("Where") + 1))
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "Table1", Reference) & " / " & DCount("*", "Table1")
Me.IstResults.RowSource = SQL
Me.IstResults.Requery
End Sub

Le Pingou · Answer

Merci, bonnes fêtes de Pâques.

Le Pingou · Answer

Merci Mickael1461,
Merci.
Pour tenir compte de vos remarques, il faut encore remplacer 2 lignes dans la procédure [Private Sub RefreshQuery] par celles qui suivent:
SQL = SQL & "And Table1!TITRE like '*" & Me.txtRechTITRE & "*' "
SQL = SQL & "And Table1!MOTS_CLEFS like'*" & Me.txtRechMOTSCLEFS & "*' "
Avec ces 2 corrections la recherche d'un mot complet ou partiel se fait n'importe ou dans la chaine.

Dernier point; pour la zone de liste déroulante [txtRechTITRE] la mention [Procédure événementielle] manque pour l'événement [Avant MAJ].

Note: si j'ose me permettre, ce n'est pas la note qui est importante mais le fait d'avoir appris et compris quelque cose de plus ...

Le Pingou · Answer

Merci Mickael1461, de rien.
Voir MP !

Mickael1461 · Answer

Bonjour,

Donc ma question concerne le formulaire que j'ai fait et qui n'enregistre pas les nouveaux enregistrements. Ce formulaire apparait quand on clique sur une ligne dans les résultats (n'importe laquelle). Il permettrait de faire de nouveaux enregistrements sans passer par la table. (plus accessible pour les futurs utilisateurs).

Le Pingou · Answer

Bonjour,
Mettre la base en ZIP sur https://www.cjoint.com/ ce qui me permettra de vous aider!

Le Pingou · Answer

Bonjour baladur13,
Merci pour l'information, c'est très gentil de votre part.
J'espère qu'il va corriger le tir ...
Bonne fin de semaine.

baladur13 · Answer

Tu as mis ta réponse à ce topic dans un nouveau message ici 
==> http://www.commentcamarche.net/forum/affich 12152019 base
comment voulais tu que Le pingou voit ta réponse ????
Du coup j'ai recopier ta reponse au bon endroit...
Corriger le tir cela veut simplement dire qu'à l'avenir tu ne te tromperas plus...

Le Pingou · Answer

Bonjour Mickael,
Votre formulaire [Formulairedesaisie] doit avoir comme source la table [Table1] et la source de contrôle de chaque champ doit correspondre à ceux de la table.
Dans la procédure [Private Sub IstResults_DblClick] vous ne pouvez pas prendre le champ [REFERENCE] pour appliquer votre critère car il ne figure par dans la zone de liste [IstResults]
Corriger votre procédure comme suit :
Private Sub IstResults_DblClick(Cancel As Integer)
Critere = "TITRE" & "='" & Me.IstResults & "'"
DoCmd.OpenForm "Formulairedesaisie", acNormal, , Critere
End Sub

Au passage, merci baladur13.

Bon dimanche.

Le Pingou · Answer

Bonsoir Mickael1461,
Votre procédure :

Private Sub IstResults_DblClick(Cancel As Integer)
DoCmd.OpenForm "Formulairedesaisie", acNormal, , "[REFERENCE] = " & lstResults
End Sub

doit être remplacée par celle-ci:

Private Sub IstResults_DblClick(Cancel As Integer) 
Critere = "TITRE" & "='" & Me.IstResults & "'" 
DoCmd.OpenForm "Formulairedesaisie", acNormal, , Critere 
End Sub 

Explication: la variable Critere est utilisée comme argument Where de l'objet OpenForm. Donc on lui attribut sa valeur avant ( Critere = "TITRE" & "='" & Me.IstResults & "'" ).

Le Pingou · Answer

Bonjour,
Est-ce que cela est fait ?
Votre formulaire [Formulairedesaisie] doit avoir comme source la table [Table1] et la source de contrôle de chaque champ doit correspondre à ceux de la table. 

La procédure, l'avez vous copier/coller ou retapée vous même ?

Le Pingou · Answer

Bonjour,
Ne désespérez pas, votre dernière version sur https://www.cjoint.com/ (en zip) et je vous fais la correction !

Le Pingou · Answer

Bonsoir Mickael1461,
J'ai récupéré un ficher et le voici avec mes corrections : https://www.cjoint.com/?fbmMtm4ADX
Est-ce que cela vous convient?

Le Pingou · Answer

Bonjour Mickael1461,
Voir le document : https://www.cjoint.com/?fdnp0jqOUV

Le Pingou · Answer

Bonjour,
Eh bien la réponse me semble très simple, s'il n'a pas le logiciel "Access" il ne peut pas accèder à votre base.

Le Pingou · Answer

Bonjour,
Sans informations plus précises, par exemple comme la case à cocher [TITRE] avec une [Procédure événementielle] sur clic et dans la procédure cette ligne de code :
DoCmd.OpenForm "Nom du formulaire", , , "Nom du champ = 'Critère article de presse'" 
Bonne semaine

Le Pingou · Answer

Bonjour,
Si j’ai bien compris, la case à cocher [ARTICLE] est sur le formulaire [Formulaire1] donc :
Sur clic la procédure :
Private Sub cacArticle_Click()
If Not Me.cacArticle Then
    RefreshQuery
End IfEnd Sub
Et dans la procédure [RefreshQuery] juste avant la ligne : SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where") - Len("Where") + 1))
Vous placez le code suivant :
If Not Me.cacArticle Then
     SQL = SQL & "And Table1!REFERENCE like'" & "ART*' "
End If
Je vous signale que cette procédure est similaire à celle que vous avez utilisé pour [REFERENCE], [TITRE] et [MOTS-CLEFS]. Note au passage, il y a une étrange ressemblance avec l’étude de M. Fabrice …

Le Pingou · Answer

Bonjour,
Est-ce que le code fonctionne ?

Le Pingou · Answer

Bonjour,
Eh bien je constate que vous n'avez pas réalisé se que je vous ai proposé.
Je ne vais pas corrigé se que vous avez fait.
D'autre part la cosmétique (esthétique), je ne m'en occupe pas c'est un choix personnel.

Le Pingou · Answer

Bonjour,
Regardez donc par là : http://www.commentcamarche.net/forum/affich 11915363 probleme sur access avec une textboc?page=2#35
Pour moi pas de probléme; par contre cela ne fonctionne pas correctement avec les 2 autres procédures que vous avez ajouté sur le même modèle.
D'ou ma réponse.

Mickael1461 · Answer

C'est bon pour l'ouverture du formulaire de saisie avec le bouton avec le code suivant :

Private Sub NvlEnr_Click()
    DoCmd.OpenForm "Formulairedesaisie", acNormal
End Sub

Cependant je tombe dur un ancien enregistrement je voudrais sur le formulaire vide.

Le Pingou · Answer

Bonjour Mickael1461,
Je vais faire encore un extra et faire en sorte que cela fonctionne.
Cependant je n'ai pas la version que vous citez au poste 43.
Si vous êtes un peu ... alors à mon tour de vous dire qu'il serait agréable de toujours commencer un poste avec un petit Bonjour ...(cela fait partie de la charte du forum CCM) 
Pas de réponse avant demain soir.

Le Pingou · Answer

Bonjour,
Voir 2 premières lignes de http://www.commentcamarche.net/forum/affich 11915363 probleme sur access avec une textboc?page=2#45

Le Pingou · Answer

Bonjour Mickael
J’ai corrigé : TITRE et le compteur de statistique (56/56) qui ne fonctionnaient pas.
J’ai adapté le code pour Article, DocInt et DocExt afin d’avoir une cohésion correcte de l’ensemble. Note j’ai modifié les noms des 3 contrôles Cas…… par cac…. Simplement le cac pour mémo = case à cocher (plus facile de si retrouver dans le code ou simplement dans les formulaires).
Question : Cependant je tombe dur un ancien enregistrement je voudrais sur le formulaire vide.
Réponse : c’est mis en ordre.
Note : dans le code VBA j’ai annoté chaque intervention par ‘ **** ……
J’espère que je n’ai rien oublié, sinon vous me le faite savoir.
Votre application : https://www.cjoint.com/?fjnaFelOKK

Le Pingou · Answer

Bonjour Mickael,
Merci pour le message.
A mon avis il serait plus présentable d'avoir le titre des colonnes dans la liste résultats du formulaire [Formulaire1].
Il vous suffit, en mode création, sur les propriétés de [IstResults] et de mettre OUI pour En-têtes colonnes.

En marge petite correction dans le code:

1.- Procédure [Private Sub Form_Load()]
ajouter les 2 lignes suivante juste avant : Case "txt"

Case "cac"  ' ***** ajouter
ctl.Value = 0  ' ***** ajouter

2.- Private Sub RefreshQuery()
Ceci uniquement si vous voulez les titres des colonnes dans [IstResults]
Modifier le compteur pour tenir compte de la ligne des titres, il faut la combinaison signe "<=", ci-dessous ligne correcte:

Me.lblStats.Caption = IIf(Me.IstResults.ListCount <= 1, 0, Me.IstResults.ListCount) & " / " & DCount("*", "Table1")

Bon vent pour la fin de votre stage.

Mickael1461 · Answer

Bonjour Jean-Pierre,

Le code que vous m'avez fourni pour le compteur en prenant compte du titre ne fonctionne pas car le compteur m'affiche 57/56 donc prend en compte la ligne titre.
De plus j'aurais aimais savoir que signifie le "IIF" dans cette ligne de code.

Le Pingou · Answer

Bonjour,
Alors vous l'envoyer, j'attends .

Le Pingou · Answer

Bonjour,
Désolé mais le résultat est 56/56 et pour les autres 16/56 (Article) , 7/56 (doc interne) et 33/56 (doc externe)

Le Pingou · Answer

Bonjour,
Ci-joint : https://www.cjoint.com/?fmqCh6T0FR

Le Pingou · Answer

Merci.

Mickael1461 · Answer

Bonjour Jean-Pierre,

Je sais pas si vous aurez lu ce message avant que je finisse mon stage mais bon je tente quand même.
J'aurais voulus savoir si il était possible de mettre une lien Hypertexte pour chaque enregistrement. J'ai essayé mais le problème c'est qu'il affiche toujours le même lien en changeant d'enregistrement.

Donc ce que j'aimerais si cela est possible, c'est qu'en double cliquant sur un des enregistrement de la zone de résultat celui si apparaît dans le formulaire de saisie avec le lien qui correspond.

Cela est-il Possible ?

Merci
Mickael

Le Pingou · Answer

Bonjour Mickael,
Si le lien hypertexte est lié à un enregistrement il faut que dans la table il y est un champ avec type de données "Lien hypertexte" et l'ajouter sur le formulaire "Formulairedesaisie".

Le Pingou · Answer

Bonjour,
Non, vous devez ajouter un champ à votre table avec type de données "Lien hypertexte" et il va de soi que vous devez entrer pour chaque enregistrement éxistant le lien désirer.
Concernant ceci : De plus ce qu'on a fait sur le formulaire1 avec le double clique sur la zone de résultat n'est pas assez pertinent car quand je double clique sur un enregistrement je reviens toujours sur le premier. Donc y a t il un remede a ce problème. 
C'est vraiment étonnant car je l'avais corrigé dans les versions précédentes.

Le Pingou · Answer

Bonjour Mickael,
Eh bien oui j'avais déjà réalisé la correction sur version antérieur.
La procédure est la suivante (à vous de la remplacer):
Private Sub IstResults_DblClick(Cancel As Integer)
Critere = "REFERENCE" & "= """ & Me.IstResults & """"
DoCmd.OpenForm "Formulairedesaisie", acNormal, , Critere
End Sub

Le Pingou · Answer

Bonjour,
L'exemple : http://www.cijoint.fr/cjlink.php?file=cj200905/cij5r05jlS.zip

Le Pingou · Answer

Bonjour,

Pour : mais si je met un pdf en lien  mettre un exemple.

Le Pingou · Answer

Bonjour,
Sympathique les fichier avec mot de passe...
En attendant, que je trouve le "mdp", êtes-vous certain du chemin vers le document *.pdf ....? ?

Le Pingou · Answer

Bonjour Mickael,
A la suite de test avec  pdf à divers endroits tout fonctionne chez moi.
Quel message vous recevez avec l'ouverture de *.pdf ... ?

Le Pingou · Answer

Bonjour Mickael,
Essayez d'ouvrir le fichier pdf en créant le lien sur un document excel pour voir si le problème est le même.
Je pense que vous avez assi essayer en direct ....

Le Pingou · Answer

Bonjour Mickael,
Alors là je ne peux plus vous aider sans avoir le matériel à disposition.
Il me semble quand même que celà provient du logiciel qui supporte le PDF, contrôlez le à défaut le réinstallé....
Essayer d'autre document en pdf pour voir se qui se passe.
Bon vent.

Problème sur access avec une textboc

43 réponses

Discussions similaires

Newsletters