Discussion :

[drissa]

Bonjour,
voici mon probleme sur access.
j'ai crée un formulaire principal qui porte le nom de DOTATION( avec les champs ......, Montant), est un sous formulaire sur le principal (DETAIL DOTATION). dans le sous formulaire j'ai un champ totalengagment qui calcul la somme du champ Montant_alloué (si fonctionne tres bien).
Sur le formulaire principal j'ai un crée aussi un champ qui sappel reste, qui faire l'operation suivante ([Montant](formulaire principal)-[totalengagment](champ du sous formulaire)) qui me renvoi le reste du montant qui fonctionne corectement.
Mon souhait que le resultat du champs reste doit etre >=0. comment faire s controle merci de votre comprehension

[LE VIEUX]

bonjour et bienvenu sur le forum,
une petite précision, je suppose donc que cet écart peut être négatif et que dans ce cas-là tu veux que ton champ affiche 0 - est-ce bien celà ?

[drissa]

je voudré que le champ me renvoie une reponse par exemple (impossible d'effectuer l'enregistrement vérifier votre dernier enregistrement)

[LE VIEUX]

bonsoir,
c'est un autre problème, en fait tu veux envoyer un message ?
utilises dans ce cas la fonction MsgBox :
exemple sur l'évènement après mise a jour du dernier champ saisi, où sur l'évènement clic d'un bouton où autre :
mettre le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub dernierChamp_AfterUpdate()
If Me.reste< 0 Then
x = MsgBox("impossible d'effectuer l'enregistrement vérifier votre dernier enregistrement", vbOKCancel, "ATTENTION")
DoCmd.GoToControl ("champARectifier")
 
End If
 
End Sub

[drissa]

Merci pour la réponse,
j'ai essayé le code mais sa ne fonctionne pas

[LE VIEUX]

bonjour,
poste ton code, mieux si possible ta base zipper expurgée s'il le faut,
et quel est le message ? ou qu'est-ce qui ne marche pas ?

[drissa]

je vous envoi la base access avec les données regarde sur le bouton Fiche de credits et engegements

merci de votre aide
NB: credit_restant(fiche credits) et le champ Montant_restant(engagement) la valeur doit etre >=0 si non je renvoie le msg d'erreur

[LE VIEUX]

Salut,
Excuse pour le retard, je me suis un peu éloigné du forum
ci-joint retour de ta base, ne pouvant pas trop modifié compte tenu que je ne sais pas comment tu la gères
j’ai modifié et basé ton form sur une nouvelle requête paramétrée »R_dotationanneeencours2, et mis l’évènement sur sortie sur ton champ Montant_alloué.
Sur la sortie de ton champ si le total dépasse le budget tu as le message et retour sur le champ pour le modifier.

[drissa]

Merci pour la réponse j'ai testé me il ya pas de message d"erreur et la valeur devien négative sur Credits_restant

[LE VIEUX]

bonsoir,
bizarre, chez moi cela marche très bien, plusieurs tests, il faut préciser peut-être la saisie - en ce qui me concerne,
clic sur fiche saisie - saisie d'un montant dans la zone Montant_alloué, si le total dépasse le crédit alloué il y a bien le message "Impossible d'effectuer l'enregistrement verifier votre dernier enregistrement" - sur OK la main est rendue au champ Montant_alloué surligné qui attend la nouvelle saisie.
? question peut-être bête, je n'ai pas changé le Nom de la base Sauf .zip, as-tu pris la bonne ? - voir le code sur l'évènement sur sortie du champ Montant_alloué - tu dois avoir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Montant_alloué_Exit(Cancel As Integer)
 
MontantSaisie = DSum("Montant_alloué", "R_dotationanneeencours2")
If MontantSaisie > Forms!R_dotationservicesanneeencours!Credits_alloues Then
x = MsgBox("impossible d'effectuer l'enregistrement vérifier votre dernier enregistrement", vbOKCancel, "ATTENTION")
Me.Montant_alloué.Requery
 
Cancel = True
DoCmd.GoToControl ("Montant_alloué")
End If
End Sub

[drissa]

pourtant j'ai travaillé sur votre base j'ai vu le code il affiche toujours un résultat négatif.
NB: peut-être que j'ai pas précisé que je travaille avec vista et office 2003

[drissa]

Merci mon grand le code existé plusieurs fois sur le debogeur c pourquoi sa pas marché. j'ai enlevé les autres é sa marche présentement merci de votre aide que Dieu vous bénis.

j'ai aussi un autre probleme c sur les listes deroulantes si vous pouvé m'aider je posteré le sujet merci pour tout

[LE VIEUX]

salut,
ok bien reçu satisfait que ça marche, pour tes listes déroulantes on attend ton post, par contre pour celui-là penses à mettre le tag "RESOLU".
à +

[peulsow]

salut,
ok bien reçu satisfait que ça marche, pour tes listes déroulantes on attend ton post, par contre pour celui-là penses à mettre le tag "RESOLU".
à +

merci le vieux de votre aide pour la base à retrouver
bonne reception

[LE VIEUX]

bonjour,
je pense et j'espère que c'est celle-là :
merci de la récupérer au plus tôt et m'informer que c'est OK pour que je puisse libérer mes pieces jointes pour aider d'autres collègues.

[peulsow]

bonjour,
je pense et j'espère que c'est celle-là :
merci de la récupérer au plus tôt et m'informer que c'est OK pour que je puisse libérer mes pieces jointes pour aider d'autres collègues.

merci le vieuc c la bonne base j'apprecie votre soutient