Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > [ Συναρτήσεις ] Σφάλμα σύνταξης

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

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 31-01-18, 15:00
Όνομα: Λάμπρος
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-11-2017
Μηνύματα: 20
Προεπιλογή Σφάλμα σύνταξης

Καλημέρα και ευχαριστώ για τον χρόνο σας

Κάπου υπάρχει λάθος αλλά δεν μπορώ να το εντοπίσω

Θελω τις εξείς περιπτώσεις :
Αν
1.([DA5a]<0 And [DA5b]<0 And [ΔιαφΑ6Δ]<0)
Να κάνει την πράξη
[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a]+[DA5b]+[ΔιαφΑ6Δ]
2.([DA5a]<0 And [DA5b]<0)
Να κάνει την πράξη
[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a]+[DA5b]
3.([DA5a]<0 And [ΔιαφΑ6Δ]<0)
Να κάνει την πράξη
[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a]+[ΔιαφΑ6Δ]
4.([DA5b]<0 And [ΔιαφΑ6Δ]<0)
Να κάνει την πράξη
[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5b]+[ΔιαφΑ6Δ]
5.[DA5a]<0
Να κάνει την πράξη
[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a]
6.[DA5b]<0
Να κάνει την πράξη
[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5b]
7.[ΔιαφΑ6Δ]<0
Να κάνει την πράξη
[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[ΔιαφΑ6Δ]

Αλλιώς αν δεν συντρέχουν όλα τα παραπάνω να κάνει την πράξη

[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]


Η συνάρτηση που εχω φτιάξει είναι η κάτωθι :
(μου βγάζει σφάλμα σύνταξης(κόμμα))
που εχω κάνει λάθος ?


R2: IIf(([DA5a]<0 And [DA5b]<0 And [ΔιαφΑ6Δ]<0);[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a]+[DA5b]+[ΔιαφΑ6Δ];iif(([DA5a]<0 And [DA5b]<0);[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a]+[DA5b];iif(([DA5a]<0 And [ΔιαφΑ6Δ]<0);[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a]+[ΔιαφΑ6Δ];iff(([DA5b]<0 And [ΔιαφΑ6Δ]<0);[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5b]+[ΔιαφΑ6Δ];iff(([DA5a]<0;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a];iff(([DA5b]<0;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5b];iff(([ΔιαφΑ6Δ]<0;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[ΔιαφΑ6Δ];[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ])))))))
Απάντηση με παράθεση
  #2  
Παλιά 31-01-18, 16:34
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

Λάμπρο, είναι δύσκολο να ακολουθήσει και να δοκιμάσει κάποιος το λαβύρινθο που ανέβασες.

Πάντως στην τελευταία γραμμή, θα πρέπει να αντικαταστήσεις το [[A5a] με το [A5a].

Πιο βολική θεωρώ στην περίπτωσή σου τη συνάρτηση Switch.

Κώδικας:
R2: Switch([DA5a]<0 And [DA5b]<0 And [ΔιαφΑ6Δ]<0;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a]+[DA5b]+[ΔιαφΑ6Δ];
	[DA5a]<0 And [DA5b]<0;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a]+[DA5b];
	[DA5a]<0 And [ΔιαφΑ6Δ]<0;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a]+[ΔιαφΑ6Δ];
	[DA5b]<0 And [ΔιαφΑ6Δ]<0;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5b]+[ΔιαφΑ6Δ];
	[DA5a]<0;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5a];
	[DA5b]<0;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[DA5b];
	[ΔιαφΑ6Δ]<0;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ]+[ΔιαφΑ6Δ];
	True;[ΑυτΥπολ_Δ_Δοσ]+[ΑυτΥπΑ5a]+[ΑυτΥπΑ5b]+[ΑυτΥπολΕντΑ6_Δ_Δοσ]+[A5a]+[A5b]+[ΕντυποΑ6_Δ_Δοσ])
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Σφάλμα σε ActiveX για PDF γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 6 19-06-17 16:53
Σφάλμα δέσμης ενεργειών alex Access - Ερωτήσεις / Απαντήσεις 5 29-04-17 17:28
Σφάλμα σε κώδικα Dimitriss Access - Ερωτήσεις / Απαντήσεις 2 04-01-16 02:02
[ Φόρμες ] Σφάλμα σε κώδικα xristos Access - Ερωτήσεις / Απαντήσεις 0 31-12-13 21:52
σφάλμα στη συννένωση κριτηρίων amy Access - Ερωτήσεις / Απαντήσεις 10 13-03-10 22:14


Η ώρα είναι 19:34.