Besoin d'une confirmation.

Le
Fabien
Bonjour et tous mes voeux pour cette année 2008
Quelqu'un pourrait il me confirmer que le code ci-dessous ne peut pas
fonctionner sous access runtime ?

Public Function ajout_ref()
Dim Rst As DAO.Recordset
Dim Ref_existe As Boolean
Set Rst = CurrentDb.OpenRecordset("refe")'Table qui contient les
références a ajouter
On Error GoTo Err_msg
While Not Rst.EOF
Ref_existe = False
For Each Ref In References
If Not Ref_existe Then
Ref_existe = (Ref.Name = Rst("NomRéférence"))
Ca plante sur cette ligne ^^^^^^^^^^^^^^^^^^^^^^^
:"Methode 'Name' of object 'Reference' failed"
End If
Next Ref
If Not Ref_existe Then
References.AddFromFile Rst("Chemin")
End If
Rst.MoveNext
Wend
GoTo Sortie
Err_msg:
MsgBox Err.Number & " " & Err.Description
Sortie:
Rst.Close
Set Rst = Nothing
End Function

Si c'est le cas : peut on contourner celà ?
Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #6341421
Bonjour et tous mes voeux pour cette année 2008
Quelqu'un pourrait il me confirmer que le code ci-dessous ne peut pas
fonctionner sous access runtime ?

Public Function ajout_ref()
Dim Rst As DAO.Recordset
Dim Ref_existe As Boolean
Set Rst = CurrentDb.OpenRecordset("refe")'Table qui contient les
références a ajouter
On Error GoTo Err_msg
While Not Rst.EOF
Ref_existe = False
For Each Ref In References
If Not Ref_existe Then
Ref_existe = (Ref.Name = Rst("NomRéférence"))
Ca plante sur cette ligne ^^^^^^^^^^^^^^^^^^^^^^^
:"Methode 'Name' of object 'Reference' failed"
End If
Next Ref
If Not Ref_existe Then
References.AddFromFile Rst("Chemin")
End If
Rst.MoveNext
Wend
GoTo Sortie
Err_msg:
MsgBox Err.Number & " " & Err.Description
Sortie:
Rst.Close
Set Rst = Nothing
End Function

Si c'est le cas : peut on contourner celà ?
Merci
Bon je me répond ;-)

En passant par un Mde je n'ai plus besoin d'ajouter des références qui
seraient manquantes.
Merci moi

Publicité
Poster une réponse
Anonyme