Discussion :

[Daniela]

Bonjour a tous. j'ai un probleme
moi j'ai cree un formulaire avec ces champs:
credit_journé
credit_avant
payement_journé
payement_avant
total

chaque champ est calculé dans une query. moi j'ai mis dans données sources =Crediti_giornalieri_bar!Totale, mais il me donne comme valeur "#NOME?' pourkoi?

[al_bert]

Bonjour,

pour ma part, je n'ai jamais réussi à utiliser convenablement la propriété "Source contrôle" d'un champ texte autrement qu'en le liant directement à un champ de la table. J'utilise donc un recordset dans lequel je stocke le résultat de mes requêtes pour ensuite les attribuer à la propriété "value" ou "text" de la boîte de texte comme c'est expliqué dans ce post.

Ce n'est peut-être pas la méthode la plus optimale, mais, jusqu'à présent, elle fonctionne à tout coup!

Salutations,

[Daniela]

Bonjour,

pour ma part, je n'ai jamais réussi à utiliser convenablement la propriété "Source contrôle" d'un champ texte autrement qu'en le liant directement à un champ de la table. J'utilise donc un recordset dans lequel je stocke le résultat de mes requêtes pour ensuite les attribuer à la propriété "value" ou "text" de la boîte de texte comme c'est expliqué dans ce post.

Ce n'est peut-être pas la méthode la plus optimale, mais, jusqu'à présent, elle fonctionne à tout coup!

Salutations,

moi j'ai fais ça me il y a un erreur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Comando85_Click()
Dim My_record_bar As DAO.Recordset
Dim My_record_ss As DAO.Recordset
 
Set My_record_bar = CurrentDb.OpenRecordset("select sum(quantità) as quantita ,sum(quantità*prezzo) as Montante_bar from Uscita_bar,articoli where Uscita_bar.id_art=articoli.id_art and Dataconsumazione=Date()")
If Not My_record_bar.EOF Then
Me.baroggi = My_record_bar!Montante_bar
End If
Set My_record_ss = CurrentDb.OpenRecordset("select sum(quantità) as quantita ,sum(quantità*prezzo) as Montante_ss from Uscite_ss,articoli where Uscite_ss.id_art=articoli.id_art and Dataconsumazione=Date()")
If Not My_record_ss.EOF Then
Me.baroggi = My_record_ss!Montante_ss
End If
End Sub

[al_bert]

Quelle est l'erreur qui est levée?

[Daniela]

Quelle est l'erreur qui est levée?

quand je clic sur le bouton il fais rien

[al_bert]

Hum... comme il n'y a pas d'erreur d'exécution ni de compilation et que la syntaxe semble valide, la première idée qui me vient en tête serait de vérifier que les conditions que tu fixes dans ta requête sont vrais parfois. Tu pourrais le tester avec des msgbox par exemple, mais j'ai bien l'impression que la requête atteint toujours la fin de la table avant de trouver un enregistrement qui correspond aux critères. Ceci expliquerait pourquoi il ne se passe rien quand tu cliques sur le bouton.

Du moins, je crois que c'est à vérifier...

[Daniela]

Comment je fais pour tester?

[Daniela]

j'ai corrigé le code. pourkoi ça ne marche pas?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Comando85_Click()
Dim My_record_bar As DAO.Recordset
Dim My_record_ss As DAO.Recordset
Dim My_record_bar_ieri As DAO.Recordset
Set My_record_bar = CurrentDb.OpenRecordset("select sum(quantità) as quantita ,sum(quantità*prezzo) as Montante_bar from Uscita_bar,articoli where Uscita_bar.ID_Art=articoli.ID_Art and Dataconsumazione=Date()")
If Not My_record_bar.EOF Then
Me.baroggi = My_record_bar!Montante_bar
End If
Set My_record_ss = CurrentDb.OpenRecordset("select sum(quantità) as quantita ,sum(quantità*prezzo) as Montante_ss from Uscite_ss,articoli where Uscite_ss.ID_Art=articoli.ID_Art and Dataconsumazione=Date()")
If Not My_record_ss.EOF Then
Me.ssoggi = My_record_ss!Montante_ss
End If
Set My_record_bar_ieri = CurrentDb.OpenRecordset("select Somma(IIf(Left(ID_Art;1)='A' as prezzo_bar, Quantità*Articoli.Prezzo;0)) ,sum(quantità*prezzo) as Montante_bar_ieri from Uscite,articoli where Uscite.ID_Art=articoli.ID_Art and Dataconsumazione=Date()")
If Not My_record_bar_ieri.EOF Then
Me.ssoggi = My_record_bar_ieri!Montante_bar_ieri
End If
End Sub