Controle des champs rempli d'un formulaire

Version imprimable

11/06/2008, 11h30
croke

Controle des champs rempli d'un formulaire

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

Tu vérifies que tes champs ne sont pas null

Code:

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

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

Citation:

erreur de compilation
attendu: then ou go to

voila ce que j'ai fais...

Code:

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???

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

Code:

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

11/06/2008, 12h55
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???
11/06/2008, 13h10
supersnail

essaie d'enlever les guillemets..
11/06/2008, 14h20
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???
11/06/2008, 14h58
supersnail

Remplace And par Or
11/06/2008, 15h14
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????