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
- Télécharger le programme de pmu - Télécharger - Médias et Actualité
- Message programmé - Guide
- Fermer un programme de force - Guide
- Mail programmé gmail - 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
