Discussion :

[jimbolion]

Rc,

dans les procédures de Remise à zéro le me.requery n'a plus lieu d'exister :

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
Sub Raz_Saisie()
  '
  Me.E_Commentaire = ""
  Me.E_DateIntervention = Null
  Me.E_IdClient = Null ' repasse en insertion nouvelle ligne
  Me.E_Montant = 0
  Me.E_Fournisseur = ""
  Me.E_Km = ""
  Me.E_Type = ""
  Me.E_IdNdfKm = 0
  Me.B_Delete.Enabled = False
  ' essai pour se repositionner en haut du tableau après RAZ
'  DoCmd.GoToControl "SF_SaisieNdfKm"
  Me.SF_SaisieNdfKm.SetFocus
  '
  Me.E_DateIntervention.SetFocus
  '
End Sub

J'ai apporté le correctif dans les trois formulaires. Concernant les techniques de débogage, je rappelle ce lien :

http://cafeine.developpez.com/access...el/debugprint/

Si après lecture tu souhaites plus d'informations, je suis à ta disposition.

Amicalement

jm

[Robert Camion]

JimboLion, Bonsoir...

J'ai essayer d'appliquer ce que tu m'as montrer pour le suivi des consultant sur une autre base un peu dans le même esprit.

J'ai un filtre sur une personne qui m'amène sur un menu soit Admin soit Utilisateur comme pour l'autre avec la table paramêtre.

J'ai créé un UF de Saisie de fiches visites, et j'ai un souci ne d'affichage à "blanc" de mon UF quand je viens du Menu....

Pour des raisons de confidentialité, je ne peux te transmettre que la base et des copies d'écrans.

Voir si tu peux me décoincer avec cela:


1. Voici l'UF:






2. la requete sur laquelle il s'appuie pour remplir la table "T_Visite":




3. problème quand je clique depuis mon Menu, par Admin, sur le bouton pour accéder à cet Uf de Saisie qu'on vient de voir plus haut, voici ce que j'ai à l'écran





3. voici comment est structuré le bouton, et le code lié au bouton d'accès à l'UF:

Code :

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

1
2
3
4
5
Private Sub B_Visite_Click()
  If Get_Parametre("prmCommercial") > "" Then
    DoCmd.OpenForm "F_Visite", , , "[IdCommercial]=" & Get_Parametre("prmCommercial")
  End If
End Sub

4. à l'ouverture de mon UF j'ai tout endormi le code pour limiter les sources d'erreur, sauf le lancement:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
    ' Courtoisie Jimbolion
    Me.E_Commercial.Caption = Nz(Me.Prenom, "") & " " & Nz(Me.Nom, "")
    Me.E_DateVisite = CDate(Date)
    Me.B_Delete.Enabled = False
    'MsgBox "hello"
End Sub

voilà voilà, il doit y avoir un loup garou dans le code... le trouveras tu ?

merci de ton aide sincèrement,

bonne soirée

RC

[jimbolion]

Rc,

Je viens de voir ton post et je ne peux faire que quelques supputations :

Sachant que tu dois avoir un champ père et un champ fils entre la source de ton formulaire, il est clair que l'enregistrement souhaité ne s'affiche pas sur le formulaire source.

Déjà un msgbox sur l'ouverture du formulaire te permettrait de voir si l'id est bien transmis :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
    ' Courtoisie Jimbolion
    Me.E_Commercial.Caption = Nz(Me.Prenom, "") & " " & Nz(Me.Nom, "")
    Me.E_DateVisite = CDate(Date)
    Me.B_Delete.Enabled = False
    MsgBox nz(me.IdCommercial,0)
End Sub

Si la boîte message indique 0, tu as plusieurs choses à contrôler :
1. La source de ton formulaire principal qui doit être à minima basé sur la table T_Commercial,
2. Que ta table T_Parametres dispose bien d'une entrée prmCommercial et qu'il s'agit bien de l'id, tu peux éventuellement vérifier par un msgbox son contenu avant ouverture du forms

Code :

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

1
2
3
4
5
6
Private Sub B_Visite_Click()
  If Get_Parametre("prmCommercial") > "" Then
    msgbox Get_Parametre("prmCommercial")
    DoCmd.OpenForm "F_Visite", , , "[IdCommercial]=" & Get_Parametre("prmCommercial")
  End If
End Sub

Je te laisse vérifier tout çà et me faire un retour

Amicalement

Jimbolion

[Robert Camion]

JimboLion, re,

merci !

alors, dans l'ordre:

Déjà un msgbox sur l'ouverture du formulaire te permettrait de voir si l'id est bien transmis :

=> quand je clique depuis mon bouton "Visites" sur l'onglet "Administrateur", et que j'arrive sur l'UF de Saisie des Visites, je n'ai pas le msgbox......
par, contre, quand je le lance directement, j'ai un Msgbox avec l'IdCommercial.......

Ensuite,

1. La source de ton formulaire principal qui doit être à minima basé sur la table T_Commercial,

comme précisé dans le post précédent au tien, la source de mon UF principale est une requête (R_Visite_F) qui contient dans la T_Visite, l'IdCommercial, avec un lien à la T_Commercial:

cela me semble bon par rapport à ta remarque ?
(il me semble que dans l'autre base des consultants, tu avais mis carrémment l'ensemble de la T_Consultant, ici T_Commercial, mais vu qu'on a le lien pivot de l'IdCommercial dans la T_Visite et qu'elle est elle-même reliée avec la T_Commercial, est ce que ca ne devrait pas marcher ???


Enfin,

Que ta table T_Parametres dispose bien d'une entrée prmCommercial et qu'il s'agit bien de l'id, tu peux éventuellement vérifier par un msgbox son contenu avant ouverture du forms

Ca c'est bon, le Msgbox me donne bien l'IdCommercial de celui que j'ai sélectionné au début dans l'UF Accueil... la T_Parametre fonctionne bien...

Voilà, tu me dis si les infos remontées sont suffisante sinon, au pire je fais refaire une base à blanc.. mais je pense que ca doit être gros comme une maison, car j'ai vraiment repris le même shéma que pour les consultants....

à te lire, et merci !

RC

[jimbolion]

rc,

=> quand je clique depuis mon bouton "Visites" sur l'onglet "Administrateur", et que j'arrive sur l'UF de Saisie des Visites, je n'ai pas le msgbox......
par, contre, quand je le lance directement, j'ai un Msgbox avec l'IdCommercial.......

alors là je reste quoi !

comment la msgbox ne s'afficherait pas mais permettrait d'ouvrir le formulaire ?

Code :

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

1
2
3
4
5
6
Private Sub B_Visite_Click()
  If Get_Parametre("prmCommercial") > "" Then
    msgbox Get_Parametre("prmCommercial")
    DoCmd.OpenForm "F_Visite", , , "[IdCommercial]=" & Get_Parametre("prmCommercial")
  End If
End Sub

soit le prmCommercial n'existe pas dans T_parametres et dans ce cas l'affichage de la boite dialogue ne s'opère pas mais le forms ne s'ouvre pas non plus, soit prmCommercial existe et la boîte message s'affiche !

Cldt

jm

[Robert Camion]

JimboLion, Bonjour

alors là je reste quoi !

comment la msgbox ne s'afficherait pas mais permettrait d'ouvrir le formulaire ?

Oui, meaculpa, j'ai du aller top vite hier, et effectivement, la Msgbox s'affiche bien depuis le menu avec le bon prmCommercial.... mais c'est après que le Formulaire affiche blanc (on ne voit ni le père ni le fils ni le stesprit....)

Pour rappel, je suis bien parti des structures F Parent / Fils qu'on avait fait ensemble...
QUand j'ouvre le F tout seul sans l'appeller depuis le Menu, il s'ouvre bien et je remonte bien les infos du fils vers le père... (j'ai pas encore fait les saisies)...

Je te remets les sources qui sont identiques ie "R_Visite_F"






A suivre,

merci !!!

RC

[jimbolion]

Robert Camion ,

Et en plaçant comme source du formulaire principal la table T_commercial, ce serait déjà plus juste car si aucun idcommercial n'est référencé dans le résultat de la requête celle-ci ne retournera rien.

Donc source du formulaire principal : T_Commercial
et source du sous-formulaire principal : R_VisiteF

dans les propriétés du sous formulaire : champ père et champ fils : idCommercial

Je pense que çà devrait mieux fonctionner ainsi.

Cldt

Jimbolion

[Robert Camion]

JimboLion, Bonjour,

Donc source du formulaire principal : T_Commercial
et source du sous-formulaire principal : R_VisiteF

effectivement, mainteant cela marche !

par contre, je veux bien comprendre pourquoi....


,

ce serait déjà plus juste car si aucun idcommercial n'est référencé dans le résultat de la requête celle-ci ne retournera rien.

justement, dans ma requête "R_Visite_F", j'avais bien la table T_Visite" comme source, avec dans cet table "IdCommercial" ???


Enfin, j'ai pas trouvé ou mettre les propriétés dans le "SF_Visite" dont tu me parles:

dans les propriétés du sous formulaire : champ père et champ fils : idCommercial

mais ca ne semble pas tousser pour le moment...

je continue mes pérégrinations en attendant que tu éclaires ma lanterne de compréhension...

merci !!!!

RC

[jimbolion]

Rc,

justement, dans ma requête "R_Visite_F", j'avais bien la table T_Visite" comme source, avec dans cet table "IdCommercial" ???

qui correspondait à celui que tu avais en paramètres ? Mais de toute façon sur un formulaire père et afin de s'assurer d'avoir au moins un enregistrement et un seul il vaut mieux se baser sur une table plutôt qu'une requête (du moins dans ton cas présent).

Enfin, j'ai pas trouvé ou mettre les propriétés dans le "SF_Visite" dont tu me parles:

si on se réfère à la saisie des temps, il s'agit des propriétés du contrôle sous formulaire du formulaire principal



Cldt

jm

[Robert Camion]

JimboLion, bonjour

merci pour le rappel, j'ai compris qu'il faut regarder le SF depuis le Formulaire pour trouver les champs de la trinité
je continue !

RC

[Robert Camion]

JimboLion,

pour ma recherche de nom de magasin basé sur une requête actuellement, est ce qu'il serait pas trop compliqué de modifier le code pour avoir une possibilité de recherche non pas sur le nom en entier comme actuellement, mais sur une partie:
ex pour "CRF Paris":
- si on tape CRF, on se positionne comme actuellement sur le 1er de la liste avec CRF, du coup on peut choisir CRF PARIS
- mais on purrait aussi taper "paris", et on se positionnerait sur le premier qui a "paris" dans son nom, dont CRF PARIS
ma requete actuelle:

Code :

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

SELECT T_Magasin.code, T_Magasin.intitulé AS NomMgasin FROM T_Magasin GROUP BY T_Magasin.code, T_Magasin.intitulé;

j'imagine le truc avec des "like" ?


merci d'avance pour ton aide,

RC

[jimbolion]

Robert Camion ,

nativement je dis , je n'ai d'ailleurs jamais eu à le faire privilégiant des fonctions de recherches dans des champs ! maintenant et avec un peu de temps je pense qu'il est possible d'obtenir quelque chose en se triturant un peu les neurones. Deux champs superposés permettant de faire afficher le résultat dans une zone de liste.

Le jeu n'en vaut peut être pas la chandelle n'ayant pas idée des contrôles à prévoir.

Je te suggère de poser cette question dans un autre fil de discussion, peut être l'un de nos membres a t'il déjà traité cette problématique ?

Jm

[Robert Camion]

JimboLion, Bonjour !

Merci pour ta réponse.

Je comprends et je ferai un post spécifique à l'occasion, ce n'est pas urgent, et je reste à mon humble niveau car la recherche atuelle dans la liste est déjà bien.
Par contre, j'ai avancé sur mon UF de saisie des visites.
J'ai eu un souci sur l'inscription des données et j'ai enfin pu utiliser le "Debug.Print R_SqlL" comme un grand pour m'en sortir.

Par contre, pour la partie modification, là je coince, y'a une erreur dans mon code, qui doit être grosse comme une maison mais que je ne voie pas, myopie du débutant...

voilà:
donc, quand je remonte une visite de mon SF_Visite dans F_Visite, ca marche:


mais quand je valide la modification, j'ai l'erreur suivante



Je suis bien dans la partie modification de mon code, je le vérifie avec ma Msgbox, et à priori, je remonte bien les infos dans les champes:


Pour rappel, ma table T_Visite:



j'ai essayé de positionner le "Debug.Print R_SqlL" mais ca me donne rien ...

que peux tu m'en dire mon cher JimboLion ?

merci d'avance

RC

[Robert Camion]

JimboLion, Re

J'ai finalement trouvé l'erreur dans mon code pour l'insertion....

c'était un "&" en trop à l'avant dernière ligne :


voilà, maintenant ca fonctionne bien en insertion, modification et suppression...

désolé si je t'ai pris un peu te de temps là dessus

je continue et à plus tard

RC

[jimbolion]

Rc

Super tu fais les questions et les réponses !

Bon courage pour la suite alors...

jm

[Robert Camion]

JimboLion

Super tu fais les questions et les réponses !

A défaut d'avoir des pointes, j'aurais des messages....

a+

RC

[Robert Camion]

JimboLion, Bonjour

je continue et j'avance bien, je suis content ca fait une belle jambe au Forum ;=

Dans ma combo de sélection des magasins pour les visites des commerciaux, je souhaite filtrer la liste sur les magasins attribués au commercial.

Petite subtilité, le magasin est attaché à un SECTEUR, auquel est attaché un ou plusieurs commercial.

Pour rappel, on a un paramètre de choix du commercial qui mémorise son idCommercial en entrée de formulaire....

voilà ce que je voulais tenter sur la requête "R_ListeMagasins" de la liste déroulante de la combo et qui ne marche pas:



peux tu m'aiguiller sur la bonne voie ?

merci

RC

[jimbolion]

Robert Camion,

Un aiguillage ou une solution ?

Allez pour l'aiguillage : un id ne peut être égal à une valeur texte qui plus est s'appelant prmcommercial

if va falloir que tu utilises dlookup (ou rechdom) te permettant te retrouver la valeur de l'id du champ prmcommercial dans la table T_parametres disons qu'un truc du genre (à peaufiner) :

RechDom("Valeur";"T_Parametres";"Description = 'prmCommercial'")

Ci-joint un exemple qui devrait te parler :



@bientôt

jm

[Robert Camion]

JimboLion

Allez pour l'aiguillage

disons que tu m'as bien donné la solution en fait, vraiment magnanime de ta part !


c'est parfait, ca fonctionne nickel,

je continue,

RC

[Robert Camion]

JimboLion,

me revoilà, il n'a pas fallut longtemps...

Je crois que j'ai mis la pagaille en renommant mes noms de champs.(par souci de cohérence)
J'arrive pourtant à quelque chose qui me semble cohérent, mais pas pour Access....

Alors voilà, dans mon Formulaire de Saisie des Prospection "F_Prospection", je peux bien saisir, pas de souci.
Par contre, quand je fais remonter un ligne du fils vers le père, il aime pas sur un champs (dont j'avais modifié le petit nom):



que peux tu m'en dire dans ce marre de café ?

merci !!!!

RC