Sujet Précédent Sujet Suivant

URGENT fin de stage iminetne Duplication de formulaire

Résolu
malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 - 26 janv. 2005 à 10:28
malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 - 26 janv. 2005 à 14:23
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

Réponse 1 / 1
malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 1
26 janv. 2005 à 14:23
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
Rejoignez-nous