Calcul VBA sur le résultat de 2 SQL

Bonjour,

Sur MAj d'une ZL, une sub qui fait la différence ( soustraction) entre deux requêtes en SQL, voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub travail_hebdo_AfterUpdate() Dim a As Integer Dim b As Integer a = SQL1 b = SQL2 SQL1 = "SELECT Table_recrutement.id_recrutement, Table_recrutement.temps_travail FROM Table_recrutement WHERE (((Table_recrutement.id_recrutement)=" & id_personnel & ")); " SQL2 = "SELECT Table_notif.volume_horaire FROM Table_notif WHERE (((Table_notif.id_eleve)=" & id_eleve & ") AND ((Table_notif.Echéance)>=Now())); " Me.Reliquat = a - b Me.Reliquat.Requery Debug.Print End Sub

---

Quand je place le curseur sur :
id_personnel=2
id_eleve=7
sql1 =vide

Ce qui me déroute c'est que j'ai par ailleurs dans le même sous form deux ZL en pied de form avec en Rowsource les mêmes requêtes SQL , la première ZL affichant 35 pour le SQL1, et la seconde affichant 12.

En somme, Reliquat ( cbx) devrait afficher 23 (35-12).

En vous remerciant avance pour vos conseils.

Je viens de modifier le code pour tenter de récupérer directement les valeurs des ZL en pied de form,

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub travail_hebdo_AfterUpdate() Dim a As Integer Dim b As Integer a = travail_hebdo.Column(1) b = vol_hor.Column(1)   Me.Reliquat = a - b Me.Reliquat.Requery   End Sub

---

mais je me heurte à une autre difficulté:
b=null :calim2:
alors que la ZL ( vol_hor) affiche 12 !

a=35 ce qui est conforme à l'affichage de l'autre ZL (travail_hebdo).

Auriez-vous une idée ?:?

Partant du constat que la variable b ne trouve pas de valeur, j'ai changé la méthode pour aller la chercher : requête sql dont voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub travail_hebdo_AfterUpdate() Dim a As Integer Dim b As Integer a = travail_hebdo.Column(1) b = SQL SQL = "SELECT Table_notif.volume_horaire FROM Table_notif" & _ SQL = "WHERE (((Table_notif.id_eleve)=" & id_eleve & ") AND ((Table_notif.Echéance)>=Now())); "   Debug.Print Me.Reliquat = a - b Me.Reliquat.Requery   End Sub

---

En plaçant le curseur sur SQl ( ligne 2), l'infobulle indique "=vide" ; sur & id_eleve &, il indique "=7" ( ce qui correspond à l'affichage en pied de form de la ZL " id_eleve")

:(:(:(

Si une bonne âme pouvait me mettre sur la piste ...

Bonjour

Je ne comprends pas ce que tu veux faire :koi:

Tu affectes à b une valeur SQL qui te modifie après, en fait cela devrait être l'inverse.

De plus une chaine SQL de la sorte ne te donnera rien, pour l'interpréter il faut passer par un recordset style DAO.

Donc ce que tu fais n'a pas beaucoup de sens, si tu veux récupérer une valeur seule tu peux également utiliser la fonction de domaine DLookup, il y a un tuto sur les fonctions de domaines dans mes tutos.

Philippe

Bonjour Philippe,

Merci pour cette explication de texte... j'en avais besoin je vais essayer de récuperer la valeur de b avec un DLookup. Pour autant ne je comprends pas pourquoi j'arrive à récupérer la valeur a et pas la b quand je passe par les numéro de colonne des ZL concernées.

Bon je teste et te dis si c'est ok.... c'est tout bon :ccool:

Bonjour Philippe,

Je pense avoir compris pourquoi le SQL ne fonctionnait pas pour la variable b:
la ZL affichait 12 mais contenait plus de valeurs ( taille du controle réduite), donc le SQL ramenait une liste de valeurs et pas une valeur unique.

Alors la fonction Dlookup a permis sur tes conseils d'obtenir la valeur recherchée. Néanmoins j'ai modifié la méthode pour avoir la valeur à chaque enregistrement:
elle est contenue dans une zone de texte qui est liée au champ fils ( volume_horaire du sous form), miroir du champ père du form principal.

Du coup, ce nouveau code fonctionne bien:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub travail_hebdo_AfterUpdate() Dim a As Integer Dim b As Integer     a = travail_hebdo.Column(1) b = vol_hor     Me.Reliquat = a - b Me.Reliquat.Requery End Sub

---

Mais au niveau de la gestion évènementielle, cela oblige à cliquer sur la ZL "travail_hebdo" pour avoir l'affichage de la ZL Reliquat alors que je souhaiterais qu'elle s'affiche sans clique préalable... j'ai essayé de déplacer ce code sur gotfocus de Reliquat sans succès...

Autre tentative: sur MAJ de ZL "id_recrut" alimenter ZL "travail_hebdo" et ZL "Reliquat", avec pickup de variable a grace à Dlookup

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub id_recrut_AfterUpdate() Dim a As Variant Dim b As Integer b = vol_hor a = Nz(DLookup("temps_travail", "Table_recrutement", "id_recrutement=id_recrut"), 0) Debug.Print Me.travail_hebdo = a Me.Reliquat = a - b Me.Reliquat.Requery End Sub

---

Le curseur sur a indique a=vide , sur id_recrut: =2; or dans la table recrutement pour id_recrutement =2 il y a une valeur dans le champ temps_travail ( 28)
Alors pourquoi Dlookup donne "vide" ?

Bonjour

Code:

---

DLookup("temps_travail", "Table_recrutement", "id_recrutement=" & id_recrut)

---

Idéalement, commencez par lire les cours pour débutant. Sans aucune notion, il est difficile de s'improviser développeur tout comme moi j'aurais bien du mal à effectuer le travail d'un dentiste ...

Bonjour Christophe,

Merci pour la correction, les cours pour débutant je les ai lu mais la preuve en est que je les ai pas assimilé alors j'essai de forger pour tenter d'être forgeron... ceci dit je vais me prolonger dans les lectures.

Cordialement,

Sébastien

PS: après relecture du tuto de Philippe tout est ok, je clos et vous remercie pour votre coup de main.