Discussion :

[uloaccess]

Bonjour,
J'importe d'un fichier Excel les données qui renseignent ma base de donnée.
Il se trouve que j'ai ajouté un champ Date_deb dans ma table.
Mon objectif est d'associer à chaque donnée importer la date du jour.
Avec ce code:

Code :

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

1
2
3
4
5
With rstmed
                .Addnew
                !Date_deb = Date
                .Update
        End With

il me rajoute une ligne avec la date du jour. (Ce qui n'est pas ce que je veux).
Merci de me proposer vos suggestions.

[jab]

C'est normal qu'il t'ajoute une ligne puisue tu fais un addnew. Montre un epu plus de code pour voir comment tu importes les données.

[Muhad'hib]

Salut,

C'est pas .Edit des fois qu'il te faut (faire une modif de l'enregistrement en cours et pas un ajout ) ?

A+

[uloaccess]

Bonjour,
Mon

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
Private Sub CmdImporter_Click()
Dim db As Database
Dim rst As Recordset
 
On Error GoTo erreur
 
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM tAjout")
 
If MsgBox("Voulez vous importer le fichier spécifié ?", vbQuestion + vbYesNo, "") = vbYes Then
       DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tAjout", Me.txtfichier, True, "A1:G255"
       With rst
                .Edit
                !date_ajout = Date
                .Update
        End With
Else
End If
    Exit Sub
 
erreur:
    If Err.Number = 2522 Then
        MsgBox "Opération annulée pour fichier non spécifié.", vbCritical, ""
        Me.CmdOuvrir.SetFocus
    Else
        MsgBox "erreur num " & Err.Number & ":" & vbCrLf & Err.Description, vbCritical, "ERREUR"
    End If
 
End Sub

Avec Edit, je recois le message suivant
Erreur 3021 Aucun enregistrement en cours

[boubignole]

salut

semblerai que le recordset ne soit pas déclaré au bon moment, comme il n'y a pas encore eu d'import, il est vide

[boubignole]

j'ai oublié :

donc juste déplacer la ligne rst

Code :

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

1
2
3
4
5
6
7
 
...      
If MsgBox("Voulez vous importer le fichier spécifié ?", vbQuestion + vbYesNo, "") = vbYes Then
       DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tAjout", Me.txtfichier, True, "A1:G255"
Set rst = db.OpenRecordset("SELECT * FROM tAjout")
       With rst 
...

par contre il manque une boucle pour affecter la date du jour sur tous les enregistrements importés

bonne journée

[uloaccess]

Salut,
Début promettant, sauf que la date est prise en compte par la première ligne des données importées dans la base. Et dire que j'importe près de 230 enregistrements.
L'objectif est que chacun des 230 enregistrements ait la date d'importation.
Merci

[boubignole]

aqui la boucla, olé

Code :

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

1
2
3
4
5
6
7
8
9
 
While Not rst.EOF
       With rst
                .Edit
                !date_ajout = Date
                .Update
        End With
        rst.MoveNext
Wend

[uloaccess]

Salut,
Merci boubignole, ca marche 5/5
Merci

[uloaccess]

Bonjour,
Boubignole m'avait donné ce code afin de resoudre mon problème:

Code :

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

1
2
3
4
5
6
7
8
While Not rst.EOF
       With rst
                .Edit
                !date_ajout = Date
                .Update
        End With
        rst.MoveNext
Wend

.
Mais je viens de me rendre compte que ce code modifie tous les enregistrements. (A cause du .Edit je suppose.)
Comment faire afin que les dates passées ne soient nullement affectées par de nouveaux ajouts : :
Merci

[boubignole]

salut

ah oui j'avais pas fait gaffe
Il faut restreindre le recordset aux enregistrements nouvellement importés

Code :

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

1
2
 
Set rst = db.OpenRecordset("SELECT * FROM tAjout Where Date_Ajout is null")

ou quelque chose d'approchant, je ne me rapelle jamais la syntaxe

[Muhad'hib]

Salut,

Je pense qu'une solution avec une requete mise à jour donnerait le même résultat avec un temps d'execution beaucoup plus court .

Code :

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

1
2
3
 
Sql = " UPDATE tAjout SET tAjout.[date_ajout ] = Now() Where Date_Ajout is null;
currentdb.execute sql

rem : pas testé

A+