Création d'une table archive

**Raphaëlle** · 27/06/2006, 14h07

quand je mets pas

Code :

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

1
2
3
4
 
Dim db As database
Dim rArchive As Recordset
Dim f As Field

en déclaration, j'ai la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
 
    Dim mess As String
    mess = "Voulez-vous vraiment supprimer l'enregistrement courant?"
    If vbYes = MsgBox(mess, vbYesNo + vbDefaultButton2 + vbQuestion) Then
        Call ArchiverRecord
        Else
        Cancel = CInt(True)
    End If
 
End Sub

qui se met en marche ensuite j'ai l'erreur citée

**MCarole** · 27/06/2006, 14h17

Voici ce ke j'ai fais si sa peut t'aider:

Code :

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

1
2
Option Compare Database  
Dim db As Database

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
Public Sub ArchiverRecord(prmForm As Form)
 
   Dim db As Database: Set db = CurrentDb
   Dim rArchive As Recordset: Set rArchive = db.OpenRecordset("PRJ0_ARCHIVE")
   Dim f As Field
   rArchive.AddNew
 
   For Each f In prmForm.Recordset.Fields()
      rArchive.Fields(f.Name) = f
   Next f
 
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
   rArchive.Update
   rArchive.Close: Set rArchive = Nothing
   db.Close: Set db = Nothing
 
End Sub

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
Private Sub Form_Current() ' contunuellement vérifier la condition ci-dessous
 
   Dim mess As String
mess = "Voulez-vous vraiment archiver l'enregistrement courrant ?"
 
    If (Me.lst_Chance = "100" Or Me.lst_Chance = "0") Then
          If vbYes = MsgBox(mess, vbYesNo + vbDefaultButton2 + vbQuestion) Then
                Call ArchiverRecord(Form_PRJ0_BU_INT)
          Else
                Exit Sub
          End If
    Else
        Exit Sub
    End If
End Sub

Voila

**polo(31)** · 27/06/2006, 14h19

et comme ça?

Code :

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

1
2
3
4
 
 Dim rep As MsgBoxResult
    rep = MsgBox("voulez vous machin chose?", vbYesNo, "question")
    If rep = vbYes Then

ça revient puet-étre au mème mais pas sur

**Raphaëlle** · 27/06/2006, 14h27

Envoyé par MCarole

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
Private Sub Form_Current() ' contunuellement vérifier la condition ci-dessous
 
   Dim mess As String
mess = "Voulez-vous vraiment archiver l'enregistrement courrant ?"
 
    If (Me.lst_Chance = "100" Or Me.lst_Chance = "0") Then
          If vbYes = MsgBox(mess, vbYesNo + vbDefaultButton2 + vbQuestion) Then
                Call ArchiverRecord(Form_PRJ0_BU_INT)
          Else
                Exit Sub
          End If
    Else
        Exit Sub
    End If
End Sub

ce qu'il y a dans la parenthèse de

Code :

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

1
2
 
Call ArchiverRecord(Form_PRJO_BU_INT)

ca correspond à quoi exactement?

**MCarole** · 27/06/2006, 14h35

C'est le nom de ton formulaire

**Raphaëlle** · 27/06/2006, 14h51

Ok et ça :

Code :

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

If (Me.lst_Chance = "100" Or Me.lst_Chance = "0") Then

Désolé je suis pas très douée

**MCarole** · 27/06/2006, 15h35

sa c'est un specifacation a mon projet , c'est parceque je dois archiver que quand mon taux de chance est a 0 ou 100%

**marot_r** · 27/06/2006, 15h38

A propos de déclaration, histoire de méler un peu le monde il y a 2 librairies utilisées dans Access (et ailleurs) pour accéder aux objets :

DOA 3.6 et ADO

DAO est la plus ancienne et celle dont j'ai l'habitude elle est aussi celle que j'ai msi par défaut dans mon environnement MAIS en standard c'est ADO.

Il y a 3 solutions :

1) Supprimer la ref (en mode prog, menu outils/ref) et mettre la ref sur DAO.
2) Prefixer les déclarations du code par DAO ex : dim db as DAO.database
3) Réécrire le code pour qu'il utilise des objets ADO au lieu de DAO.

A+

**polo(31)** · 27/06/2006, 15h41

ADO est devenue le standard a partir d'access 2K, pour le portage de l'appli il vaut mieux l'utiliser pluto que DAO

**marot_r** · 27/06/2006, 15h41

Envoyé par Raphaëlle

Voilà ce que j'ai fait :

Code :

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

1
2
3
4
5
Option Compare Database
Dim db As database
Dim rArchive As Recordset
Dim f As Field
Option Explicit

Juste une note de style, il est mieux de mettre les toutes Option en tête de code. Ca rend le code plus lisible.

A+

**polo(31)** · 27/06/2006, 15h42

surtout "option explicit"

**marot_r** · 27/06/2006, 15h42

Envoyé par polo(31)

ADO est devenue le standard a partir d'access 2K, pour le portage de l'appli il vaut mieux l'utiliser pluto que DAO

Trés juste ... mais on a tous nos petites manies :-).

A+

**polo(31)** · 27/06/2006, 15h45

il faut savoir évoluer
"lorsque j'été un enfant, je pensé comme un enfant, mais en devenant un adulte, j'ai mis de coté tous ces enfantillages!"

oui il manque des truc mais le principe est là

**Raphaëlle** · 27/06/2006, 15h46

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Option Compare Database
Dim db As database
Dim rArchive As Recordset
Dim f As Field
Option Explicit
 
Private Sub Form_current() ' Vérifier la condition ci dessous tout le temps
 
    Dim mess As String
    mess = "Voulez-vous vraiment supprimer l'enregistrement courant?"
 
    If vbYes = MsgBox(mess, vbYesNo + vbDefaultButton2 + vbQuestion) Then
        Call ArchiverRecord
        Else
        Cancel = CInt(True)
    End If
 
End Sub
 
Private Sub Efface_Click()
 
On Error GoTo Err_Efface_Click
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Efface_Click:
    Exit Sub
 
Err_Efface_Click:
    MsgBox Err.Description
    Resume Exit_Efface_Click
 
End Sub
 
Private Sub ArchiverRecord()
 
    Dim db As Database: Set db = CurrentDb
    Dim rArchive As Recordset: Set rArchive = db.OpenRecordset("Archive")
    Dim f As Field
    rArchive.AddNew
    For Each f In prmForm.Recordset.Fields()
        rArchive.Fields(f.Name) = f
    Next f
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
    rArchive.Update
    rArchive.Close: Set rArchive = Nothing
    db.Close: Set db = Nothing  
End Sub
 
Private Sub ret_menu_Click()
On Error GoTo Err_ret_menu_Click
   DoCmd.Close
 
Exit_ret_menu_Click:
    Exit Sub
 
Err_ret_menu_Click:
    MsgBox Err.Description
    Resume Exit_ret_menu_Click   
End Sub

Voici une partie de mon code on pourrait me dire ce qui cloche car l'erreur reste la même et plus aucun de mes boutons ne fonctionnent....

**marot_r** · 27/06/2006, 15h49

Oui, oui, oui ... je suis passé du COBOL à Java, rassure toi, mais pour le moment je n'ai vu aucun gain à passer à ADO et ayant des délais assez sérer je préfère y aller à coup sur plutôt que d'expérimenter avec nouvelles librairies et toutes les frustrations d'avoir à REAPPRENDRE comment définir mes objets et retrouver la BONNE propriété parmis les centaines disponibles.

Et sans doute aussi une bonne dose de faignantise ... nul n'est parfais.

A+

**polo(31)** · 27/06/2006, 15h50

Code :

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

Private Sub Form_current() ' Vérifier la condition ci dessous tout le temps

il vérifie quel condition tout le temp?

je suis moi mème un gros fainéant par exemple là je suis sencé travaillé

**Raphaëlle** · 27/06/2006, 15h54

Envoyé par polo(31)

Code :

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

Private Sub Form_current() ' Vérifier la condition ci dessous tout le temps

C une erreur de ma part g oublier de l'enlever

**polo(31)** · 27/06/2006, 15h58

désolé je ne me rappelle pas du début.

Code :

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

1
2
3
4
5
6
7
 
If vbYes = MsgBox(mess, vbYesNo + vbDefaultButton2 + vbQuestion) Then
        Call ArchiverRecord
        Cancel = CInt(False)
Else
        Cancel = CInt(True)
End If

et comme ça?