[Access] Pb avec fonction Date et MsgBox Error$

Pb avec fonction Date et MsgBox Error$ [Access] - VB/VBA/VBS - Programmation

Marsh Posté le 13-06-2007 à 15:45:09    

Salut les gens,
 
J'ai un problème sur mon code VB depuis que j'ai migré ma basse access vers une SQL server 2005.
 
Les fonctions Date et MsgBox Error$ plante tout simplement, elle ne veulent plus fonctionnner.
 
Je ne connais pas trés bien le VB mais si je met une fonction du genre:
 

Code :
  1. Private Sub cmdChantier_Click()
  3. On Error GoTo GestionErreur
  5.     DoCmd.Close
  6.     DoCmd.OpenForm "1-2-1 Affaire"
  8. Sortie:
  9.     Exit Sub
  11. GestionErreur:
  12.     MsgBox Error$
  13.     Resume Sortie
  14.    
  15. End Sub


 
Il doit théoriquement m'ouvrir mon formulaire tout gentillement comme avant sous Access non ?
Car la il plante sur le MsgBox Error$ et si j'enlève la ligne ca marche !!!
 
Je précise que j'ai gardé toute les requetes et formulaires sous access, j'ai juste migrer la base (les tables de données) sous SQL serveur. Je me sert d'un lien ODBC pour lier les tables
 
Help  :sweat:

Reply

Marsh Posté le 13-06-2007 à 15:45:09   

Reply

Marsh Posté le 13-06-2007 à 15:51:56    

a la place de error$, err.description te convient-il ?

Reply

Marsh Posté le 13-06-2007 à 15:56:24    

Ha ouai ca marche avec err.description
 
du moin il me dit plus que ca plante :)
 
Maintenant le problème c'est avec la fonction date :(

Reply

Marsh Posté le 13-06-2007 à 15:57:13    

c-a-dire ?  :sweat:

Reply

Marsh Posté le 13-06-2007 à 16:01:40    

Lorsque j'arrive sur un formulaire j'appelle une fonction semaine_actuelle() qui me renvoi un int qui donne le numéro de la semaine.
 
Il me dit  
Erreur de compilation :
Projet ou bibliothèque introuvable  
 
en me mettant en surbrillance Date  
 
voici mon code :  

Code :
  1. Function Semaine_actuelle() As Integer
  2. 'renvoie la semaine en cours
  4. Dim r As Recordset
  5. Dim ssql As String
  7. On Error GoTo GestionErreur
  8.    
  9.     Semaine_actuelle = DateDiff("w", "01/01/" & Year(Date), Date, vbMonday) + 1
  10.     Exit Function
  12. GestionErreur:
  13.     Semaine_actuelle = -1
  14.     Exit Function
  16. End Function


 
J'utilise la fonction date aussi ailleur dans mon appli mais ca donne pareil !

Reply

Marsh Posté le 13-06-2007 à 16:05:06    

Est-il possible que cela vienne de mon lien ODBC ?
 
Car j'ai eu un problème aussi j'avai une requete qui comprais la Date dans une table une date que j'ai mis en paramètre de ma requete.
 
Cette date était 1900 et ca plantait en me disant conversion en champ date impossible, j'ai essayé en mettant 2000 et ca a marché nikel!!
 
Ca ma pas géné car la requete fesait ce que je voulais :)

Reply

Marsh Posté le 13-06-2007 à 16:42:04    

J'ai changé mon lien ODBC j'ai pris un 2005, et ca a l'air de marcher !!

Reply

Marsh Posté le 13-06-2007 à 17:08:57    

Je propose un clic sur Outils > Références > parcourir : MSCOMCTL.ocx

Reply

Marsh Posté le 18-06-2007 à 13:41:09    

Non plus ca ne marche pas!
 
en fait c'est avec Access 2007 que ca plante, avec Access 2000 ca marche sans problème !!

Reply

Marsh Posté le 13-01-2011 à 16:53:08    

Bonjour à tous
 
Je déterre le sujet mais ma question à un vague rapport avec:
 
dans  

Code :
  1. MsgBox Error$


 
J'ai toujours utilisé Err.Description mais récemment j'ai reçu une base de donnée qui contient ce Error$ et qui plantait à cause de ça...
 
Qu'est ce que c'est ce "Error$" exactement?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed