Jimy

Pensez: Réponse acceptée
'**********************************************

Bonjour à tous,

Voila, j'ai une application qui nécessite la lecture/ecriture de bases de données ACCESS en ADO, elle fonctionnait bien hier, et aujourd'hui, je ne sais par quelle malédiction, elle me plante systématiquement sur le message suivant.


' L'instruction à "0x275bae12" emploie l'adresse mémoire "0x06421e90". La mémoire ne peut pas être "Read". '

Je tiens à préciser que je n'ai pas VB sous la main, il s'agit de l'exécution du .Exe.
Je pense que le problème survient à l'ouverture de la base, car si j'enlève la base de son chemin source, le message d'erreur et le reste de la procedure de recherche de base que j'ai prévu en cas d'absence ou de chemin erronné de la base fonctionnent bien.

Voici le code, qui je le rappelle n'est peut-être pas optimal (Je suis ouvert à vos remarques!), mais fonctionnait hier!

' Ouverture de la base  ***************************************************
On Error GoTo ErrorB
Lien = LienBase & "\BDDs.mdb" 'LienBase est lu dans un fichier INI
Acces = Dir(Lien)

    If Acces = "" Then  'Si la base de données n'est pas trouvée
ErrorB:
Trace.Ecrire "Error process OPEN DATABASE / " & LienBase

        ErreurBDD = True
        Dim Msg, Style, Title, Response
        Msg = "No Data base found: " & vbCrLf & LienBase & vbCrLf & _
        "Please check link and restart application."    ' Définit le message.
        Style = vbOK + vbCritical  ' Définit les boutons.
        Title = "Data Base link... "   ' Définit le titre.

        ' Affiche le message.
        Response = MsgBox(Msg, Style, Title)
        If Response = vbOK Then
            P006.Show       'Page permettant la recherche de la base de données.
            Do
            DoEvents
            Loop While P006Open = True
            GoTo Debut
        End If
     End If

Set DBase = OpenDatabase(Lien)       'Ouverture de la base
BDDOpened = True

'********************************* FIN de GESTION ACCESS ********************

J'espère que vous pourrez me débuguer!
Jimy

 

même chose après reboot ?
parce que ca m'a l'air mal barré....

rien a voir, mais code étrange :

Style = vbOK + vbCritical
on fait pas + mais Or
de plus, vbOk n'a RIEN a faire là...
vbOk vaut 1, soit la même valeur que vbOkCancel

(vbOk est une réponse, pas un style de MsgBox)

Bonjour Renfield,

En effet VbOkOnly serait plus adhequat.
Sinon, même problème après reboot.
Le seul changement en hier et aujourd'hui (mis à part la date...), c'est une migration du domaine réseau demandée par les admin du service info.Je pense pas qu'il puisse y avoir un rapport, de plus, j'ai essayé avec la base en local, (elle est habituellement sur réseaux), et même problème.
Mais, que veut dire ce message d'erreur?

Jimy

Pensez: Réponse acceptée
'**********************************************

Réponse acceptée !
ca peut jouer, je vois que tu testes tes chemins avec Dir, ce qu'il ne faut pas faire (ca genere une erreur sur chemins reseaux inexistants)

http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx#208

Merci pour le lien.

Ca pourrait, en effet, en être la cause, mais je reste perplexe du fait d'avoir essayé avec la base en local.

Je reprendrais, ce soir, mon code avec tes propositions, si tu penses à d'autres pistes, n'hésites pas...

Merci

Dernière investigation:

Je viens d'installer l'appli sur un PC qui est rarement utilisé et qui donc n'a pas encore subit la migration de domaine reseaux...et elle fonctionne!

Je pense que tu as raison, Renfield, Dir() doit générer une erreur, mais alors pourquoi Dir() ne reconnaitrait-il pas le chemin de la base comme valide, alors que, par exemple, je peux ouvrir cette même base avec access. c'est donc que j'y ai accés dans le domaine et que le chemin est valide??????AARG!

fais le test :

If Dir$("\\Inexistant\erreur\car\chemin\reseau")="" Then

End If

N'ayant pas VB6, j'ai essayer en VBA sur excel sur le clic d'un bouton, plantage total d'excel sans message d'erreur, juste 'No responding'

dingue, non ?

faut donc éviter de tester l'existence de quoi que ce soit en utilisant Dir$