Discussion :

[croke]

bonjour,
j'ai le bouton d'un formulaire qui execute une requete action en vba,
mais je voudrai que cette requete action s'execute que si les données dans le formulaire sont remplies....
et la je n'arrive pas a trouver la fonction qui permet ça....

étant donné que je suis novice en vba access je dois employer les mauvais mots quant je fais mes recherches....

donc je veus bien un petit coup de mains... merci

[supersnail]

Tu vérifies que tes champs ne sont pas null

Code :

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

1
2
3
4
5
6
 
If mon_champ1="" And mon_champ2="" And mon_champ_n=""
     'ne pas traiter
Else
     'traitement à effectuer
End If

[croke]

Merci de ta réponse,
j'ai donc essayer.... mais ça ne marche pas... et quand le tape le code j'ai une boite de dialogue qui me dis

erreur de compilation
attendu: then ou go to

voila ce que j'ai fais...

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
 
Private Sub DAOajoutMAJ_prod_livraison_click()
 
If ref_fournisseur="0"  And ref_prod_nomm="0"  And Date_livraison="0"
     'ne pas traiter
Else
     'traitement à effectuer
    DoCmd.Close
 
    Dim db As DAO.Database
    Set db = DBEngine.OpenDatabase(".\gros_proget2.mdb")
    ' Exécution de la requête
    db.Execute "UPDATE (tab_livraison INNER JOIN req_dernier_livraison ON tab_livraison.ref_livraison=req_dernier_livraison.ref_livraison) INNER JOIN tab_prod_nomm ON tab_livraison.ref_prod_nomm=tab_prod_nomm.ref_prod_nomm SET tab_prod_nomm.stock = tab_prod_nomm.stock+tab_livraison.stock;"
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
 
    DoCmd.OpenForm "formu_livraison"
End If
 
End Sub

je dois peut etre mal placé le code???

[supersnail]

désolé,c'est de la mienne...
voilà le bon code:

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
 
If ref_fournisseur="0"  And ref_prod_nomm="0"  And Date_livraison="0" Then
     'ne pas traiter
Else
     'traitement à effectuer
    DoCmd.Close
 
    Dim db As DAO.Database
    Set db = DBEngine.OpenDatabase(".\gros_proget2.mdb")
    ' Exécution de la requête
    db.Execute "UPDATE (tab_livraison INNER JOIN req_dernier_livraison ON tab_livraison.ref_livraison=req_dernier_livraison.ref_livraison) INNER JOIN tab_prod_nomm ON tab_livraison.ref_prod_nomm=tab_prod_nomm.ref_prod_nomm SET tab_prod_nomm.stock = tab_prod_nomm.stock+tab_livraison.stock;"
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
 
    DoCmd.OpenForm "formu_livraison" 
End If

[croke]

merci,

j'ai donc modifié mais j'ai toujours un probleme perciste...
en fait quand je met q'un seul champs ça marche, mais avec les AND le if ne marche pas....
j'ai meme enlever les 0 et en laissant les guillemets juste vide "" mais la requete s'execute quand meme...

que dois je faire???

[supersnail]

essaie d'enlever les guillemets..

[croke]

donc, j'ai enlever les guillemets et rajouter les 0 donc....
autre soucis, ça marche mais pas pour toute les conditions......
en fait lorsque l'une des conditions et rempli, mon code d'execute, meme si les autres champs sont nul...
faut il rajouter une variable???

[supersnail]

Remplace And par Or

[croke]

merci
j'ai donc essayer et ça marche pour la pluspart de mes champs,
mais le soucis c'est avec le champs date....
dans ma table c'est un champs en format date JJ/MM/AAAA, interdit si null avec une masque de saisie...

donc les controles se font sur les champs et quand j'enleve le champs date du controle, mon code ne s'excute pas complétement.
il me fait la requete, mais n'entre pas les données dans la table correspondante (docmd.close)

faut il un critère different pour le champs date????