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é iphone - Guide
- Mettre en veille un programme - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre 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
