Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Φόρμες ] Αύξουσα αρίθμηση σε πεδίο φόρμας (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1181-aiksoysa-arithmisi-se-pedio-formas.html)

Meteora 30-05-11 20:39

Αφαίρεσε την εντολή που ήδη έχεις και ...

Κώδικας:

if me.ΝΟΜΟΣ="ΑΤΙΚΗ" or me.ΝΟΜΟΣ="ΑΤΙΚΗΣ" then
 me.[ΑΛΛΗΛΟΓΡΑΦΙΑ]="ΝΑΙ"
else
me.[ΑΛΛΗΛΟΓΡΑΦΙΑ]="ΟΧI"
end if

Πρόσεχε πάλι στο 'ΝΑΙ' και στο 'ΟΧΙ'

Αυτά αγαπητέ μου...

mgeorge 30-05-11 20:58

Είναι εντάξει,
Σε ευχαριστώ και πάλι.

mgeorge 31-05-11 20:49

Καλησπέρα σε όλους τους φίλους του forum.
Επανήλθα και χρειάζομαι ξανά την βοήθειά σας.

Χρησιμοποιώ την πιο πάνω εντολή και στο πεδίο (ΕΤΑΙΡΙΑ) ως εξής

if me.ΕΤΑΙΡΙΑ="DEMCO" or me.ΕΤΑΙΡΙΑ="ΕΘΝΙΚΗ" then
Me.[ΝΟΜΙΚΗ_ΠΡΟΣΤΑΣΙΑ] = "ΙΣΧΥΕΙ"
Else
Me.[ΝΟΜΙΚΗ_ΠΡΟΣΤΑΣΙΑ] = ""
End If

Το ερώτημα είναι πως επιλέγοντας ΕΘΝΙΚΗ από το πεδίο ΕΤΑΙΡΙΑ να μπαίνει το ΙΣΧΥΕΙ και στο πεδίο [ΟΔΙΚΗ ΒΟΗΘΕΙΑ] = "ΙΣΧΥΕΙ".

Meteora 01-06-11 10:51

Καλημέρα

Γιώργη, χαλάλι στο κουράγιο σου. Δεν το βάζεις κάτω. Αλλά με το διάβασμα δεν έχεις καλές σχέσεις...

Πρίν τη γραμμή του else γράψε : me.[ΟΔΙΚΗ ΒΟΗΘΕΙΑ] = "ΙΣΧΥΕΙ" και αμέσως μετά την γραμμή του: me.[ΟΔΙΚΗ ΒΟΗΘΕΙΑ] = ""

Με εκτίμηση

Νίκος Δ.

mgeorge 01-06-11 15:26

Καλησπέρα Νίκο,το παλεύω αλλά από κώδικα δεν έχω ιδέα,θα βρω πιστεύω κάποια στιγμή τον χρόνο και την διάθεση να κάτσω να μελετήσω και να μάθω κάποια πράγματα.

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

Θέλω όταν επιλέγω από το πεδίο ΕΤΑΙΡΙΑ την (DEMCO) να αναγράφεται μόνο στο πεδίο ΝΟΜΙΚΗ ΠΡΟΣΤΑΣΙΑ (ΙΣΧΥΕΙ) .

Όταν επιλέγω από το πεδίο ΕΤΑΙΡΙΑ την (ΕΘΝΙΚΗ) να αναγράφεται στο πεδίο ΝΟΜΙΚΗ ΠΡΟΣΤΑΣΙΑ (ΙΣΧΥΕΙ) αλλά και στο πεδίο ΟΔΙΚΗ ΒΟΗΘΕΙΑ (ΙΣΧΥΕΙ).

Meteora 01-06-11 18:26

Καλησπέρα

Αν επιλέξεις μια τρίτη ΕΤΑΙΡΕΙΑ, παράδειγμα την 'ΑΣΤΕΡΑΣ" τι πρέπει να γίνει, Γιώργη;

mgeorge 01-06-11 19:14

Τι εννοείς;

Σε κάποια τρίτη Εταιρία π.χ ο Αστέρας μπορεί να πρέπει να μπεί η ένδειξη ΙΣΧΥΕΙ μόνο στο πεδίο ΟΔΙΚΗ ΒΟΗΘΕΙΑ κ.λ.π,φαντάζομαι πως βλέποντας την λογική του κώδικα για να γίνεται το παραπάνω μπορώ μετά να κάνω και τα ανάλογα για τις άλλες Εταιρίες.

Meteora 01-06-11 22:04

Γιώργη,
Δες τη παρακάτω δομή και προσάρμοσέ την στην εφαρμογή σου.

Κώδικας:

select case me.ΕΤΑΙΡΕΙΑ
  case "DEMCO"
        Me.[ΝΟΜΙΚΗ_ΠΡΟΣΤΑΣΙΑ] = "ΙΣΧΥΕΙ"
  case "ΕΘΝΙΚΗ"
        Me.[ΝΟΜΙΚΗ_ΠΡΟΣΤΑΣΙΑ] = "ΙΣΧΥΕΙ"
        me.[ΟΔΙΚΗ ΒΟΗΘΕΙΑ] = "ΙΣΧΥΕΙ"   
  case "ASTERAS"
        <γράψε τι θες>
end select

Καλό βράδυ σε όλους μας...

Με εκτίμηση

Νίκος Δ.

mgeorge 01-06-11 22:33

Σε ευχαριστώ πολύ Νίκο,
Καλό βράδυ!!


Η ώρα είναι 21:36.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2