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
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:

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
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

.

0
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
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
0
Utilisateur anonyme
27 juil. 2015 à 21:50
Bonsoir, Jordane t'as demandé le code avec la coloration syntaxique.
Je corrige ton message.
0