Discussion :

[souska]

Salut tous,
j'espère que vous allé bien

J'ai un formulaire qui contient des onglets, et dans chaque onglet on a un sous formulaire: http://rohban.free.fr/ver.JPG
En cliquan sur le bouton entouré en rouge, on passe a la formualire de calcule suivante :
http://rohban.free.fr/calc.JPG

dans ce formulaire de calcul, je remporte les information necessaire pour le produit choisi pour les calcul,

il me faut faire un etat qui va contenir tout les information dans le formulaire de calcul pour tout les calcul effectué des produit qui contient dans les differente onglets.
Sachant que les calcul sortant du formulaire de calcul ne sont pas enregistrer dans un table, un fois je ferme ce formulaire, ces donnée sont disparu.

Je pense que il faut que j'utilise des table temporaire où j'enregistre les donnée calculé pour chaque produit dans chaque onglet, et puis je crée l'état et finalement je fait le DROP du table.

Mais je sais pas comment faire

Merci pour votre aide

[souska]

salut tous,

est ce que quelqu'un connait un lien pour que je voi comment fonctionne les table temporaire sous access ??
Je les trouve pas sur le forum

Merci

[mcdotta]

Salut,

Ben,

Deux solutions : soit ta table temporaire a toujours les mêmes champ dans ce cas tu :

- la vides avec un DELETE *
- l'alimente en ouvrant un recordset correspondant et en faisant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim recSet as New ADODB.RecordSet
 
recSet.Open "tbl_Tmp_Tempo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
With recSet
    .AddNew
        recSet![Champ1].Value = tavaleur
        recSet![Champ2].Value = tavaleur
        ....
     .Update
End With
recSet.Close

Soit tes champs changent en fonction du type de calcul et il faut que tu construises ta table à la volée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim tblDef As New DAO.TableDef
Dim fldField As DAO.Field
Set tblDef = CurrentDb.CreateTableDef("tbl_Tmp")
   With tblDef
      .Fields.Append .CreateField("fldT_TP_PDID", dbDate)
      .Fields.Append .CreateField("fldT_TP_PVID", dbLong)
      .Fields.Append .CreateField("fldT_TP_SJID", dbLong)
      .Fields.Append .CreateField("fldT_TPHidden", dbByte)
   End With
CurrentDb.TableDefs.Append tblDef
Set tblDef = Nothing

Et ensuite tu alimentes ta table via via le premier bout de code....

[souska]

merci, je veut esseye de voir,

car j'ai pas tout compris
c'est la première fois je travail sur les table temporaire.

[souska]

salut

j'ai fait ce que tu ma dit, mais :
a la compilation il me donne un message d'erreur : "Erreur de compilation, Type défini par l'utilisateur non définit"
et il me selectionne ca : " recSet As New ADODB.Recordset"

Je sais pas comment le resoudre
J'ai coché la case de Microsoft ADO dans Outils ---> Reference, mais ca marche toujours pas

Quelqu'u peut m'aider ??
merci

[mcdotta]

Tu veux dire que tu as coché la librairy

Microsoft ActiveX Data Object x.x library ?

Si oui, envoie ton code

[souska]

salut
mon code est le suivant

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
Private Sub Commande25_Click()
Dim recSet As New ADODB.Recordset
 
recSet.Open "Tempo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
With recSet
    .AddNew
        recSet![Fournisseur].Value = Fournisseur
        recSet![Type].Value = Type
        recSet![Reference].Value = tavaleur
        recSet![NomPeinture].Value = NomPeinture
        recSet![Surface].Value = Texte1
        recSet![epaiss].Value = Texte3
        recSet![COV].Value = Texte5
        recSet![Qt].Value = Texte10
        recSet![Diluant].Value = DILUANTS.Ref
        recSet![QtDil].Value = Texte45
        recSet![Durcisseur].Value = DURCISSEURS.Ref
        recSet![QtDur].Value = Texte43
        recSet![Amorcage].Value = Texte55
        recSet![ReAmorcage].Value = Texte53
        recSet![Total].Value = Texte51
        recSet![Programme].Value = Programme
        recSet![Standard].Value = Standard
        recSet![Version].Value = Version
        recSet![Compagnie].Value = Compagnie
        recSet![N°Gamme].Value = N°Gamme
        recSet![Zone].Value = Zone
     .Update
End With
recSet.Close
DoCmd.Close
End Sub

ici je temontre ce que j'ai et dit moi a ton avis la quelle je doit coché
http://rohban.free.fr/ado.JPG
Merci

[souska]

j'ai reussi a remplir la table

Mais pour le vider quand je quitte je sais pas comment intégéré le DELETE * From Tempo

bien sur il faut pas juste ecrir DELETE * From Tempo

quelqu'un a une idée ?
merci