ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Πρόβλημα στην σύνταξη του κώδικα

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Κλειστό Θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 08-07-14, 00:58
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 744
Προεπιλογή Πρόβλημα στην σύνταξη του κώδικα

Καλησπέρα σε όλους τους φίλους,

προσπαθώ να γράψω έναν κώδικα έτσι ώστε να παίρνει τα δεδομένα απο ένα ερώτημα (QryPrint) και να μου τα μάζει σε έναν temporary table (tblWeekData) έτσι ώστε να μπορέσω να τα παρουσιάζω σε μια έκθεση.

Έχω γράψει τον πιο κάτω κώδικα και η vba κτυπά συνεχώς στο DietID το οποίο θέλω να παίρνει απο το απο το ερώτημα. Παραθετω τον κώδικα και θα εκτιμήσω εάν κάποιος φίλος απο το φόρουμ θα μπορούσε να με βοηθήσει

Sub OpenReport()
Dim i As Integer, x As Integer, tmpMax As Integer, TheFood As String
Dim rsSource As DAO.Recordset
Dim rsTarget As DAO.Recordset
CurrentDb.Execute "DELETE * FROM tblWeekPlan"
Set rsTarget = CurrentDb.OpenRecordset("tblWeekPlan", dbOpenDynaset)
For i = 1 To 25
rsTarget.AddNew
rsTarget.Fields("iNum") = i
rsTarget.Update
Next

For i = 1 To 7
Set rsSource = CurrentDb.OpenRecordset("SELECT QryPrint.* FROM QryPrint WHERE DietCode =" & [DietID] & " AND DayCode =" & i & " ORDER BY [Type of Meal]")
If rsSource.RecordCount Then
If tmpMax < rsSource.RecordCount Then tmpMax = rsSource.RecordCount
rsSource.MoveFirst
rsTarget.MoveFirst
For x = 1 To rsSource.RecordCount
rsTarget.FindFirst "iNum=" & x
rsTarget.Edit
TheFood = Nz(DLookup("FoodName", "tblFoodAnalysis", "[FoodID]=" & rsSource.Fields("Food")))
rsTarget.Fields("MealCat") = Nz(rsSource.Fields("[Type of Meal]"), "")
rsTarget.Fields("d" & i) = TheFood & " - " & Nz(rsSource.Fields("Conc"), "")
rsTarget.Update
rsSource.MoveNext
Next
End If
Next
CurrentDb.Execute "DELETE * FROM tblWeekPlan WHERE iNum > " & tmpMax
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
  #2  
Παλιά 09-07-14, 14:23
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.737
Προεπιλογή

Καλησπέρα

Γιώργο, το λάθος μπορεί να οφείλεται:

1) Σε λανθασμένη αναγραφή των ονομάτων των πεδίων (DietCode, DietID) .

2) Στον τύπο δεδομένων των πεδίων.

Ο κώδικας που έγραψες ισχύει για αριθμητικά πεδία.

Αν τα πεδία είναι κειμένου θα πρέπει να αλλάξει στον:

DietCode ='" & [DietID] & "' AND DayCode =" ........

Αν είχες ανεβάσει ένα δείγμα της ΒΔ θα ήταν γνωστά και τα ονόματα των πεδίων και ο τύπος τους.

Αν δεν κάνω λάθος, για κάποιους λόγους (τους σέβομαι) αποφεύγεις το ανέβασμα δειγμάτων της δουλειάς σου.

Αυτό, όπως καταλαβαίνεις, αποτρέπει αρκετούς χρήστες να ασχοληθούν με το πρόβλημά σου και συνεπώς περιορίζει τις πιθανότητες βοήθειας.

Φιλικά/Γιώργος
  #3  
Παλιά 09-07-14, 15:23
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 744
Προεπιλογή

Γιώργο μου σε χαιρετώ,

Σε ευχαριστώ πολύ για τις πληροφορίες. Όντως, και έχεις δίκιο στο θέμα του κώδικα που έγραψα. Τελικά η λύση ήταν αυτή που τυχαίως αναφέρεις και εσύ, δηλαδή το είδος του πεδίου ήταν text και όχι number..

Έλυσα τελικά το πρόβλημα διαμορφώνωντας τον κώδικα και είναι εντάξει (τουλάχιστον προκαταρτικά φαίνεται να δουλεύει).

Σε κάθε περίπτωση σε ευχαριστώ και πάλι.

Φιλικά
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
Κλειστό Θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Πρόβλημα σε κώδικα vba ΑΛΕΞΙΑ Access - Ερωτήσεις / Απαντήσεις 1 12-10-15 17:05
Πρόβλημα με κώδικα VBA γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 17 08-10-14 17:04
Τακτοποίηση των βρόχων στο κώδικα στην access 2003 alex Access - Ερωτήσεις / Απαντήσεις 2 07-10-13 11:21
Πρόβλημα σε κώδικα jimrenoir Access - Ερωτήσεις / Απαντήσεις 2 10-05-11 15:50
[ Φόρμες ] Βοήθεια στην σύνταξη κώδικα για combo box σε φόρμα. Ιρις Access - Ερωτήσεις / Απαντήσεις 2 13-01-11 11:54


Η ώρα είναι 07:20.