URGENT fin de stage iminetne Duplication de formulaire

Résolu
Signaler
Messages postés
489
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
22 novembre 2007
-
Messages postés
489
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
22 novembre 2007
-
Bonjour a tous

Je dispose d'un formulaire crystal report qui est faire sous VB 6 avec base access
Il faut que ji ajoute un bouton x2 ou duplication c pareil, mais je ni arriv pa, comen faire?!!!

petite difficulté, g un numéro aléatoire dan ma base me permettan d'identifié le formulaire en cour qd j'imprime, et il est donc impossibl a mettr a jour

Merci de me donné votr aide

++

Sub x2(ADO As Adodc)
Dim clone As ADODB.Recordset
Dim i As Integer
Dim a As Integer


Set clone = ADO.Recordset.clone
clone.AbsolutePosition = ADO.Recordset.AbsolutePosition
a = clone.Fields.Count
For i = 1 To (a - 1)
ADO.Recordset.Fields(i) = clone.Fields(i)
Next i
ADO.Recordset.Update
ADO.Recordset.MoveLast
End Sub

Private Sub Dupliquer_Click()
Call x2(Adodc1)
End Sub
Je pensé ca mé ca ne march pa, car ma variabl apelé var (le num aléatoir) bloqu un pe mém si je l'enleve, ca ne fé rien

Merci

1 réponse

Messages postés
489
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
22 novembre 2007

En fait, g trouvé tou seul c bon, je met qd mêm mon code si d'autr gen on le mêm problem

Private Sub Dupliquer_Click()
Dim clone As ADODB.Recordset
Dim i As Integer
Dim a As Integer


Set clone = Adodc1.Recordset.clone
clone.AbsolutePosition = Adodc1.Recordset.AbsolutePosition
a = clone.Fields.Count
Adodc1.Recordset.AddNew
For i = 1 To (a - 1)
Adodc1.Recordset.Fields(i) = clone.Fields(i)
Next i
Adodc1.Recordset.Update
End Sub

voila ++
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci