Discussion :

[Myogtha]

Bonjour à tous

Comme vous pouvez le voir sur l'image :


Je cherche à faire en sorte que la personne en tapant le nom du client ou en faisant défilé la liste dans la partie Atteindre appel le fiche de celle ci. Je vois pas comment relié liste déroulante modifiable à mon controle par onglet. Si quelqu'un a une idée ?

Merci d'avance

Jim

[Dolphy35]

Salut,

tu peux t'inspirer des différents tuto sur la recherche dans les formulaires

http://access.developpez.com/cours/?...#formrecherche


sinon il y a ceci dans la
Comment changer la source d'un formulaire ?

Dolphy

[Myogtha]

Alors j'ai lu les FAQ, je suis un mieux renseigné maintenant mais je bloque devant une logique....

Donc j'ai mis dans ma recherche un BeforeUpdate avec un appel à la sub refreshquery

sauf que comment on fait avec un controle Onglet ? parce que je peux pas accrocher la requete à se controle c'est pas possible, quelqu'un a une idée ? au formulaire complet peut étre ?

Merci d'avance

Jim

[Dolphy35]

Salut,

tu as mis quoi dans le sub RefreshQuery ?

la source est sur ton formulaire, tu ne lie pas directement la source au contrôle onglet.

Dolphy

[Myogtha]

Mon RefreshQuery()

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 RefreshQuery()
    Dim SQL As String
    Dim SQLWhere As String
 
    SQL = "SELECT NumChiffrage, NomClient, DateChiffrage, CAChiffrage, NumOffre, Equipement, HeureChefpro FROM Chiffrage WHERE Chiffrage!NumChiffrage"
    SQL = SQL & "And Chiffrage!NomClient = '" & Me.CmbRechClient & "' "
 
    SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where") - Len("Where") + 1))
    SQL = SQL & ";"
 
    Me.lblStats.Caption = DCount("*", "Chiffrage", SQLWhere) & " / " & DCount("*", "Chiffrage")
    Me.lstResults.RowSource = SQL
    Me.lstResults.Requery
End Sub

La source de mon formulaire, je sais pas trop j'ai mis la table chiffrage pour tester mais j'avoue etre paumé

[Dolphy35]

re,

lstResults correspond à quoi dans ton projet ?

le code que tu montre permet de mettre le résultat dans un zone de liste, dans ton cas il faut appliquer un filtre sur ton Form.

Dolphy

[Myogtha]

Ah rien le lbstat éffectivement j'avais repris le style étiquette de la FAQ mais c un peu con, par contre quel partie il faut que je modifie ?

[vodiem]

j'avoue etre paumé

pour t'expliquer autrement:

ton form affiche un enregistrement à partir d'une source (table/requete).
cette enregistrement a plusieurs champs qui sont répartis dans tes onglets.

pour afficher l'enregistrement qui te convient dans tes onglets, il faut que la source du form soit sur l'enregistrement.

pour cela on utilise de préférence le filtre du form, ca simplifie le codage.
donc une fois la saisie faite dans le combo, tu mets la valeur dans le filtre (et penser à activer le filtre, et réactualiser le form...)

bonne continuation

[Myogtha]

j'applique cela sur mon formulaire

Code :

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

1
2
Me.filter="[NumChiffrage]=" & tempon 
Me.FilterOn=True

Ou je sais pas mais je vais trouvé...

Maintenant il faut donc dans mon CmbRechClient faire le réactualisation et l'envoie de l'info au formulaire, c ça ?

Merci en tout cas

[vodiem]

je vois plutot un truc comme ca:

Code :

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

1
2
3
Me.filter="[NumChiffrage]=" & CmbRechClient
Me.FilterOn=True
Form.Requery

dans l'év après maj du combo.

je te laisse le soin de vérifier.

[Myogtha]

comment je mets le filtre dans mon formulaire ?

Je vais créer un requete SQL avec la variable (j'ai pas capté laquel faut utiliser, filtre ?) non ?

la recherche CmbRechClient se trouve dans l'entete formulaire ça pose un pb ?
Merci d'avance

[vodiem]

comment je mets le filtre dans mon formulaire ?

par Me.filter

Je vais créer un requete SQL avec la variable (j'ai pas cpaté laquel faut utilisé, flitre ?) non ?

je te conseil de mettre la sql directement en source de ton form sans filtre (tous ce qui est dans WHERE) puisque Me.filter te servira à mettre dans le WHERE.

CmbRechClient se trouve dans l'entete formulaire ça pose un pb ?

non

[Myogtha]

Ok

Donc je mets dans la source de mon formulaire ceci :

Code :

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

SELECT Chiffrage.NumChiffrage, Chiffrage.NomClient, Chiffrage.DateChiffrage, Chiffrage.CAChiffrage ........ FROM Chiffrage WHERE (((Chiffrage.NumChiffrage)=[Me].[filter]));

Sauf qu'il va falloir que je mette une valeur par défault

En tout cas vraiement merci pour le temps que tu prends pour me répondre c'est vraiment bien l'esprit de ce forum, bravo à toi !!!

[vodiem]

non, il te faut:

Code :

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

SELECT Chiffrage.NumChiffrage, Chiffrage.NomClient, Chiffrage.DateChiffrage, Chiffrage.CAChiffrage ........ FROM Chiffrage

je te rappel:

je te conseil de mettre la sql directement en source de ton form sans filtre (tous ce qui est dans WHERE) puisque Me.filter te servira à mettre dans le WHERE.

Sauf qu'il va falloir que je mette une valeur par défault

pas obligé.
si tu veux ouvrir sur un enregistrement en particulier tu n'as qu'a mettre Me.filter (+activation+requery) dans le l'événement d'ouverture de ton form.

En tout cas vraiement merci pour le temps que tu prends pour me répondre c'est vraiment bien l'esprit de ce forum, bravo à toi !!!

et merci à tous...

[Myogtha]

tu n'as qu'a mettre Me.filter (+activation+requery)

ça veut dire ça ? sauf que je sais pas trop comment faire avec mon "Me.Filter" car la je suis sur le formulaire donc ça va pas marcher !!!

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
    Me.Filter
    Form.Requery
End Sub

[vodiem]

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
Me.filter="[NumChiffrage]=" & "numéro sur par défaut que je veux avoir à l'ouverture du form"
Me.FilterOn=True
Form.Requery
End Sub

sinon pour le reste dans le combo tu as réussi à faire marcher?

[Myogtha]

ça commence à prendre tournure, j'ai une erreur à l'utilisation la premiere fois de ma combobox

Erreur d'exécution 3075
Erreur de syntaxe (opérateur absent) dans l'expression '[Numchiffrage]='.

Si vous avez une idée...

[vodiem]

il faut mettre un truc de ce genre:

Code :

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

Me.filter="[NumChiffrage]=1"

ou:

Code :

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

Me.filter="[NumChiffrage]="& CmbRechClient

...
ce que tu veux... mais pas sans rien.

[Myogtha]

j'ai trouvé erreur de syntaxe

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
Me.filter="[NumChiffrage]=" & "1" <- j'avais mis ça au lieu de =1"
Me.FilterOn=True
Form.Requery
End Sub

C'est bon ça fonctionne, je remerçie tout le monde, et @ Bientôt sur un autre sujet

Bye Jim