[VBA] Ajout colonne dans recordset

**le_niak** · 27/07/2006, 09h46

Bonjour,

Je suis sous access97, et je code en VBA

Je voudrais savoir comment rajouter une colonne dans un recordset.
Sachant que les résultats sont calculés à partir des autres colonnes du recordset.

Merci

**Muhad'hib** · 27/07/2006, 11h11

Salut,

Tu veux ajouter un champ à un recordset, mais ce recordset est-il basé sur une table ou une requete ?

Donnes nous plus de détail SPT (ton code actuel par exemple).

A+

**torNAdE** · 27/07/2006, 11h21

a mon avis tu peux utilliser alter table

**le_niak** · 27/07/2006, 11h59

Voici mon code,
le recordset provient d'une requete dont voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 Private Sub Commande3_Click()
On Error GoTo Err_Commande3_Click
 
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
 
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open("H:\temp2.xls")
 appexcel.Sheets("Feuil1").Select
 
Dim boucle1 As Integer
Dim Rs As DAO.Recordset
Dim DatelockUp As Date
Set Rs = CurrentDb.OpenRecordset("Composition")
boucle1 = 0
While Not Rs.EOF
    appexcel.cells(2, 1) = Rs(10)
    appexcel.cells(6 + boucle1, 1) = Rs(9)
    appexcel.cells(6 + boucle1, 2) = Rs(2)
    appexcel.cells(6 + boucle1, 3) = Rs(3)
    appexcel.cells(6 + boucle1, 4) = Rs(4)
    appexcel.cells(6 + boucle1, 5) = Rs(5)
    appexcel.cells(6 + boucle1, 6) = Rs(6)
    appexcel.cells(6 + boucle1, 7) = Rs(7)
    appexcel.cells(6 + boucle1, 8) = Rs(8)
    boucle1 = boucle1 + 1
 
    Rs.MoveNext
    Wend
    Set Rs = Nothing
 
 
Exit_Commande3_Click:
    Exit Sub
 
Err_Commande3_Click:
    MsgBox Err.Description
    Resume Exit_Commande3_Click
 
End Sub

**Muhad'hib** · 27/07/2006, 12h07

Re,

Je vois pas où est le besoin de créer un champ ...

A+

**le_niak** · 27/07/2006, 15h04

je dois créer une colonne dont les résulats dépendent des autres colonnes
par exemple colonnecréee=rs(0)+rs(1)

**LostIN** · 27/07/2006, 15h35

ouais et ben, il est où le problème ?

**le_niak** · 27/07/2006, 15h39

je sais pas comment créer une nouvelle colonne et la remplir
j'ai essayé avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 With Rs
.Edit
!DatelockUp = Rs(3) + Rs(6)
.Update
End With

mais j'ai l'erreur suivante :
impossible de mettre à jour. La base de données est en lecture seule ou l'object est en lecture seule.

**LostIN** · 27/07/2006, 15h44

créer une colonne dans quoi ?*

**le_niak** · 27/07/2006, 15h46

dans le recordset si c'est possible

**LostIN** · 27/07/2006, 15h48

tu mélanges tout

tu ne peux pas créer une colonne supplémentaire dans ton recordset

ton recordset se base (apparemment) sur une table.
Dans ce cas, ajoute une colonne à ta table, et ensuite dans l'usage du recordsettu auras cette colonne.

mais bon, je comprends toujours pas ce que tu cherches

**le_niak** · 27/07/2006, 15h57

Je vais essayer d'etre clair mais c'est pas facile d'expliquer.

Je dois a partir d'une requete contenant plusieurs champs je dois créer une colonne dont le résultat dépend des autres colonnes.

Par exemple : requete composition

Name date redemption notice frequency
aig 12/12/03 60 30 d
ing 01/12/03 30 60 w
aig 01/01/04 60 30 d

donc en sql ca pourrait donner :

select date+redemption+ notice as datefinale
from composition

le soucis c'est que normalement les résultats dépendent de plusieurs conditions :
et donc je voudrais créer une nouvelle colonne au recordset dont les résulats peuvent dependrent de conditions

if(frequency=d)
rs(datefinale)=....

et ainsi de suite

**Muhad'hib** · 27/07/2006, 16h30

Re,

Et pourquoi ne pas juste ajouter une formule dans une colonne d'excel ?

A+

**le_niak** · 27/07/2006, 16h50

Merci mais malheuresement
Je dois tout coder sous access
sinon je vais essayer sans passer par un recordset mais en créant une requete en VBA et rajouter une colonne contenant les résultats des calculs

**Muhad'hib** · 27/07/2006, 17h02

Mais tu peux bien, depuis Access, entrer une formule (avec tes test et ton calcul) dans la première cellule et , toujours depuis Access, faire un "copier vers le bas" ?

A+

**le_niak** · 27/07/2006, 17h13

oui mais pas avec des if, des modulos et des lastmonth (formules venant d'excel)

**Muhad'hib** · 28/07/2006, 11h28

Salutations,

Ben si tu peux depuis Access donner des formules qui conteinnent des fonction d'Excel à tes cellules :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

Sub DvpPtCom()
On Error GoTo Err_Commande3_Click

Dim Appexcel As Object
Dim Wbexcel As Object

Set Appexcel = CreateObject("Excel.Application")
Appexcel.Visible = True
Set Wbexcel = Appexcel.Workbooks.Open("c:\test.xls")
 Appexcel.Sheets("Feuil1").Select

Dim boucle1 As Integer
Dim Rs As DAO.Recordset
Dim DatelockUp As Date
Set Rs = CurrentDb.OpenRecordset("Composition")
boucle1 = 0
While Not Rs.EOF
    Appexcel.cells(6 + boucle1, 1) = Rs(0)
    Appexcel.cells(6 + boucle1, 2) = Rs(1)
    Appexcel.cells(6 + boucle1, 3) = Rs(2)
    Appexcel.cells(6 + boucle1, 4) = Rs(3)
    Appexcel.cells(6 + boucle1, 5) = Rs(4)
    boucle1 = boucle1 + 1
    
    Rs.MoveNext
Wend
Appexcel.Columns("B:B").NumberFormat = "dd/mm/yy;@"

Appexcel.Range("F6").FormulaR1C1 = "=IF(RC[-1]=""D"",RC[-4],NOW())"
Appexcel.Range("G6").FormulaR1C1 = "=MOD(RC[-4],20)"

Appexcel.Columns("F:F").NumberFormat = "dd/mm/yy;@"
Appexcel.Range("F6:G8").FillDown

Exit_Commande3_Click:
    Set Appexcel = Nothing
    Set Wbexcel = Nothing
    Set Rs = Nothing
    Exit Sub

Err_Commande3_Click:
    MsgBox Err.Description
    Resume Exit_Commande3_Click
    
End Sub

Avec une table composition qui conteint :
Name date redemption notice frequency
aig 12/12/03 60 30 d
ing 01/12/03 30 60 w
aig 01/01/04 60 30 d

A+

**le_niak** · 28/07/2006, 15h14

Vais essayer ton code

merci, je vous tiens au courant

**le_niak** · 28/07/2006, 16h07

Ton code fonctionne, encore merci.

Le hic c'est que je dois aussi utiliser une fonction qui s'appelle fin.mois et vba ne comprend pas cette fonction.

Il faut activer l'utilitaire d'analyse dans macros complémentaires pour avoir accès à cette focntion.

Merci

**Muhad'hib** · 28/07/2006, 16h20

mais que VBA connaisse ou pas la fonction n'est pas un problème puisse que c'est une chaine que tu affecte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Appexcel.Range("G6").FormulaR1C1 = "=FIN.MOIS(RC[-3])"

[VBA] Ajout colonne dans recordset

Access

Discussions similaires

Partager

Partager