Discussion :

[Tintou]

Bonjour,

Je réalise une base de données dans laquelle, dans un premier temps les utilisateurs remplissent des formulaires, les données étant enregistrées dans différentes tables.
Ensuite, je souhaite pouvoir modifier éventuellement ces tables, j'utiliser donc un formulaire (ReportSearch) qui me permet d'identifier l'ID du rapport (ReportID) avec différents critères.
Une fois identifié, j'ouvre un formulaire dans lequel j'insère les données du rapport à l'aide d'un recordset.
Le problème est que si je modifie les données dans le formulaire, ces modifications ne sont pas pris en compte dans les tables. (tables liées)
J'aimerais savoir comment faire pour que les modifications soient prises en compte.

Pour info, voici respectivement, mon code d'ouverture du formulaire me permettant les éventuelles modifications (Reportinfo), et le code qui rempli les données :

Code :

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

1
2
 
DoCmd.OpenForm "ReportInfo", acNormal, , , acFormEdit, acWindowNormal

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim list As String
Set db = CurrentDb
 
    list = "SELECT ReportID, MC_Serial FROM REPORT WHERE ReportID = " & Form_ReportSearch.Report.Column(0) & ";"
    Debug.Print list
    Set listrep = db.OpenRecordset(list, DB_OPEN_SNAPSHOT)
 
 
    ReportID = listrep(0).Value
    MC_Serial = listrep(4).Value

Merci d'avance pour vos réponses.

[Heureux-oli]

CurrentDB, c'est pour la DB en cours, or tu nous dit que ce sont des tables liées.

Tu ne dois plus utiliser CurrentDB, mais la db qui contient tes tables.

Code :

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

1
2
 
Set DB = "le chemin de ma DB"

[Tintou]

Le recordset fonctionne correctement, à l'ouverture du formulaire ReportInfo, les champs sont correctement renseignés.
Le problème arrive quand je commence à modifier les valeurs manuellement dans les différentes Textbox. Car après fermeture du formulaire, je vais voir mes tables, et elles n'ont pas été modifiées.

[Tintou]

J'ai essayé ce code donné par Arkham 46 dans le FAQ :

Code :

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

1
2
 
DoCmd.RunCommand acCmdSaveRecord

Mais sans succès.

[jean-paul lepetit]

CurrentDB, c'est pour la DB en cours, or tu nous dit que ce sont des tables liées.

Tu ne dois plus utiliser CurrentDB, mais la db qui contient tes tables.

Code :

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

1
2
 
Set DB = "le chemin de ma DB"

Excuses moi Heureux-Oli, tu es sur de ce que tu avances ?
Pour moi, les tables liées font partie intégrante de CurrentDb

[Heureux-oli]

Je vais faire le test, j'ai un doute, je sais que pour les objets c'est le cas, mais pour DAO.
Je reviens.

[Heureux-oli]

Sur des tables liées, il faut utiliser le chemin de la DB et pas Currentdb

Code :

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

Set db = OpenDatabase("C:\Local Data\Access\Forum\Testforum.mdb")

[Tintou]

Je ne voudrais pas te contredire mais j'ai des tables liées et pour l'instant je n'ai pas eu de problème avec mes recordsets, les champs sont renseignés correctement.
Par contre c'est pour modifier mes tables que j'ai toujours le problème.
Il me semble que d'après le FAQ le code d'Arkham était fait pour ça non ?

[Heureux-oli]

Je n'affirme rien, je viens de faire quelques tests sur une table liée, et si je ne déclare pas ma db distante, rien ne se passe lorsque j'essaie d'ajouter un enregistrement.

Ça te coûte quoi d'essayer ?

[Heureux-oli]

Tu as raison, si tu passe par un SQL c'est bon au niveau de currentDB.

[Tintou]

Désolé je ne pensais pas que tu me disais cela dans l'optique de résoudre le pb, mais je viens d'essayer et malheuresement, pas de modifications.

[Heureux-oli]

C'est bien fait pour moi, je n'avais qu'à tout lire.

C'est à cause de Snapshot que tu ne peux pas mettre les données à jour.

[Tintou]

Oui mais j'ai bien l'impression que c'est le seul qu'il accepte, Dynaset il n'en veut pas.

[Heureux-oli]

Et si tu ne mets rien !!
Je n'avais rien mis et c'est passé.

[Tintou]

Et non, malheureusement ça ne marche pas, dans le message d'erreur il est question de la propriété identity de ma table. Ce message apparait d'ailleurs à l'ouverture du formulaire, car le code est sur l'évènement OnLoad.

[Heureux-oli]

Code :

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

dbOpenDynaset

Essaie avec ça

[Tintou]

Personne ne voit d'autres solutions, ça doit quand même être faisable, quelle est la technique habituelle pour modifier une table ?

[Tintou]

J'avais déjà essayer mais il refuse même de m'ouvrir le formulaire.
Quelle est la différence entre DB_OPEN_DYNASET et dbopendynaset (pareil pour dynashot)

[Heureux-oli]

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
Sub testdao()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
 
 
sql = "select * from donneepers"
 
Set db = CurrentDb 'OpenDatabase("C:\Local Data\Access\Forum\Testforum.mdb")
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
 
rs.AddNew
rs.Fields(1) = "OLI01"
rs.Fields(2) = "Oli02"
rs.Update
 
 
Debug.Print rs(0)
End Sub

C'est le code que je viens d'utiliser pour faire mes essais.

[Tintou]

Je ne suis pas un expert et j'ai du mal à comprendre l'objectif des lignes :
rs.AddNew
rs.Fields(1) = "OLI01"
rs.Fields(2) = "Oli02"
rs.Update

Si c'est pour modifier les données, moi je voudrais pouvoir le faire manuellement via le formulaire (en tapant direct dans les textBox) et pas avec du code.