Le message est clair mais ce que je ne comprends pas c'est que ce message s'affiche de temps en temps d'une manière bizarre... et pas à chaque fois sinon ça m'aurait facilité la tâche pour porter les corrections... De quoi s'agit il puisque la base de données est bel et bien ouverte convenablement sans problème, autrement, c'est à dire si la base n'était pas ouverte, ce message s'affiche à chaque fois que je lance mon programme et non pas DE TEMPS EN TEMPS...
Y a t il d'autres raisons pour lesquels ce message s'affiche?
Je travaille tous les jours avec ce programme et le message s'affiche irrégulièrement (4 jours après, 1 semaine, parfois un mois après, parfois 3 fois par jours... INCROYABLE MAIS VRAI ! Pourtant je n'ai rien changé au programme...
Voici les parties du code où ce message s'affiche
Code : Tout sélectionner
Idbl=0
Dbs$ = "Data\bl.db"
If Not OpenDatabase(Idbl, Dbs$, "", "")
MessageRequester("Info", "Ouverture " + Dbs$ + " impossible!")
End
EndIf
.....
..... ; plus loin...
.....
;Enregistrer le bl
sql="SELECT * FROM fbl where numdoc=" + Chr(34) + numdoc$ + Chr(34)
CheckDatabaseQuery(idbl,sql)
If NextDatabaseRow(idbl)
sql= "Update fbl set "
sql+ " datedoc=" + Chr(34) + date$ + Chr(34) + ","
sql+ " datenum=" + Chr(34) + datenum$ + Chr(34) + ","
sql+ " codeCF=" + Chr(34) + codeCF$ + Chr(34) + " "
sql+ " where numdoc=" + Chr(34) + numdoc$ + Chr(34)
CheckDatabaseUpdate(idbl,sql)
Endif
**** LE MESSAGE D'ERREUR INDIQUE CETTE LIGNE >>[color=#FF0080] Enable de open Database ... Update fbl set ...[/color] ect..
A signaler que cette partie de mise à jour de la table (FBL) marche dans la plupart des cas (environ à 90%) plusieurs enregistrements ont été mis à jour correctement...
Merci de votre aide