Discussion :

[tounepistols]

Bonjour a tous!

J'ai le code suivant pour copier et coller. D'un formulaire vers une table>
Le code fonctionne tres bien sauf pour mes champs qui possedent des espaces.
Rappel : Je suis debutant en programation VB et je suis sur access 2003.

Voici le code (qui fonctionne) pour un champ sans espace:

Code :

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

1
2
3
 
  [SN].SetFocus
           MaTable!SN = Me.SN

Et voici celui qui ne fonctionne pas, celui avec des espaces:

Code :

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

1
2
3
 
[Affected SRU].SetFocus
          MaTable![Affected SRU] = [Me.Affected SRU]

Merci d'avance a tous!

Cordialement

Antoine

[issam16]

Et voici celui qui ne fonctionne pas, celui avec des espaces:

Code :

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

1
2
3
 
[Affected SRU].SetFocus
          MaTable![Affected SRU] = [Me.Affected SRU]

Merci d'avance a tous!

Cordialement

Antoine

je crois que c plutôt

Code :

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

1
2
3
 
 
MaTable![Affected SRU] = Me.[Affected SRU]

[tounepistols]

salut et merci d'avoir repondu,

Mais non ca ne marche pas non plus, j'avais deja essayer.
J'obtient, avec le code que tu m'indique, un message d'erreur :

"Microsoft Office Access can't find the field "l" referred into your expression"

(Ba oui je suis sur une version anglaise! )

Voila!
Donc si vous voyez d'ou cela peut venir, merci d'avance

Cordialement

Antoine

[pgz]

Bonjour,

J'ai le code suivant pour copier et coller. D'un formulaire vers une table
...
Voici le code (qui fonctionne) pour un champ sans espace:

Code :
[SN].SetFocus
MaTable!SN = Me.SN

Lis-je bien que tu écris directement dans une table? Et tu choisis comment la ligne dans laquelle tu écris?Tu peux nous mettre ça dans une petite base de démo en pj? Ce serait super!

Merci d'avance,

pgz

[tounepistols]

salut,

Voila ce qu'un intervenant (tres sympatique) m'a donner pour ecrire directement dans une table (a partir d'un formulaire):

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
Private Sub Close_and_Save_Click()
On Error GoTo Err_Close_and_Save_Click

'Ci-dessous déclaration des variables qui vont être tiles pour manipuler la base et la table  
    Dim MaBase As DAO.Database
    Dim MaTable As DAO.Recordset

    'Ci-dessous initialisation de ces variables
    Set MaBase = CurrentDb
    Set MaTable = MaBase.OpenRecordset("Analysis Table", dbOpenTable)
    
    'On ajoute un enregistrement vierge UNE fois
    MaTable.AddNew

    'On affecte les différentes valeurs séquentiellement
     [WO].SetFocus
           MaTable!WO = Me.WO
     [PN].SetFocus
           MaTable!PN = Me.PN
     [SN].SetFocus
           MaTable!SN = Me.SN
     '[Affected SRU].SetFocus
           'MaTable![Affected SRU] = Me.[Affected SRU]
     '[PFRFaultMessages].SetFocus
           'MaTable!PFRFaultMessages = Me.PFRFaultMessages
     [Description].SetFocus
           MaTable!Description = Me.Description
     '[Todays Date].SetFocus
           'MaTable![Todays Date] = Me.[Todays Date]
     '[Operators Name].SetFocus
          'MaTable![Operators Name] = Me.[Operators Name]    
       
     'Puis on enregistre tout ça et on referme la table
      MaTable.Update
      MaTable.Close
    
     DoCmd.Close

Err_Close_and_Save_Click:
    MsgBox Err.Description
    Resume Exit_Close_and_Save_Click
    

Exit_Close_and_Save_Click:
    Exit Sub

End Sub

En vert ce sont les commentaires et en rouge ce qui ne fonctionnent pas!

Voila a bientot

Cordialement

Antoine

[pgz]

Re,

Merci de ton code. Je vois que MaTable est simplement un recordset. Ouf!
Bon alors tu peux essayer :

Code :

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

MaTable![Affected SRU] = Me.Affected_SRU

Et les .SetFocus ne servent à rien dans cette affaire.

A+

pgz