Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 09-01-16, 11:07
nasos23 Ο χρήστης nasos23 δεν είναι συνδεδεμένος
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 455
Προεπιλογή

Καλημέρα σε όλους
Βασίλη η δική μου πρόταση είναι:
Για τη φόρμα
Στο υποσέλιδο της δευτερεύουσας προσθέτουμε ένα πλαίσιο κειμένου
πχ Κείμενο13 δεδομένα = Μέσος_όρος([Βαθμός]).
Στην επιφάνεια τηε κύριας φόρμας δημιουργούμε πάλι ένα πλαίσιο κειμένου
που λαμβάνει δεδομένα απο το πρώτο πχ.κείμενο 15 δεδομένα =[subfrmAtrimMO].[Form]![Κείμενο13]

Για το ερώτημα

Κώδικας:
SELECT tblstud.idstud, tblstud.Επώνυμο, tblstud.Όνομα, tblstud.[Όνομα πατρός], IIf([Μάθημα]<>" ","Όλα"," ") 
AS Μάθημα_, tblTrim.Ονομασία, Min(tblDegrees.Ημερομηνία) AS Μικρότερη_τιμήΤουΗμερομηνία, Avg(tblDegrees.Βαθμός) 
AS Μέσος_όροςΤουΒαθμός, DatePart("q",[Ημερομηνία]) AS Τρίμηνο, Year([Ημερομηνία]) AS Έτος
FROM tblTrim INNER JOIN (tblLessons INNER JOIN (tblDegrees LEFT JOIN tblstud ON tblDegrees.idstud = tblstud.idstud) 
ON tblLessons.idtests = tblDegrees.idtests) ON tblTrim.idTTT = tblDegrees.idTTT
GROUP BY tblstud.idstud, tblstud.Επώνυμο, tblstud.Όνομα, tblstud.[Όνομα πατρός],
 IIf([Μάθημα]<>" ","Όλα"," "), tblTrim.Ονομασία, DatePart("q",[Ημερομηνία]), Year([Ημερομηνία])
HAVING (((tblTrim.Ονομασία)="Α ΤΡΙΜΗΝΟ"));
Απάντηση με παράθεση