Gest Stock (Formulaire )

Question

Bonjour tout le monde ,

J'ai un formulaire sur le quel j'ai un bouton enregistrer et un autre imprimer 

1er probleme : je voudrais éviter d'enregistrer 2 fois les mm information donc ne pas clicker 2 fois sur le boutton sans changer aucune des information saisie
j'ai essayer avec ce script : 

If Range("A" & DernLigne) = TextBox_date.Value  Then 
If Range("B" & DernLigne) = ComboBox_bases.Value Then 
If Range("D" & DernLigne) = TextBox_lot.Value  Then 
If Range("E" & DernLigne) = ComboBox_produit.Value Then 
If Range("F" & DernLigne) = ComboBox_designation.Value Then 
If Range("H" & DernLigne) = ComboBox_format.Value Then 
If Range("J" & DernLigne) = TextBox_quant.Value   Then 

MsgBox ("Mouvement viens d'être enregistrer NE PAS ENREGISTRER 2 FOIS LE MEME MOUVEMENT") 


Dernligne est définie comme la dernière ligne sur la feuille où seront enregistrer les données saisies via le formulaire 
 
Résultats : pas de bug mais ça ne marche : double enregistrement sur double click sur enregistrer 

2em probleme : je voudrais imprimer mon formulaire en s'assurant qu'on a pas oublier de l'enregistrer
j'ai essayer avec ce script :

Private Sub Command_imprimer_Click()
If Command_enregistrer.Enabled = True Then
MsgBox ("Vous n'avez pas enregistrer ce Mouvement")
Else
Command_enregistrer.Visible = False
Command_imprimer.Visible = False
Command_saisir.Visible = False
Command_fermer.Visible = False
UserForm3.PrintForm

End If

End Sub

quand j'imprime ça me donne automatiquement : MsgBox ("Vous n'avez pas enregistrer ce Mouvement") même si je me suis bien assurer que c'est bien enregistrer .


Merci pour votre attention 

j'espère que quelqu'un aurais une idée ?

jc80 · Answer

Bonjour

Continue sur la même discussion il faut éviter les doublons voir ci-dessous
ton premier sujet

https://forums.commentcamarche.net/forum/affich-28330620-gestion-de-stock
Cordialement

pling · Answer

Je sais mais il faut savoir que c'est sur la demande de Mélanie , la personne qui alimenter cette discussion depuis le début et qui m'a été d'un grand aide , que je remercie d'ailleurs 

tu peux revoir le dernier message

foo · Answer

Bonjour

mes ton fichier sur http://www.cjoint.com/

ca serat plus simple pour voir ton probleme

A+

Maurice

pling · Answer

bonjour Maurice 

Voila c mon fichier userform 1 , boutton enregistrer / imprimer 

Bon je pense que tu vas pas trop aimer pck le script n'ai pas aussi simple que j'aimerais mais je fais comme je peux ! chui pas très forte en VBA :s 

http://cjoint.com/?3HikiORY2Tl 

j espère qu'il y'a  une solution pour mon problème

Merci :)

foo · Answer

Bonjour

Voila quelque modif

http://cjoint.com/?3Hiq3NgZbZi 

mes je pense quil faut tous refaire car ses dur a suivre
manque de stucture
regarde se petit test de Stock

http://cjoint.com/?3Hiq7NLfyMc

A+
Maurice

pling · Answer

bonjour Maurice 

j'ai vu ce que tu as modifier , j'aime bien ce que tu as rajouté aussi 

j'ai bien regarder mais je ne comprend pas la dernière partie que tu as rajouter : 




et surtout je ne sais toujours pas comment régler le problème du double click 
------------------------------------------
   For Each Ctrl In Me.Controls
       Select Case Left(Ctrl.Name, 4)
            Case "Comb"
               Ctrl.Value = ""
               Ctrl.Enabled = True
            Case "Chec"
               Ctrl.Value = False
               Ctrl.Enabled = True
            Case "Text"
               Ctrl.Value = ""
       End Select
   Next Ctrl


voila ça serait sympa si tu pouvais m'expliquer un peu 

merci bien

foo · Answer

Bonjour

For Each Ctrl In Me.Controls 
Ctrl.Name, 4  - ses comme Left,4
Ctrl.Value = "" 
ses pour remetre tous les controls a zero

et pour le double click tu veux faire quois
A+

Maurice

Gest Stock (Formulaire )

7 réponses

Discussions similaires

Newsletters