Ανανέωση ιστοσελίδας

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

Κλειστό Θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 14-07-15, 14:39
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 738
Προεπιλογή If Not IsNull

Χαιρετώ τους φίλους του φόρουμ,

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

Έγραψα τον πιο κάτω κώδικα έτσι ώστε με το άνοιγμα της φόρμας να δίνει τιμη σε ένα unbound πεδίο μέσω του οποίου αργότερα και εφόσον πάρει την ανάλογη τιμή προχωρά ο κώδικας και κάνει κάποιες διαδικασίες. Βασικά έχω το πεδίο [FirstName] το οποίο είναι text format και θέλω εφόσον ανοίξει η φόρμα και έχει τιμή (οποιοδήποτε όνομα δηλαδή) ο κώδικας να εκτελείται και να δίνει τιμή στο πεδίο [ctrName] έτσι ώστε α) εφόσον έχει τιμή να δίνει το 30 και β) εάν όχι το 0 (μηδέν)

Παραθέτω τον κώδικα και θα ήθελα τα φώτα σας έτσι ώστε να δώ που κάνω λάθος και δεν δουλεύει.

If Not IsNull(Me.FirstName) Then
Me.ctrName = 30
Else
Me.ctrName = 0
End If

Έχω δοκιμάσει επίσης και το
If Not IsNull(Me.FirstName) Then
Me.ctrName = 30
Else
If IsNull (Me.FirstName]
Me.ctrName = 0
End If
End If

Ευχαριστώ εκ προτέρων
  #2  
Παλιά 14-07-15, 17:48
Όνομα: ΓΙΩΡΓΗΣ
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-05-2013
Μηνύματα: 147
Προεπιλογή

Γιώργο αυτό που ζητάς μπορεί εύκολα να αποδοθεί με ερώτημα, αν το θέλεις στο πεδίο της φόρμας μπορείς να βάλεις στην προέλευση ελέγχου =IIf([FirstName] Is Null;0;30)
  #3  
Παλιά 14-07-15, 19:31
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 738
Προεπιλογή

Καλησπέρα Γιώργο και σε ευχαριστώ πολύ για την ενημέρωση και την βοήθεια,

Την συνάρτηση εννοείς να την βάλω στην προέλευση ελέγχου του unbound [ctrName] φαντάζομαι έτσι? Ένα τελευταίο Γιώργο, πως μετατρέπεται η συνάρτηση εάν θέλω να ελέγχει δύο πεδία εάν είναι κενά ή έτσω ένα απο τα δύο και να δίνει 3 τιμές?

Δηλαδή: σε ένα νέο unbound ας πούμε με όνομα [ControlValue] να γίνει μια συνάρτηση έτσι ώστε:
Εάν
α) το πεδίο [fTown] είναι κενό και τα πεδία [fName] και [fHeight] έχουν τιμή να παίρνω ας πούμε 100
β) εάν ολα τα πεδία έχουν τιμή δηλαδή [fTown],[fName],και [fHeight] δεν είναι κενά να παίρνουμε τιμή 1000
γ) εάν το [fTown] είναι κενό , το [fName] είναι κενό ,και [fHeight] έχει τιμή να παίρνουμε 200
δ) εάν το [fTown] είναι κενό, το [fName] εχει τιμή και [fHeight] δεν έχει να παίρνουμε 300
ε) Εάν το [fTown] έχει τιμή ,το [fName] δεν έχει ,και [fHeight] δεν έχει να παίρνουμε 500

Τα φώτα σου φίλε και σε ευχαριστώ προκαταβολικά
  #4  
Παλιά 14-07-15, 20:05
Όνομα: ΓΙΩΡΓΗΣ
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-05-2013
Μηνύματα: 147
Προεπιλογή

Γιώργο δεν ανεβάζεις ένα παράδειγμα να μη παιδεύουμε το μυαλό
  #5  
Παλιά 15-07-15, 09:25
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 738
Προεπιλογή

Καλημέρα Γιώργο μου,

Βρήκα φίλε μου την "άκρη του νήματος" ώς εξής:

=IIf([Height] Is Null And [fTown] Is Null;1000;7)
και το προχώρησα όπως χρειαζόμουν για την βάση μου, Σε ευχαριστώ για το ενδιαφέρον και την πολύτιμη βοήθεια σου.

Νάσαι καλά
Κλειστό Θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
IIf(Not IsNull([DATEOUT]);"0") ΚΩΣΤΑΣ2 Access - Ερωτήσεις / Απαντήσεις 8 09-01-13 21:12


Η ώρα είναι 12:26.