[Access] Pb avec fonction Date et MsgBox Error$

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Access] Pb avec fonction Date et MsgBox Error$

thekingsky

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 :

Private Sub cmdChantier_Click()
On Error GoTo GestionErreur
DoCmd.Close
DoCmd.OpenForm "1-2-1 Affaire"
Sortie:
Exit Sub
GestionErreur:
MsgBox Error$
Resume Sortie
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:

Publicité

jpcheck

Pioupiou

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

thekingsky

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

jpcheck

Pioupiou

c-a-dire ? :sweat:

thekingsky

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 :

Function Semaine_actuelle() As Integer
'renvoie la semaine en cours
Dim r As Recordset
Dim ssql As String
On Error GoTo GestionErreur
Semaine_actuelle = DateDiff("w", "01/01/" & Year(Date), Date, vbMonday) + 1
Exit Function
GestionErreur:
Semaine_actuelle = -1
Exit Function
End Function

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

thekingsky

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

thekingsky

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

lithiumart

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

thekingsky

Non plus ca ne marche pas!

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

mkl238

Bonjour à tous

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

dans

Code :

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?

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Access] Pb avec fonction Date et MsgBox Error$

Sujets relatifs
Ouvrir et sauvegarder une base access en vb	[Access] update de toute les colonnes si...
[Résolu-PHP]Connaitre le numéro de jour de l'année à partir d'une date	ACCESS Reprendre le numéro auto en cours dans un autre formulaire
[ACCESS] requete SQL max date	[Résolu] Problème de return d'une fonction
Problème d'affichage avec la date (Anglais/Francais)	heure & date, c++ builder
Boucle sur fonction mail()
Plus de sujets relatifs à : [Access] Pb avec fonction Date et MsgBox Error$

Page générée en 0.047 secondes