Discussion :

[pol1958]

Bonjour,
Je suis occupé à traduire une base de données Access 2.0 en Access 2000 et ce n'est pas une mince affaire.
La routine ci-dessous fonctionnait très bien en 2.0 ; par contre en 2000 j'ai un message d'erreur lors de la compilation sur "matable.[code postal] ==> "Membre de méthode ou de données introuvable"
Pourriez-vous m'indiquer pourquoi ?

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
Public Sub Form_Current()
Dim mabd As DAO.Database
Dim matable As DAO.Recordset
On Error GoTo err_Form_Current
    Set mabd = DBEngine.workspaces(0).databases(0)
    Set matable = mabd.OpenRecordset("codes postaux")
    matable.index = "libelle"
    matable.Seek "=", Forms![encodage des adresses]!localite
    If matable.nomatch Then
    Forms![encodage des adresses]!c_p = "0000"
    GoTo exit_Form_Current
    Else
    localite = UCase(localite)
    Forms![encodage des adresses]!c_p = matable.[code postal]
    End If
    matable.CLOSE
 
exit_Form_Current:
    Exit Sub
 
err_Form_Current:
    MsgBox "Erreur exceptionnelle, traitement interrompu !", 16, "MESSAGE SYSTEME"
    Resume exit_Form_Current
End Sub

Merci beaucoup ;-)

[fgiambelluco]

Tout simplement remplacer

Code :

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

matable.[code postal]

par

Code :

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

matable![code postal]

La syntaxe avec . (point) qui était supportée par Access2 ne l'est plus

--------------
Frédéric
http://www.access-developpement.com

[pol1958]

Bonjour,

Un super grand merci