Demande de courrection d'un code en VBA

Question

Voila le code:  

Dim strmois As Integer
Dim strmq As String
Dim strexp1 As Integer
strmois = Mois.Text
strmq = mq.Text
Dim inp As DAO.Database
Set inp = CurrentDb.QueryDefs
intp.SQL = "SELECT produit.Mois, produit.Marque, produit.Heure, inter.HD, inter.HF, inter.Code_interval, produit.Date"
From produit, interWHERE (((produit.CodeJour) (inter.CodeJour)) And ((produit.Mois) strmois) And ((produit.Marque) = strmq) And ((produit.Heure) > [inter].[hd]) And ((inter.HF) >= [produit].[Heure]))
intp.Execute
Set intp = Nothing

merci d'avance

lillith212 · Answer

Bonjour à toi aussi,

Corriger ton code oui, mais qu'elle est l'erreur? a quel endroit ? quel est le message? L'air de rien ca aide ce genre de renseignement...
intp --> c'est défini où et comment?
De plus evite d'utiliser du DAO... Préfére l'ADO.

S.L.B.
<hr />-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- Le bon t

lindahaddad · Answer

merci pour l'ensemble des remarques mais comment utiliser Ado

jrivet · Answer

Salut,
bravo à [../auteur/LILLITH212/1208539.aspx lillith212] pour essayer de t'aider...

@+: Ju£i€n
Pensez: Réponse acceptée

lindahaddad · Answer

mais le PB n'est pas régler

jrivet · Answer

Re,
Pour savoir comment utiliser ADO ce qui semble être le fond du problème, merci de se reporter à la section Code de ce site.
Elle devrait regorger de code utiles.
Tu peux même essayer la section tutoriel...

@+: Ju£i€n
Pensez: Réponse acceptée

Demande de courrection d'un code en VBA

5 réponses

Votre réponse

Discussions similaires