OVH Cloud OVH Cloud

Erreur compilation

1 réponse
Avatar
boby lapointe
Bonjour,

J'ai encore un pb de conversion (access 2 vers access 2000)
avec erreur "Membre de méthode ou de données introuvable"
Ligne "tblserr.[numcanon] = Me![txtcanon]" en cause

Private Sub maj()
Dim bdt As Database
Dim tblserr As Recordset

Set bdt = DBEngine(0)(0)
Set tblserr = bdt.OpenRecordset("serrures", DB_OPEN_DYNASET)

If modeform = A_ADD Then
tblserr.AddNew
Else
Test = lecture(tblserr, CritereListe)
tblserr.Edit
End If
tblserr.[numcanon] = Me![txtcanon]
tblserr.[typserrure] = Me![txttypserrure]
tblserr.[typecanon] = Me![txttypecanon]
tblserr.[numsérie] = Me![txtnumsérie]
'tblserrure.[numpasse] = Me![txtnumpasse]
tblserr.[deny] = Me![chkdeny]
tblserr.[modele] = Me![cbomodele]
tblserr.[codlieu] = Me![Cbobatiment]
tblserr.[etage] = Me![cboetage]
'tblser.[libetage] = Me![txtlibetage]
tblserr.[codlocal] = Me![cbolocal]
tblserr.[libelle_porte] = Me![txtlibelle]
tblserr.Update
tblserr.Close

End Sub

1 réponse

Avatar
Gafish
boby lapointe wrote:
Bonjour,


Bonjour,

J'ai encore un pb de conversion (access 2 vers access 2000)
avec erreur "Membre de méthode ou de données introuvable"
Ligne "tblserr.[numcanon] = Me![txtcanon]" en cause


Essaie :
tblserr.Fields("numcanon") = Me![txtcanon]

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr