Urgent je besoin de votre aide ce urgent.. mon programme compli
Fermé
wivinefazili
Messages postés
2
Date d'inscription
dimanche 26 juillet 2015
Statut
Membre
Dernière intervention
27 juillet 2015
-
26 juil. 2015 à 21:41
Utilisateur anonyme - 27 juil. 2015 à 21:50
Utilisateur anonyme - 27 juil. 2015 à 21:50
A voir également:
- Urgent je besoin de votre aide ce urgent.. mon programme compli
- Programme demarrage windows 10 - Guide
- Désinstaller programme windows 10 - Guide
- Ce programme est écrit en python ✓ - Forum Python
- Programme démarrage windows 10 - Guide
2 réponses
jordane45
Messages postés
38314
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 novembre 2024
4 705
26 juil. 2015 à 21:50
26 juil. 2015 à 21:50
Bonjour,
Sans voir le code que tu as écrit ........ impossible de te répondre !
PS: Pour poster ton code, merci d'utiliser la coloration syntaxique.
Explication ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
.
Sans voir le code que tu as écrit ........ impossible de te répondre !
PS: Pour poster ton code, merci d'utiliser la coloration syntaxique.
Explication ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
.
wivinefazili
Messages postés
2
Date d'inscription
dimanche 26 juillet 2015
Statut
Membre
Dernière intervention
27 juillet 2015
Modifié par jordane45 le 27/07/2015 à 23:45
Modifié par jordane45 le 27/07/2015 à 23:45
Private Sub Command3_Click() Adodc3.Refresh With Adodc3.Recordset .AddNew .Fields("numrecu") = Text13.Text .Fields("montant") = Text14.Text .Fields("datep") = Combo4 & "/" & Combo5 & "/" & Combo6 .Fields("libelle") = Combo10 .Update End With On Error Resume Next Adodc5.Refresh With Adodc5.Recordset .AddNew .Delete .Fields("numrecu") = Text13.Text .Fields("montant") = Text14.Text .Fields("datep") = Combo4 & "/" & Combo5 & "/" & Combo6 .Fields("libelle") = Combo10 .Update Text13.Text = " " Text14.Text = " " Combo4 = "" Combo5 = "" Combo6 = "" Combo10 = " " End With End Sub
VOICI LE CODE UTILISER