"urgent" aidez moi a finir mon fichier

[angoul]

bonjour, je m'adresse a vous en desespoire de cause
car je n'arrive pas a finir mon fichiers, j'ai des beug et je ne sait pas comment les resoudres malgres vous conseils.

Si quelqu'un pouvait me finaliser mon fichiers sa serait sympa.

je met mon fichier et un descriptif des mes beugs en esperant une aide.
Cijoint.fr - Service gratuit de dépôt de fichiers

merci d'avance a la personne qui voudra bien m'aider, car la franchement je suis bloquer et je craque

 

[alex67800]

Re : "urgent" aidez moi a finir mon fichier

Bonour Angoul,

Toujours pas finis ton fichier? lol

Bon pour ton problème à rendre remplace ton code par celui-ci:

Private Sub Textrecu_Change()
If Textrecu.Value = "" Then Lblrendre.Caption = "": Exit Sub
Lblrendre = LblTotal - Textrecu
End Sub

Ton beug est normal, tu demandes de faire une soustraction, donc il faut une valeur dans textrecu!!!
La parcontre si rien dans textrecu on remet lblrendre.caption vide et sort de du sub

pour le reste je n'ai pas regarder.

Autre chose j'aurais plus tôt fait Textrecu-LblTotal pour ne pas avoir des valeurs négatives dans ton caption pour le rendut monnaie, mais négative si le recu n'est pas suffisant ce qui parraît plus logique.

Tu as sûrement de bonne raison

 

[angoul]

Re : "urgent" aidez moi a finir mon fichier

merci pour ta premier solution qui marche super, mais helas il reste encore quelque beug

 

[Gael]

Re : "urgent" aidez moi a finir mon fichier

Bonsoir Angoul, bonsoir Alex67800,

En plus de la correction de Alex, essaye les suivantes:

Pour éviter de créer une ligne à blanc à chaque appui sur "SAUVEGARDE TOTAL" si rien n'a été saisi:

Private Sub BtnSave_Click()
  Dim DerLig As Long
  [COLOR=red]If cTotal = 0 Then Exit Sub[/COLOR]...

Pour corriger le bug du nouvel article après suppression (Ajout iNbart=iNbart - 1) et un message d'erreur si on clicque sur "supprimer" lorsque rien n'est saisi (Déplacer le End if):

Private Sub BnSupprimer_Click()
....
If wIdxTicket >= 0 Then
...
End With
[COLOR=red]iNbrArt = iNbrArt - 1[/COLOR]
[COLOR=#ff0000]End if[/COLOR]
End Sub

Je n'ai pas compris le problème du compteur, ni à quoi va-t-il servir

@+

Gael

 

[angoul]

Re : "urgent" aidez moi a finir mon fichier

merci a vous 2 pour votre aide sa m'aide enormement.
pour le compteur c'est un compteur qui me permet de s'avoir a chaque fois que je remet a zero le ticket pour un nouveau client