[ Φόρμες ] Μεταβολή στην συνάρτηση iif()

[NIC]

Παιδιά καλησπέρα και χρόνια πολλά. Είχα βρει ένα αρχείο παλιότερα στο forum που μου έκανε την δουλεία πολύ καλά αλλά διαπίστωσα ένα περιττό βήμα το οποίο δεν ξέρω πώς να παρακάμψω. Αφού βγάζει κανονικά και σωστά μήνυμα όταν υπάρχει κόλλημα σε κάποιο ορισμό βγάζει και μήνυμα σωστού ορισμού όταν δεν υπάρχει κόλλημα. Αυτό το δεύτερο εκτός από περιττό είναι και λίγο ενοχλητικό. Υπάρχει τρόπος να μην βγαίνει; Ευχαριστώ

[Meteora]

Καλησπέρα

Νίκο, αντικατέστησε τον κώδικα των γραμμών μηνυμάτων με κάτι σαν αυτό εδώ:

If intCount <> 0 Then MsgBox "Πρόβλημα!", vbCritical, "ΕΛΕΓΧΟΣ"

Να επαναλάβεις την διαδικασία αντικατάστασης και στις τρεις ρουτίνες

Με εκτίμηση

Νίκος Δ.

[NIC]

Παιδιά λόγο διακοπών στην Λευκάδα άργησα να το δοκιμάσω. Δούλεψε πολύ καλά και σας ευχαριστώ πολύ για αυτό.