Discussion :

[LUCAS-28]

Salut,

J'ai un souci avec mon code. J'ai crée un champ dans lequel j'indique le N° de TVA par lequel je souhaite ouvrir mon formulaire et ce par un click sur un btn de commande.

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
Private Sub Click1_Click()
 
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Call_1")
rs.Index = "PrimaryKey" '
rs.Seek "=", Recherche_TVA
 
If rs.NoMatch Then
 
MsgBox "Le N° de TVA " & Recherche_TVA & " n'existe pas !", vbCritical, "Mémo"
 
Me.Recherche_TVA.SetFocus
 
Else
    Dim strwhere As String
    strwhere = "N° de TVA = " & Recherche_TVA
 
    DoCmd.OpenForm "Call_1", , , strwhere
End If
rs.Close
Set rs = Nothing
 
End Sub

Champ de ma table Call_1 : N° de TVA
Nom du champ par lequel j'encode le N° de TVA par lequel s'ouvre mon formulaire : Recherche_TVA
Nom du btn de commande qui ouvre le formulaire : Click1


Merci pour votre aide

[francishop]

Bonjour;

??? :

Code :

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

rs.Seek "=", Recherche_TVA

Ne pas oublier :

Code :

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

"[nom_champ] =" & Me.[MonControle]

Voir : http://access.developpez.com/faq/?page=Forms#PassValeur

Cordialement.

Ps : Call_1 désigne combien d'objets? + Kamicaze d'utiliser "Call"

[LUCAS-28]

Merciiiiiii

[francishop]

Bonsoir,

Super.
Si c'est résolu...Tag du même nom.

Cordialement.

[LUCAS-28]

Je n'ai toujours pas trouvé la solution à mon problème ...

Voici le code que j'ai pour l'instant :

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
Private Sub Click1_Click()
 
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Introduction mémo")
rs.Index = "PrimaryKey" '
rs.Seek "[N°_de_TVA] =" & Me.[Recherche_TVA]
 
If rs.NoMatch Then
 
MsgBox "Le N° de TVA " & Recherche_TVA & " n'existe pas !", vbCritical, "Mémo"
 
Me.Recherche_TVA.SetFocus
 
Else
    Dim strwhere As String
    strwhere = "N°_de_TVA = " & Recherche_TVA
 
    DoCmd.OpenForm "Introduction mémo", , , strwhere
End If
rs.Close
Set rs = Nothing
 
End Sub

[francishop]

Bonsoir,

Code :

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

1
2
3
4
    ............
Else
    Dim strwhere As String
    strwhere = "N°_de_TVA = " & Recherche_TVA

Il manque un Me!

Cordialement.

Ps : Ou Me. (Selon l'humeur)

[LUCAS-28]

Bonsoir,
Il manque un Me!

Cordialement.

Ps : Ou Me. (Selon l'humeur)

Ok je vais essayer ce soir en rentrant ...

[LUCAS-28]

Ca ne marche pas ...

[Jeannot45]

Bonjour,

Attention, si ta RechercheTVA est une string, il est nécessaire d'utiliser des Cotes dans ta syntaxe WHERE ainsi tu aurais :

Code :

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

strwhere = "N°_de_TVA = '" & Recherche_TVA & "'"

[LUCAS-28]

Je n'y arrive pas avec vos propositions. J'ai mis le fichier en annexe, pourriez-vous y jet un coup d'oeil svp et me dire aussi comment ouvir le formulaire non en clickant sur un btn de commande, mais en appuyant enter ou une autre touche par exemple.

Merci de votre aide

Copie de Mémo.rar

[francishop]

Bonsoir,

comment ouvir le formulaire non en clickant sur un btn de commande, mais en appuyant enter ou une autre touche par exemple.

Bien.Bien. Mais un peu "compliqué" ton code. Pourquoi ne pas faire simple? Par exemple : (Ce code peut être mis, presque, sur n'importe quel événement.)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Recherche_TVA_LostFocus()
Dim strFiltre As String
  'Filtre sur le N° de TVA
    On Error Resume Next
      strFiltre = " "
      If Not IsNull(Me.Recherche_TVA) Then
        strFiltre = "Nz([N° de TVA]) LIKE '*" & Nz(Me.Recherche_TVA) & "*'"
      End If
          ' Si on désire fermer le formulaire de recherche
        'DoCmd.Close
 
         ' Ouvrir le formulaire Introduction mémo
     DoCmd.OpenForm "Introduction mémo", acNormal, , strFiltre
End Sub

Cordialement.

[francishop]

Bonjour,
J'avais peut-être un peu trop "simplifié". J'y reviens :

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 Commande1_Click()
Dim oDb As DAO.Database
Dim oRstFiltre As DAO.Recordset
Dim strFiltre As String
'Instancie la base de données
Set oDb = CurrentDb
'Ouvre le curseur retournant le N° de TVA
Set oRstFiltre = oDb.OpenRecordset("SELECT * FROM [Introduction mémo] WHERE [N° de TVA]='" & Recherche_TVA & "'", dbOpenDynaset)
 
    If oRstFiltre.RecordCount <> 0 Then
     strFiltre = "Nz([N° de TVA]) LIKE '" & Nz(Me.Recherche_TVA) & "'"
     DoCmd.OpenForm "Introduction mémo", acNormal, , strFiltre
     Else
     MsgBox "Le N° de TVA " & Recherche_TVA & " n'existe pas !", vbCritical, "Mémo"
     End If
 
'Libération des objets
oRstFiltre.Close
oDb.Close
Set oRstFiltre = Nothing
Set oDb = Nothing
End Sub

Cordialement.

[LUCAS-28]

J'ai essayé avec ton code Francishop mais ca ne va pas ...

[francishop]

Bonjour;

Pièce jointe 19780

Cordialement.

[LUCAS-28]

Merci Francishop ca marche nickel !!!

Dernière question : pour faire la meme recherche mais avec le nom du client et pouvoir juste taper une partie du nom (%partiedunom% ou partiedunom%), comment dois-je m'y prendre ?

[francishop]

Bonjour,
Pour exemple je reprends :

Code :

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

1
2
 
        strFiltre = "Nz([N° de TVA]) LIKE '*" & Nz(Me.Recherche_TVA) & "*'"

* veut dire "Tout". Donc placé avant-->Recherche tout ce qui est placé avant de "Ce que je te dis" Et aprés.....

Cordialement.

[LUCAS-28]

Et concrètement, ça donnerait quoi ?

[LUCAS-28]

Malgré mes tentatives, je n'y arrive pas. QQun pourrait-il m'aider svp ?

[francishop]

Bonjour,

On va respecter ta logique et continuer tel que :
Sur ton formulaire inscrit une liste déroulante qui n'a pas de source contrôle.
En contenu :

Code :

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

1
2
SELECT [Introduction mémo].ID, [Introduction mémo].[Nom du client]
 FROM [Introduction mémo];

Nom de baptême --> cboClient

Sur double Click

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
Private Sub cboClient_DblClick(Cancel As Integer)
    Dim oDb As DAO.Database
    Dim oRstFiltre As DAO.Recordset
    Dim strFiltre As String
        'Instancie la base de données
        Set oDb = CurrentDb
        'Ouvre le curseur retournant le N° du client
        Set oRstFiltre = oDb.OpenRecordset("SELECT * FROM [Introduction mémo] WHERE [Id]=" & Me.cboClient, dbOpenDynaset)
 
    If oRstFiltre.RecordCount <> 0 Then
      strFiltre = "Nz([ID]) LIKE " & Nz(Me.cboClient)
      DoCmd.OpenForm "Introduction mémo", acNormal, , strFiltre
     Else
      'On fait référence à la liste déroulante-->Première Colonne=Id Deuxième= Le nom
      'Note que placé sur cette liste déroulante il serait surprenant qu'un nom "étranger" s'y inscrive.
      'Ceci est juste pour le cas ou tu persistes à saisir dans un champ "Libre"
      MsgBox "Le client " & Me.cboClient.Column(1) & " n'existe pas !", vbCritical, "Mémo"
     End If
 
    'Libération des objets
  oRstFiltre.Close
  oDb.Close
 Set oRstFiltre = Nothing
 Set oDb = Nothing
End Sub

Sur ouverture du formulaire :

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.cboClient = Me.cboClient.ItemData(0)
End Sub

Cordialement

[francishop]

Bonsoir,

Dernière question : pour faire la meme recherche mais avec le nom du client et pouvoir juste taper une partie du nom (%partiedunom% ou partiedunom%), comment dois-je m'y prendre ?

Je n'ai pas répondu intégralement... J'y remédie :

Sur le formulaire une zone de texte -->txtclient

Code :

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

1
2
3
4
5
6
Private Sub txtclient_DblClick(Cancel As Integer)
 Dim strFiltre As String
     Me.Requery
     strFiltre = "[Nom du client] Like '*" & Me.txtclient & "*'"
     DoCmd.OpenForm "Introduction mémo", acNormal, , strFiltre
End Sub

Cordialement.