Discussion :

[scons]

Bonjour,

Voila je vous expose mon probleme
En fait j'aimerais que dans un formulaire, lorsque je rentre une certaine valeur dans un champs, que l'on ai tous les enregistrements concernés par cette valeur qui apparaissent.
Le truc c'est que je tombe sur l'erreur suivante:"objet non trouvé dans la collection"
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Modifiable19_AfterUpdate()
Dim rs As DAO.Recordset
Dim sql As String
 
sql = "select * from Commandes where [date de livraison]=" & Me.Modifiable19
Set rs = CurrentDb.OpenRecordset(sql)
 
 Me.Numero_commande.Value = rs.Fields(Numero_commande)
 Me.date_commande = rs.Fields(date_commande)
 Me.date_de_livraison = rs.Fields(date_de_livraison)
 Me.Etat = rs.Fields(Etat)
 
End Sub

[Jean-Philippe André]

salut,
à moins que toutes les variables existent, il faut que tu les transformes en chaines de caractère :

Code :

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

1
2
3
4
 Me.Numero_commande.Value = rs.Fields("Numero_commande")
 Me.date_commande = rs.Fields("date_commande")
 Me.date_de_livraison = rs.Fields("date_de_livraison")
 Me.Etat = rs.Fields("Etat")

[scons]

Merci jpcheck.
Et ben je me sent bete d'avoir pas vu que j'vais pas mit les guillemets, d'autant plus que j'utilise cette syntaxe dans d'autres applications.
Je te remercie de m'avoir eclairé l'esprit.

Cependant je bute sur un autre probleme.
"impossbile d'attribuer une valeur a cette objet"

en fait je cherche a afficher les resultat de la requete dans un formulaire.
peut etre que je ne procede pas comme il faut.

[scons]

quel element de formulaire faut il utiliser pour afficher tous les resultats de ma requete sql.
En fait dans l'etat actuel du formulaire je dispose d'une section details possedant chacun des champs de ma table "commande" (ce ne sont pas des champs indepedants.
C'est d'ailleurs probablement la raison pour laquelle je ne peut pas attribuer de valeur a ces objets.

voila si quelqu'un pouvait me donner un ou deux elements de reponses.
au besoin je peut poster des screenshots de mon formulaire.

Voila merci

[Pierre Fauconnier]

Bonjour

Tu n'as pas besoin de DAO

Lorsque tu as composé ta requête dans la chaine SQL, tu passes celle-ci en propriété RecordSource de ton formulaire

Code :

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

1
2
3
4
5
6
Private Sub Modifiable19_AfterUpdate()
    Dim SQL As String
 
    SQL = "select * from commandes where [date de livraison] = #" & CDate(Modifiable19) & "#"
    Me.RecordSource = SQL
End Sub

[scons]

Pierre ta solution fonctionne cependant cen'est pas ce que je veu faire.
S i je vais selon ta methode a cahque ouverture du formulaire je tombe sur une boite de dialogue me demandant la valeur de mon parametre "modifiable19"
Si je le rentre j'ai effectivement la liste des commandes, selon ce critere, qui apparait.

Moi j'aimerais en fait que mon formulaire s'ouvre et m'affiche toutes les commandes de ma base (Pour ça je n'ai pas de prob)
Une foi mon formulaire ouvert je voudrais faire une selection des commandes suivant la valeur entrée dans la zone de texte "modifiable 19"
Mais la j'ai quelques souci.

j'ai essayé d'integrer une procedure evenementielle qui lance ma requete de selection quand j'appuis sur un bouton.
En fait lorsque que je clique sur ce bouton je passe ma requete de selection en parametre du Recordsource de mon formulaire.
Cependant rien ne s'affiche.
Ma liste avec toutes mes commandes disparait et mon champs "modifiable19" se remet a blanc.

[scons]

J'ai regardé sur differents forums que j'ai pu trouvé et apparement ma methode de modifier le "recordsource" d'un formulaire via un bouton serait correcte.
Cependant ça ne fonctionne pas chez moi.
peut etre s'agit'il d'une erreur de syntaxe dans la requete.
la voici

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Commande39_Click()
 
[Form_rappel des commandes].RecordSource = "SELECT Commandes.*, magasins.* FROM magasins LEFT JOIN Commandes ON magasins.[Code magasin] = Commandes.[code magasins] WHERE Commandes.[date de livraison] = " & Me.Modifiable19
[Form_rappel des commandes].Refresh
 
 
End Sub

pour moi ça me parait correcte mais bon un oeil avec plus de recul trouvera peut etre une erreur

[scons]

bon je viens de trouver d'ou vient l'erreur.
En fait l'erreur porte sur le fait que "modifiable19" est une date.
Si je fais la meme requete mais avec un autre champs de type numerique (par exemple) ca fonctionne.
Donc la syntaxe pour une requete avec une date comme variable doit etre sensiblement differente. faut il mettre quelques choses d'autres que le "&" devant "modifiable19"

[Pierre Fauconnier]

Dans mon exemple, je mentionnais un signe # qui permet d'encadrer une date...

Cela étant, les dates posent problème dans la mesure ou elles sont parfois interprétées "à l'envers" (jj/mm/aa => mm/jj/aa). Donc je préfère en général convertir en long, et à ce moment, il n'y a plus de problème d'inversion.

[scons]

Merci Pierre
En fait j'avais pas tilté que tu avais changé la syntaxe pour englober une date.
J'ai donc utilisé cette syntaxe et la plus de probleme j'arrive enfin au resultat souhaité.
Un grand merci a toi.