S.o.s sauver Moi svp Fermé

Question

Salut j' veux une methode Professionel Pour Programmer un bouton Qui Sert Par Exemple de Sauvgarder Les Donneés D une table Nommé Client Et Qui Possed Num_client (clé primaire), Nom_client, adr_client etc, Pouvez vous me donner Aussi Methode Professionnel Pour programmer aussi Bouton Modifier et Supprimi Merci

reltak · Answer

Salut
Tu pourrais peut-être commencer par dire dans quel langage tu veux le faire ?

dedian_ · Answer

Dans ce code il ya ce que tu veux donc tu enleve le surplus et c'est OK

If btnenregistrer.Caption = "&CALCULER" Then
    btnenregistrer.Caption = "&ENREGISTRER"
    btnquitter.Caption = "&ANNULER"
	btn3.enabled=false
    If Txtdatev.Text = "" Then
        MsgBox "DONNER LA DATE", vbExclamation
        Txtdatev.SetFocus
        Exit Sub
    ElseIf CmbMoiv.Text = "" Then
        MsgBox "SELECTIONNER D'ABORD LE MOIS", vbExclamation
        CmbMoiv.SetFocus
        Exit Sub
    ElseIf Cmbsemainev.Text = "" Then
        MsgBox "PRECISER LA SEMAINE", vbExclamation
        Cmbsemainev.SetFocus
        Exit Sub
    ElseIf Cmbagentv.Text = "" Then
        MsgBox "PRECISER LE NOM DE L'AGENT", vbExclamation
        Cmbagentv.SetFocus
        Exit Sub
    ElseIf Cmbdesiv.Text = "" Then
        MsgBox "DONNER LA DESIGNATION DU PRODUIT", vbExclamation
        Cmbdesiv.SetFocus
        Exit Sub
    ElseIf IsNumeric(Txtqtev.Text) = False Then
        MsgBox "SAISIE INCORRECTE", vbExclamation
        Txtqtev.SetFocus
        Exit Sub
    Else: 'ON SE CONNECTE A LA BD ET ON RECUEILLE LA QTE EN STOCK DANS UNE VARIABLE (QTESTOCK)
	If val(txtqtev.text) > qtestock then
		msgbox "LA QUANTITE SAISIE EST SUPERIEURE A LA QUANTITE EN STOCK",vbexclamation
		Txtqtev.SetFocus
        	Exit Sub
	else
		qtev=txtqtev.text
	endif
	
	if txtprix.text="" then
		'CONNEXION A LA BD ET AFFECTATION DU PRIX A LA VARIALE PRIXV
		Adoprod.RecordSource = "select PV from produit where DESIGNATION = '" & Cmbdesiv.Text & "' "
            	Adoprod.Refresh
            	Prixv = Adoprod.Recordset!PV
	 	
	ELSE
		PRIXV=val(txtprix.text)
	endif
'--------- CALCUL DU MONTANT --------------
	montantV=qtev*prixv
'--------- AFFECTATION DANS LES LISTOX ---------
        List1.AddItem Txtdatev.Text
        List2.AddItem Cmbagentv.Text
        List3.AddItem Cmbdesiv.Text
        List6.AddItem QTEV
        List7.AddItem Prixv
        List8.AddItem montantV
'---------- AFFECTATION DES MONTANTS TOTAUX ----------
        LabTotalv.Caption = Val(LabTotalv.Caption) + montantV
    ENDIF
ELSEIF BTNenregistrer.caption="&ENREGISTRER" then
'------ CONNEXION A LA BD ET MAJ DE LA QUANTITE EN STOCK ---------- 
    Adoprod.CommandType = adCmdText
    Adoprod.RecordSource = "select * from produit where DESIGNATION = '" & Cmbdesiv.Text & "' "
    Adoprod.Refresh
    Adoprod.Recordset.Edit
    Adoprod.Recordset!qtestock = Adoprod.Recordset!qtestock - QTEV
    Adoprod.Recordset.Update

'------------ ENREGISTREMENT DE LA LIGNE DE FACTURE ------------
    With AdoVENTE.Recordset
            .AddNew
            !datev = Txtdatev.Text
            !quantitev = QTEV
            !nomagent = Cmbagentv.Text
            !designation = Cmbdesiv.Text
            !moisde = CmbMoiv.Text
            !semainedu = Cmbsemainev.Text
            !montant = MONTANTV
            .Update
    End With
'------------ VIDAGE DES CHAMPS ----------------
    Cmbdesiv.Text = ""
    Txtqtev.Text = ""
    Txtprixv.Text = ""

'--------- REMISE A NIVEAU DES BOUTONS ---------------
    btnenregistrerv.Caption = "&CALCULER"
    btnquitterv.Caption = "&QUITTER"
    btnrechercherv.enaled=true
endif
    

 
ERREUR:
'If Err = 3021 Then
'With adovente.Recordset
    '.AddNew
    '!datev = Txtdatev.Text
    '!quantitev = QTEV
    '!nomagent = cmbagentv.Text
    '!designation = cmbdesiv.Text
    '!moisde = cmbmoiv.Text
    '!semainedu = cmbsemainev.Text
    '!montant = montantv
    '.Update
'End With

S.o.s sauver Moi svp

2 réponses

Discussions similaires

Newsletters