Urgent je besoin de votre aide ce urgent.. mon programme compli
wivinefazili
Messages postés
2
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
salut je fait un petit programme en visuel Basic 6.0 mon problème se pose au niveau ou je veux imprimer le reçu d'inscription pour chaque enfant alors une fois que je j veux imprimer ce le même nom de l'enfant qui appairer sur le reçu je ne sait pas si quelqu'un peut avoir l'idée a ça.. merci
A voir également:
- Urgent je besoin de votre aide ce urgent.. mon programme compli
- Programme demarrage windows - Guide
- Programme word gratuit - Guide
- Message programmé - Guide
- Télécharger le programme de pmu - Télécharger - Médias et Actualité
- Mettre en veille un programme - Guide
2 réponses
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
.
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
