Sujet Précédent Sujet Suivant

Opérations sur champs Requete ACCESS

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention -
tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention - 27 août 2008 à 09:32

Bonjour,

Je bosse sur Access 2007 et j'ai quelques soucis concernant les opérations entre champs d'une
meme requete:

j'aimerais faire la multiplication de 2 champs et mettre le résultat dans 1 3eme champ:

j'ai crée dans ma requete ce 3eme champ (appelé "Cout théorique") et j'ai mis :

Cout théorique:[CompteDeTotal]*[Cout national par GAR] pour avoir le cout en garantie qu"'une
concession aurait du avoir selon son volume de garanties passées. (le premier champs représente le nb de garantie passées par la concessionle tandis que le deuxième représente le prix moyen d'une prise sous garantie)

mais quand je rentre ca, il apparait 2 boites de dialogue successivement:

Entrer une valeur de parmètre:
[CompteDeTotal]
Puis aprés la meme chose avec:
[Cout national par GAR]

je valide les 2 fois sans rien mettre et il m'aparait dans ce nveau champs que des ## mais en cliquant dessus il y a derrière les bons résultats!!

je ne comprends pas ce qui se passe, pourriez vous m'aider svp ?!!!! je suis perdu!!

MERCI par avance..............

Afficher la suite

A voir également:

Opérations sur champs Requete ACCESS
Acer quick access ✓ - Forum PC portable
Access runtime ✓ - Forum Access
Exemple base de données access à télécharger gratuit - Forum Access
Access appdata - Guide
Acer Quick Access - affichage CapsLock, VerrNum - Forum logiciel systeme

97 réponses

Réponse 81 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

ok a tte, bon ap' !!

Réponse 82 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

t tjs la gaetan ?!

cameleon33 Messages postés 635 Statut Membre 50

Ouaip, j'arrive sur meebo

Réponse 83 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

ok kool

Réponse 84 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

Sub Transforme_TABLE_de_Base_extraite_SAP_OUTILS_GARANTIE()
Dim i As Integer
Dim DerniereColonne As Integer
DerniereColonne = Range("BZ2").End(xlToLeft).Column
For i = 1 To DerniereColonne
Cells(2, i).Select
If ActiveCell.Value = "" Then
Columns(i).Select
DerniereColonneEnCours = Range("BZ2").End(xlToLeft).Column
If i >= DerniereColonneEnCours Then Exit Sub
Selection.Delete Shift:=xlToLeft
i = i - 1
End If
Next i
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("F:G").Select
Selection.Delete Shift:=xlToLeft
Columns("O:Q").Select
Selection.Delete Shift:=xlToLeft
Columns("S:W").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("B:B").Select
Selection.Replace What:="C", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("B2").Select
ActiveCell.FormulaR1C1 = "Conession"
Range("B2").Select
ActiveCell.FormulaR1C1 = "Concession"
Columns("B:B").Select
Selection.NumberFormat = "@"
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
Columns("P:R").Select
Selection.NumberFormat = "#,##0.00"
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

cameleon33 Messages postés 635 Statut Membre 50

Sub Transforme_TABLE_de_Base_extraite_SAP_OUTILS_GARANTIE()
Dim i As Integer
Dim DerniereColonne As Integer
DerniereColonne = Range("BZ2").End(xlToLeft).Column
For i = 1 To DerniereColonne
Cells(2, i).Select
If ActiveCell.Value = "" Then
Columns(i).Select
DerniereColonneEnCours = Range("BZ2").End(xlToLeft).Column
If i >= DerniereColonneEnCours Then
Goto Suite:
End If
Selection.Delete Shift:=xlToLeft
i = i - 1
End If
Next i
Suite :
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("F:G").Select
Selection.Delete Shift:=xlToLeft
Columns("O:Q").Select
Selection.Delete Shift:=xlToLeft
Columns("S:W").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("B:B").Select
Selection.Replace What:="C", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("B2").Select
ActiveCell.FormulaR1C1 = "Conession"
Range("B2").Select
ActiveCell.FormulaR1C1 = "Concession"
Columns("B:B").Select
Selection.NumberFormat = "@"
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
Columns("P:R").Select
Selection.NumberFormat = "#,##0.00"
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 85 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

Salut gaetan !

D'attaque pour que le mot de passe apparaisse en *** en nom en directement visibel ?!

Tiens au courant quand t'es ok !!

cameleon33 Messages postés 635 Statut Membre 50

Ouaip, on voit ça à 14h comme hier?

Au passage, si tu peux m'aider ici ^^

http://www.commentcamarche.net/forum/affich 8001906 vba excel mise en forme graphique

Réponse 86 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

Salut, pas de souci pour tout à l'heure!

Pour ton post je viens d'y jeter un oeil par hasard! mais a vrai dire je ne peux t'être d'une grande aide, car je ne maitrise pas trop les graphs sous Excel (trés peu utilisé!)

Désolé de pas pouvoir t'aider aprés tout ce que t'as fais pour moi ^^

@ tte, bon ap' !

Réponse 87 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

perso je suis prêt ...

Réponse 88 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

Yeah gaetan juste un truc en plus pour ne pas que tu t'embets trop:

j'aimerais qu'au bout de 3 tentaives la bdd se ferme avec un mess d'erreur préventif:

i = i + 1
End If
'Dépassement du nombre d'essais autorisés 3
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés...Réessayez plus tard ! ", vbCritical
DoCmd.Quit
End If

End Sub

avec un truc comme ca on peut faire ou non?!

Réponse 89 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

Yep gaetan hello!

i've got 2 questions for you: easy but i'ven't the solution!

cameleon33 Messages postés 635 Statut Membre 50

Yop!

Jsuis sur meebo si tu veux, ou alors pose les là ^^

Réponse 90 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

ok j'arrive dsl j 'été en train de faire autre chose!

Réponse 91 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

gaetan concernant les macros excel j'ai une question! (pas de prog tkt pas juste un petit truc sur le stockage..)
Je sss sur meebo donc dispo qd tu veux!

Réponse 92 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

des moi je vais etre indispo environ 30min a 1h je te tiens au courant qd je peux!!
a tte ;-)

Réponse 93 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

Salut gaetan comment va?!

J'aurais une chtite question, pas de programmation tkt, serais tu dispo sur meebo aprés manger?!

Merci et a tte!!

Réponse 94 / 97

cameleon33 Messages postés 635 Statut Membre 50

C'est bon j'y suis

Réponse 95 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

gaetan t toujours la?!

Si tu n'y est pas on se voit demain mation sur meebo ok?

merci!

cameleon33 Messages postés 635 Statut Membre 50

Ca marche

Réponse 96 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

hello!

je suis la si t'es ok!

Réponse 97 / 97

tony020422 Messages postés 566 Date d'inscription Statut Membre Dernière intervention 6

je suis OP gaetan c'est qd tu veux!

Discussions similaires

Avast HNS-SELF-WAN-ACCESS-IPV6

Actualistation automatique des champs Word

MAJ automatique de champs répétitifs dans un document Word

Acer quick access

Echec mise à jour champs Word

Opérations sur champs Requete ACCESS

97 réponses

Votre réponse

Discussions similaires

Newsletters