code vb pour recuperer une valeur dans access Résolu/Fermé

Question

J'ai un petit probleme dans access. 
Dans un formulaire, j'ai un champ qui prend la valeur du resultat d'une requete affiché dans un sous-formulaire grace au code suivant : [base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix_element] ca marche. Mais lorsque j'ai pas de resultat de requete (ce qui est normal), cela me crée une erreur. Moi je voudrais que le champ se mette a zero. Comment faire ?

freto · Answer

Bonjour
Je contournerais ce problème comme ceci

if IsNull ([Base TVA0 sous-formulaire].Form![SommeDePrix_element]
) then

[base TVA0] = 0

else

[base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix_element]

end if

nathh76 · Answer

Merci Freto.

J'ai essayé, mais j'ai toujours un message d'erreur.
ca marche pas car le champs  [Base TVA0 sous-formulaire].Form![SommeDePrix_element] ne s'affiche pas dans mon sous-formulaire.

Une autre idée peut-etre ?

Quelle galère, je suis pas habituée a faire du code, je passe toujours par les assistants.

freto · Answer

Mais comment sa il ne s'affiche pas???tu ne modifie pas sa visibilité quelque part??
Peut tu donner le message d'erreur qu'il t'affiche exactement?

nathh76 · Answer

en fait je cherche a faire une apli qui permet de faire des factures. Sur une meme factures je peux avoir plusieurs taux de TVA. Donc j'ai fait des sous-formulaires cachés qui calcul le montant de base de TVA pour chaque taux de TVA. cela marche tres bien lorsque j'ai tous les taux de TVA sur ma facture. Mais lorsque j'ai un taux de TVA qui n'est pas utilisé, je n'ai pas de valeur dans mon sous-formulaire, donc rien d'affiché.

Lorsque j'essai ton code j'ai l'erreur suivante :

Erreur d'execution 2113
valeur incorrecte pour ce champ.

freto · Answer

Et ton champ [base TVA0] est un champ texte ou un numérique??
Sinon, essaie de déboger l'appli...place un point d'arret au nivau du if IsNull... puis apuis sur F8 pour voir par ou passe le code lorssqu'il te sort une erreur

nathh76 · Answer

C'est un champ numérique.

J'ai jamais fais de debogage, mais si j'ai bien tout compris, apres avoir mis le point d'arret, il passe au else. Donc il ne considere pas que le champ est null, s'est bien ca.

Désolé je debute.

freto · Answer

Si il passe au else directement c'est que la fonction IsNull renvoie faux....dans ce cas, soit ton champ n'est pas vide, soit le test est faux
Donc essaie pluto ce genre de if 

if [Base TVA0 sous-formulaire].Form![SommeDePrix_element] = "" then 



On débute tous un jour tu n'a pas à être désolée

nathh76 · Answer

lorsque j'essaie ce code j'ai l'erreur suivante :
erreur d'execution 2427
expression sans parametres.

c'est sympa a toi de me consacrer de temps. merci.

freto · Answer

Tu peut essayer de débugger a partir toujours de la ligne du if??
J'aimerais savoir quelle ligne du programme est surlignée après que tu aie appuyé sur la touche F8?

nathh76 · Answer

c'est la ligne du If qui est surligné.

freto · Answer

et si tu appuie encore sur F8??

nathh76 · Answer

A chaque fois j'ai le message d'erreur. il reste bloqué sur la ligne du if.

freto · Answer

Est ce que le message d'erreur survient avant que le code n'apparaisse avec ta ligne d'arrêt? normalement ton code doit apparaitre puis lorsque tu appuie sur F8 une autre ligne devient surlignée...si le message d'erreur apparait alors que tu appuie sur F8, alors essaie ce if

if [Base TVA0 sous-formulaire].SommeDePrix_element.Value = "" then

nathh76 · Answer

j'ai toujours le meme message d'erreur.

freto · Answer

Dans ce cas, juste après le if, essaie cette ligne

Me![base TVA0] = 0
a la place de 

[base TVA0] = 0

nathh76 · Answer

toujours le meme soucis

freto · Answer

Waou..... je vais finir par sécher ...;-)
Il faudrait que tu m'envoie tout le code que tu a autour de ton if(juste le sub), je vais l'essayer

nathh76 · Answer

voila le code.

Private Sub Commande49_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

If [Base TVA0 sous-formulaire].Form!SommeDePrix_element.Value = "" Then
Me![base TVA0] = 0
Else: [base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix_element]
End If

[Montant TVA55] = [base TVA55] * 0.055
[Montant TVA196] = [base TVA196] * 0.196

[Montant HT] = [base TVA0] + [base TVA55] + [base TVA196]
[Montant TVA] = [Montant TVA55] + [Montant TVA196]
[Montant TTC] = [Montant HT] + [Montant TVA]

End Sub

l'autre piste que j'essaie s'est d'obliger le sous-formulaire a mettre un resultat a zero, mais je galere toujours.

C'est la premier fois que je viens sur un forums, c'est vraiment sympa de pouvoir trouver de l'aide. merci.

freto · Answer

Enleve les deux points déjà après le else, et réessaie...mais je pense pas que l'erreur vienne de la, en revanche ce sera une source d'erreurs plus tard

nathh76 · Answer

lorsque j'enleve les deux points, mais vb les remets automatiquement

freto · Answer

Bon alors j'ai testé, et après plusieurs essais, il s'avère que le tests (le bloc if complet) corect est celui-ci


If IsNull([Base TVA0 sous-formulaire].Form![SommeDePrix element]) Then
   Me![base TVA0] = 0
Else
    [base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix element]
End If


Il ne faut pas du tout de : si il te les rajoute c mauvais signe
Redis moi si il te sort une erreur

nathh76 · Answer

J'ai toujours le message d'erreur :
Erreur d'execution 2113 
valeur incorrecte pour ce champ.

Ce qui m'etonne, c'est que lorsque je regarde dans le debogueur, il bug sur la ligne
[base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix element]
alors que vu mon jeux d'essais, il ne devrait pas aller dans le else.

J'y comprend plus rien, je suis perdu.

freto · Answer

lorsque tu est en mode débogage, place ta souris sur une des variables du if pour faire apparaitre une infobulle, elle t'indiquera la valeur de la variable....donne moi stp la valeur des variables du if si c'est possible...
Sinon, je suis perdu au moins autant que toi, je ne vois pas comment comparer une variable avec null avec une autre methode que celles proposées plus haut
Essaie aussi de vérifier la syntaxe des variables entre [] parce que le compilateur ne les corrige pas automatiquement, donc vérifie dans les propriétés des controle leurs noms, et vérifie leurs syntaxe dans le code

nathh76 · Answer

j'ai pas d'info bulle, portant elles sont parametres. 
J'ai verifier mes variables sont bonnes.

freto · Answer

Ben la je suis perdu parce que j'ai essayé le code que je t'ai indiqué, et avec mon prototype sa fonctionne, c'est à dire que si le champ est vide il me met bien 0 dans l'autre, et sinon il affecte bien la valeur
Les seules erreurs que j'ai rencontré venaient du fait que j'avais mal nommé mes controles par rapport au code
Donc désolé de ne pas pouvoir t'aider plus que sa

nathh76 · Answer

Je vais essayer de trouver un moyen de contourner mon probleme.
Merci de m'avoir consacrer du temps.

aide · Answer

Private Sub Commande49_Click() 
On Error GoTo Err_Commande49_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 

If [Base TVA0 sous-formulaire].Form!SommeDePrix_element.Value = "" Then 
Me![base TVA0] = 0 
Else: [base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix_element] 
End If 

[Montant TVA55] = [base TVA55] * 0.055 
[Montant TVA196] = [base TVA196] * 0.196 

[Montant HT] = [base TVA0] + [base TVA55] + [base TVA196] 
[Montant TVA] = [Montant TVA55] + [Montant TVA196] 
[Montant TTC] = [Montant HT] + [Montant TVA] 

Exit_Commande49_Click:
    Exit Sub

Err_Commande49_Click:
    [base TVA0] = 0
    Resume Exit_Commande49_Click

End Sub

Code vb pour recuperer une valeur dans access

27 réponses

Discussions similaires