Discussion :

[nico.chev]

Ce code fonctionne mais seulement apres l'avoir lance une foie et créer une erreur.
Je veux recupérer les données de mon fichier 0.txt dans une la table "tbl_MOE" sur une ligne d'enregisterment.

Il s'agit d'une erreur avec les addnew et addedit je pense.

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
'Charge la table en mémoire
Set oRst = CurrentDb.OpenRecordset("Tbl MEO", dbOpenTable)
oRst.AddNew
'Tant que non fin de fichier
While Not oFichier.AtEndOfStream
  'lit la ligne
   strLigne = oFichier.ReadLine
   'Si elle est pas vide
   If Trim(strLigne) <> "" Then
            If oRst.EditMode = dbEditAdd Then
            'Récupère la position des =
            i = InStr(1, strLigne, "=", vbTextCompare)
            If i > 0 Then
                'Récupère le nom du champ et la valeur
                strNomChamp = Left(strLigne, i - 1)
                strValeur = Trim(Mid(strLigne, i + 1))
                oRst.Fields(strNomChamp).Value = strValeur
                oRst.Update
            End If
            Else
            oRst.Edit
            'Récupère la position des =
            i = InStr(1, strLigne, "=", vbTextCompare)
            If i > 0 Then
                'Récupère le nom du champ et la valeur
                strNomChamp = Left(strLigne, i - 1)
                strValeur = Trim(Mid(strLigne, i + 1))
                oRst.Fields(strNomChamp).Value = strValeur
                oRst.Update
                oRst.Edit
            End If

[ARO]

Bonjour,

Il faut faire un Edit puis la modification du champ, et un update pour appliquer cette modification.

Code :

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

1
2
3
4
5
 
 
oRst.Edit 
oRst.Fields(strNomChamp).Value = strValeur
oRst.Update

[nico.chev]

erreur d'execution '3021'
aucun enregistrement en cours

[DMboup]

Le oRst.AddNew et oRst.Edit ne sont pas à la bonne place

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
'Charge la table en mémoire
Set oRst = CurrentDb.OpenRecordset("Tbl MEO", dbOpenTable)
 
'Tant que non fin de fichier
While Not oFichier.AtEndOfStream
  'lit la ligne
   strLigne = oFichier.ReadLine
   'Si elle est pas vide
   If Trim(strLigne) <> "" Then
            If oRst.EditMode = dbEditAdd Then
            'Récupère la position des =
            i = InStr(1, strLigne, "=", vbTextCompare)
            If i > 0 Then
                'Récupère le nom du champ et la valeur
                strNomChamp = Left(strLigne, i - 1)
                strValeur = Trim(Mid(strLigne, i + 1))
                oRst.AddNew
                oRst.Fields(strNomChamp).Value = strValeur
                oRst.Update
            End If
            Else
 
            'Récupère la position des =
            i = InStr(1, strLigne, "=", vbTextCompare)
            If i > 0 Then
                'Récupère le nom du champ et la valeur
                strNomChamp = Left(strLigne, i - 1)
                strValeur = Trim(Mid(strLigne, i + 1))
                 oRst.Edit
                oRst.Fields(strNomChamp).Value = strValeur
                oRst.Update
                oRst.Edit
            End If

[nico.chev]

C'est comme ca que je l'avais mis au debut.
MAIS ca fait la meme erreur malgre tout

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
'Charge la table en mémoire
Set oRst = CurrentDb.OpenRecordset("Tbl MEO", dbOpenTable)
 
'Tant que non fin de fichier
While Not oFichier.AtEndOfStream
  'lit la ligne
   strLigne = oFichier.ReadLine
   'Si elle est pas vide
   If Trim(strLigne) <> "" Then
            If oRst.EditMode = dbEditAdd Then
            'Récupère la position des =
            i = InStr(1, strLigne, "=", vbTextCompare)
            If i > 0 Then
                'Récupère le nom du champ et la valeur
                strNomChamp = Left(strLigne, i - 1)
                strValeur = Trim(Mid(strLigne, i + 1))
                oRst.AddNew
                oRst.Fields(strNomChamp).Value = strValeur
                oRst.Update
            End If
            Else
 
            'Récupère la position des =
            i = InStr(1, strLigne, "=", vbTextCompare)
            If i > 0 Then
                'Récupère le nom du champ et la valeur
                strNomChamp = Left(strLigne, i - 1)
                strValeur = Trim(Mid(strLigne, i + 1))
                oRst.Edit
                oRst.Fields(strNomChamp).Value = strValeur
                oRst.Update
                oRst.Edit
            End If
           End If
    Else
        'Affiche le message terminé
        MsgBox "Terminé", vbInformation
    End If
Wend

[nico.chev]

Peut envoyer un package conntenant un fichier txt et le module si quelqu'un veut voir.

Le probleme, est que si je mets un addnew dans le else, il n'y a plus d'erreur mais il y a une valeur par ligne et par champ comme une matrice diagonale.

[nico.chev]

Fan du 5eme element

Please Me