Comment modifier un champ dans une table liée ?

**HookerSeven** · 03/02/2006, 21h09

Bonsoir à tous,

Je sais que le sujet est traité par la FAQ; mais je ne saisi pas comment réaliser ce qui est dit :

Dans ce Workspace, ouvrez la database en fonction de la propriété connect de la table (ou de la propriété qui donne la base d'origine)

Mon code, qui est le suivant, sert à modifier l'intitulé d'un champ spécifique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AddDefault()
 
Dim fldPV As DAO.Field
Dim DateReg As Long
Dim fldtext As Long
 
DateReg = Me!SelecEx.Value
fldtext = DateReg + 4
 
Set fldPV = CurrentDb.TableDefs!TRegul.CreateField("PV" & fldtext, dbBoolean)
CurrentDb.TableDefs("TRegul").Fields.Append fldPV
 
End Sub

Celui-ci fonctionne pour une table d'une base non fractionnée mais pour une table d'une autre base ...

Merci par avance de votre aide

**keita** · 03/02/2006, 21h28

salut
essai ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AddDefault() 
Dim dbs as DataBase
Dim fldPV As DAO.Field 
Dim DateReg As Long 
Dim fldtext As Long 
Set dbs = NomCompletDeLaBD_Principale  'Chemin et nomBD
DateReg = Me!SelecEx.Value 
fldtext = DateReg + 4 
 
Set fldPV = dbs.TableDefs!TRegul.CreateField("PV" & fldtext, dbBoolean) 
dbs.TableDefs("TRegul").Fields.Append fldPV 
 
End Sub

j'espere que ça marchera
@+

**HookerSeven** · 04/02/2006, 11h50

Bonjour,

Salut keita !
Merci de ta réponse.

Je n'arrive pas a définir le chemin de la base où se trouve mes données !

Peux-tu me dire comment préciser cela :

Set dbs = NomCompletDeLaBD_Principale 'Chemin et nomBD

Mon chemin est logiquement "Z:\BasAI_princip.mdb";
mais j'ai tout essayé, même en enlevant les guillemets et là erreur de compilation à chaque fois !

Merci de ton aide.

**HookerSeven** · 04/02/2006, 11h55

Sinon, j'ai essayé cela :

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
Private Sub AddDefault()
On Error GoTo Handle
 
Dim dbs As Database, retPV
Dim tblPV As DAO.TableDef
Dim TableNameRes As String
Dim fldPV As DAO.Field
Dim DateReg As Long
Dim fldtext As Long
 
DateReg = Me!SelecEx.Value
fldtext = DateReg + 4
 
TableNameRes = "TRegul"
Set dbs = CurrentDb
retPV = dbs.TableDefs(TableNameRes).Connect
Set tblPV = retPV
Set fldPV = tblPV.CreateField("PV" & fldtext, dbBoolean)
tblPV.Fields.Append fldPV
 
Exit_Handle:
Exit Sub
Handle:
    MsgBox err.Number & " : " & err.Description, vbCritical, "AddDefault :"
    Resume Exit_Handle
End Sub

Mais il m'envoie un message d'erreur :

434 : Objet requis !

Quel objet ??? Je pense que mes variables sont mal déclarées; mais quoi ??...

:

**Petogaz** · 04/02/2006, 16h36

salut,

je pense qu'il s'agit des deux premières variables elles sont en effet mal déclarées.

au lieu de :

Code :

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

Dim dbs As Database, retPV

il faut mettre :

Code :

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

Dim dbs As DAO.Database, retPV as DAO.Database

**HookerSeven** · 05/02/2006, 10h20

Bonjour à tous,

J'ai bien essayé ce que tu dis Petogaz; mais le message d'erreur :

424 : Objet requis !

apparaît toujours.

Je ne pense pas que cela vienne de ça donc; mais là je coince vraiment ...

Si quelqu'un connaît la solution, merci d'avance .....

@+

**Petogaz** · 05/02/2006, 10h29

salut,

dans ce cas je pari que tu n'as pas ajouter une référence DAO à ton projet : Microsoft DAO 3.x object Library.
voilà !

ps : mais j'insiste pour la déclaration des variables qu'elle a été mal faite donc garde la correction que j'ai posté précédemment.

**HookerSeven** · 05/02/2006, 10h56

Salut,

Non je t'assure que ma référence DAO est bien déclarée qui est d'ailleurs :

Microsoft DAO 3.6 Object Library

Sinon il y une erreur de compilation lorsque je déclare les variables comme tu me l'as dit au niveau de la ligne :

Code :

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

retPV = dbs.TableDefs(TableNameRes).Connect

Utilisation incorrecte de cet objet (retPV) !

Sinon avec mes variables aucune erreur de compil ! Mais toujours un message d'erreur lors de l'exécution ...

Alors je veux bien que tu es raison mais access n'en veut pas apparement !

Si tu as une idée, Merci
@+

**Petogaz** · 05/02/2006, 21h06

Envoyé par HookerSeven

Sinon avec mes variables aucune erreur de compil ! Mais toujours un message d'erreur lors de l'exécution ...

ce que je pense c'est que ton code au départ comporte deux erreur :

1) celle de la déclaration d'un recordset de type DAO.
2) celle de l'affectation d'un objet à une variable.

de quel type est retPV ? si ta variable est de type DAO.database alors ceci ne risque pas de marcher :

Code :

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

Set tblPV = retPV

puisque les deux variables sont sensé être de même type pour faire l'affectation.

de plus que veux-tu faire réellement avec ton code ?

as-tu compris ton code ?

il me semble qui a des tutos sur le forum à propos de DAO. je te conseille de faire un tour et de voir comment on déclare des variables.(tuto de Tofalu sur DAO et tuto de Maxence sur la déclaration de variables de même type sur une ligne )

**keita** · 05/02/2006, 22h20

salut
en tenant compte du chemin que tu donnes et des observations faites par Petogaz, ton code devrait ressembler à quelque chose comme ceci:

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
Private Sub AddDefault() 
On Error GoTo Handle 
 
Dim dbs As DAO.Database   
Dim tblPV As DAO.TableDef 
Dim fldPV As DAO.Field 
Dim fldtext As Long 
 
fldtext = Me!SelecEx.Value + 4 
Set dbs = OpenDatabase("Z:\BasAI_princip.mdb")
Set tblPV = dbs.TableDefs("TRegul")
Set fldPV = tblPV.CreateField("PV" & fldtext, dbBoolean) 
tblPV.Fields.Append fldPV 
 
Exit_Handle: 
Exit Sub 
Handle: 
    MsgBox err.Number & " : " & err.Description, vbCritical, "AddDefault :" 
    Resume Exit_Handle 
End Sub