Discussion :

[Le_Phasme]

Bonjour à tous ,

Ce code fait planter (une fois / 3 en gros) la base Access (fermeture de l'appli (comme un docmd.close))... Aucun message d'erreur, pas possibilité de capturer l'erreur avec un on error etc...
Rien d'inscrit dans le journal de Mr Watson, de l'observateur d'evenements ...
On execute le code et bing ca ferme. J'ai divisé la requete en 4 (en additionnant les 4 fois where machin=1 et machin=2 et etc... mais ca plante pareil des le premier. J'ai retiré le count(*) en mettant une boucle (while not RS.eof avec un indice i) ... ca plante pareil ..
Une idée les gens ?
Quand ca plante pas, l'instruction est correctement executée et on trouve le bon nombre. Donc un coup ca plante un coup non avec la meme demande !

Code :

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

1
2
3
4
5
6
Option explicit 
Dim DB1 As DAO.Database
Dim RS1 As DAO.Recordset
Dim SQL4 As String
Set DB1 = DBEngine.OpenDatabase("N:\PA1\Tables\Clients_local.mdb", False, False)
    Set RS1 = DB1.OpenRecordset("Select count(*) as NB From Request Where (rqrefapt1 = """ & aptID & """ or rqrefapt2 = """ & aptID & """ or rqrefapt3 = """ & aptID & """ or rqrefapt4 = """ & aptID & """)" & SQL4)

L'instruction qui fait planter c'est celle ci :

Code :

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

 Set RS1 = DB1.OpenRecordset("Select count(*) as NB From Request Where (rqrefapt1 = """ & aptID & """ or rqrefapt2 = """ & aptID & """ or rqrefapt3 = """ & aptID & """ or rqrefapt4 = """ & aptID & """)" & SQL4)

SQL4="" pour info

[Kloun]

J'aime pô les """

Code :

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

Set RS1 = DB1.OpenRecordset("Select count(*) as NB From Request Where (rqrefapt1 = '" & aptID & "' or rqrefapt2 = '" & aptID & "' or rqrefapt3 = '" & aptID & "' or rqrefapt4 = '" & aptID & "')" & SQL4)

Je sais pas si ça va changer quelque chose mais bon, vu le problème ...

[loufab]

J'aime pas le ' "
parceque la langue française utilise l'apostrophe... quand on la rencontre hé bien ça marche pas...
C'est bête hein !

[Kloun]

Mais ça a le mérite d'être standard.
Essaie une requète avec des " sous Oracle, tu risques d'avoir des surprises.

D'autre part, dans un texte, tu peux avoir tout est n'importe quoi, des ' comme des ". Je viens d'avoir le problème.

[Le_Phasme]

Pour info, j'ai essayé les " et les ' ca fait pareil ... donc le probleme ne vient pas de la...

[Kloun]

Ta BD1 a l'air d'être sur un réseau. Quand tu la mets en local, ça plante pareil ?

[Le_Phasme]

Je viens de faire le test en local . Idem;
Meme probleme...
C'est vraiment chiant comme probleme y'a pas de journal d'erreur nul part ! Est ce que le type de donnée aptref pourrait creer le probleme ?
Actuellement c'est un champ text.

[Kloun]

Code :

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

1
2
3
4
dim iStr_SQL as string
iStr_SQL = "Select count(*) as NB From Request Where (rqrefapt1 = '" & aptID & "' or rqrefapt2 = '" & aptID & "' or rqrefapt3 = '" & aptID & "' or rqrefapt4 = '" & aptID & "')" & SQL4
debug.print istr_SQL
'Set RS1 = DB1.OpenRecordset(iStr_SQL)

Histoire d'essayer d'exécuter la requète à part et voir ce que ça donne.