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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 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
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
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