Discussion :

[SDABJ]

bonjour à tous et Meilleurs vœux pour 2017,
je suis coincée avec un module imbriquant plusieurs requêtes ajout, chaque requête contient un critère "où" dont le contenu est [reference=], donc à chaque étape il ouvre une boite et demande "reference=". c'est normal, mais maintenant je voudrai évoluer puisque chacune fonctionne, je pense qu'il faut le demander en premier et ensuite que ça s'exécute à chaque requête. mais je ne sais pas programmer en sql ou vba, j'utilise le système simplifié de Access.
en espérant que quelqu'un aura pitié de moi, en vous remerciant par avance.

[Jean-Philippe André]

Salut,

il n'est pas question de pitie, a la limite de l'indulgence

un peu de lectures :
http://warin.developpez.com/access/requeteparametre/
http://access.developpez.com/faq/?page=SQL#ReqParamVar

[SDABJ]

UN GRAND MERCI, mais j ai déjà fait les requetes une à une avec le même critere, il s'agit de 10 requêtes ajout à une autre table qui demande chacune le même critère, j aimerai le définir en premier dans mon module, et le faire appeller par chaque requete.

[Jean-Philippe André]

Ca je l'ai bien compris, mon second lien repondant exactement a ton besoin

[SDABJ]

merci mais j ai un autre probleme dans une procedure sur maj j aimerai que ce soit un lien hypertexte qui soit generé et qui fonctionne, et pas que du texte. j ai essayé sur 2 champs, format lien hypertexte, ou texte`.et avec hyperlinkpart, mais......

le lien est vers un dossier reseau

Code :

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

1
2
3
Private Sub CODE_AfterUpdate()
Me!SCANF2 = "\\HP-PC\PIECEREF\" & CODE & ".pdf"
End Sub

[Jean-Philippe André]

Salut,
En cherchant 15 secondes sur glouglou
https://msdn.microsoft.com/fr-fr/lib.../ff821157.aspx

[SDABJ]

le probleme c est que c est trop compliqué pour moi,
merci

[SDABJ]

BONJOUR je cherche , j'essaie et.........je ne maitrise pas!! alors je comprend bien le "sens litteral" de

Code :

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

1
2
3
4
5
# Set qdf= CurrentDb.QueryDefs("TAREQUETE")
      With qdf
         .Parameters("TON_PARAM") = TaVariable
         .Execute
      End With

mais je ne sais où mettre ce code, j ai converti mon module en visul basic et ca donne ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#Function PASSAGE_DES_ECRITURES_VALIDEES()
On Error GoTo PASSAGE_DES_ECRITURES_VALIDEES_Err
DoCmd.OpenQuery "MISE A JOUR 585000", acViewNormal, acEdit
    DoCmd.OpenQuery "MISE A JOUR CPT T", acViewNormal, acEdit
    DoCmd.OpenQuery "MISE A JOUR DATE TVA", acViewNormal, acEdit
Beep
    MsgBox "EXPORT FACTURES TERMINÉ", vbCritical, "EXPORT FCH"
PASSAGE_DES_ECRITURES_VALIDEES_Exit:
    Exit Function
PASSAGE_DES_ECRITURES_VALIDEES_Err:
    MsgBox Error$
    Resume PASSAGE_DES_ECRITURES_VALIDEES_Exit
End Function

[SDABJ]

VOILÀ J AI COMPRIS
alors je devais enlever le critere [ref=] dans chacune de mes requêtes et le remplacer par ref,
avant ca je dois créer un parametre ref type text dans "parametres" en haut dans le menu!!!
ensuite je code dans mon module

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
26
Dim code As String
code = "170119"
 
     Set qdf = CurrentDb.QueryDefs("ma_requete")
      With qdf
         .Parameters("ECOMPTA") = code
         .Execute
      End With
    Set qdf = CurrentDb.QueryDefs("ma_requete 2")
      With qdf
         .Parameters("ECOMPTA") = code
         .Execute
      End With
 
    Beep
    MsgBox "EXPORT FACTURES TERMINÉ", vbCritical, "EXPORT FCH"
 
 
PASSAGE_DES_ECRITURES_VALIDEES_Exit:
    Exit Function
 
PASSAGE_DES_ECRITURES_VALIDEES_Err:
    MsgBox Error$
    Resume PASSAGE_DES_ECRITURES_VALIDEES_Exit
 
End Function

merci,

[Jean-Philippe André]

Salut,

tres bien =]

Si tout est OK sur ce point,m pense a cliquer sur

[SDABJ]

BONJOUR DU LUNDI
alors maintenant bien sur j aimerai ouvrir les tables mises à jour sur cet enregistrement et ca marche pas

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 E_COMPTA_DblClick(Cancel As Integer)
Dim code As String
code = Me![REF PIECECPTA]
Set qdf = CurrentDb.QueryDefs("VALID AUTO")
      With qdf
         .Parameters("[REFPIECECPTA]") = code
         .Execute
      End With
Set qdf = CurrentDb.QueryDefs("totaux factures PAR charge MAJ")
      With qdf
         .Parameters("[REFPIECECPTA]") = code
         .Execute
      End With
 
Set qdf = CurrentDb.QueryDefs("totaux factures reglement MAJ")
      With qdf
         .Parameters("[REFPIECECPTA]") = code
         .Execute
      End With
 
DoCmd.OpenTable "factures fournisseurs totaux", acViewNormal, acEdit
ApplyFilter ([REF PIECECPTA] = code)
DoCmd.OpenTable "factures fournisseur par charge", acViewNormal, acEdit
ApplyFilter ([REF PIECECPTA] = code)
      End Sub