Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Office > Visual Basic for Applications (VBA) > [Access - VBA] Ορισμός τιμής σε πεδίο

Visual Basic for Applications (VBA) Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της VBA.

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 10-02-11, 10:04
Όνομα: ΓΙΩΡΓΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-02-2010
Μηνύματα: 40
Προεπιλογή Ορισμός τιμής σε πεδίο

Καλημέρα σας!
Έχω μία φόρμα στην οποία θέλω γράφοντας μια οποιαδήποτε τιμή σε ένα πεδίο Α, να εμφανίζεται σε άλλο πεδίο Β μια ορισμένη τιμή. Πχ after update: if Α = οτιδήποτε then Β = 2010. Το "οτιδήποτε" πως συμβολίζεται;
Ευχαριστώ πολύ
Απάντηση με παράθεση
  #2  
Παλιά 10-02-11, 13:14
Όνομα: Μάριος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 07-07-2009
Μηνύματα: 20
Προεπιλογή

Γιώργο καλησπέρα,
Δοκίμασε να ελέγξεις αν το Α ΔΕΝ είναι κενό, δηλαδή A <> ""
Απάντηση με παράθεση
  #3  
Παλιά 10-02-11, 16:20
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 606
Προεπιλογή

Καλησπέρα...

Το "οτιδήποτε" συμβολίζεται με το : not isNull(OnomaPediou)

Με εκτίμηση

Νίκος Δ.
Απάντηση με παράθεση
  #4  
Παλιά 10-02-11, 17:51
Όνομα: ΓΙΩΡΓΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-02-2010
Μηνύματα: 40
Προεπιλογή Ευχαριστώ

Σας ευχαριστώ για τις απαντήσεις αλλά δεν δούλεψαν. Τελικά επειδή στο πεδίο μπαίνουν αριθμοί κατέληξα στο εξής τρυκ.

If Α >= 1 Then Β = 2009
If Α = " " Then Β = 2011
Απάντηση με παράθεση
  #5  
Παλιά 10-02-11, 20:05
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 606
Προεπιλογή

Καλησπέρα...

Γιώργο, γράψε πως χρησιμοποίησες την συνάρτηση που σε πρότεινα και τί περιεχόμενα δέχονται τα πεδία σου (Αριθμητικά, αλφαριθμητικά,...).

Νίκος Δ.
Απάντηση με παράθεση
  #6  
Παλιά 10-02-11, 20:53
Όνομα: ΓΙΩΡΓΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-02-2010
Μηνύματα: 40
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από Meteora Εμφάνιση μηνυμάτων
Καλησπέρα...

Γιώργο, γράψε πως χρησιμοποίησες την συνάρτηση που σε πρότεινα και τί περιεχόμενα δέχονται τα πεδία σου (Αριθμητικά, αλφαριθμητικά,...).

Νίκος Δ.
Δοκίμασα όλες τις εκδοχές. not isNull(Α) then B = 2010, A= not isNull then B = 2010,
not is Null (A), not is Null [A], αλλά καμία δεν δούλεψε.
Στο πεδίο μπαίνουν αριθμοί.
Απάντηση με παράθεση
  #7  
Παλιά 11-02-11, 13:57
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 606
Προεπιλογή

Καλημέρα...

Κώδικας:
Private Sub Α_AfterUpdate()
    Me.Β = IIf(Not IsNull(Me.Α), 2010, 2001)
End Sub
Τα γράμματα Α και Β είναι Ελληνικά.

Μπορείς και έτσι

Κώδικας:
 
If nz(me.A,0) = 0 then 
me.B = 12345
else
me.B = 54321
end if
Με την προυπόθεση ότι δεν θα κάνεις χρήση της μηδενικής τιμής στο πεδίο Α.

Αυτά...

Νίκος Δ.
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Φόρμες ] ΟΡΙΣΜΟΣ ΤΙΜΗΣ artchrist73 Access - Ερωτήσεις / Απαντήσεις 5 05-11-11 09:21
Απόδοση τιμής Υπολογιζόμενου Πεδίου σε πεδίο πίνακα. foxone Access - Ερωτήσεις / Απαντήσεις 6 14-10-11 10:32
[ Πίνακες ] Ορισμός τυχαίου αριθμού σε πεδίο πίνακα dimitris p Access - Ερωτήσεις / Απαντήσεις 26 24-03-10 14:51
Εισαγωγή Τιμής απο Ένα πεδίο σε Άλλο athigb Access - Ερωτήσεις / Απαντήσεις 1 11-12-09 13:57
Διάβασμα τιμής απο πεδίο του 1ου Record ενός πίνακα - DAO Meteora Access - Ερωτήσεις / Απαντήσεις 1 10-04-09 13:25


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