Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 29-09-14, 16:54
kapetang Ο χρήστης kapetang δεν είναι συνδεδεμένος
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

Δήμο, δοκίμασε το εξής:

1) Δήλωσε μια μεταβλητή επιπέδου φόρμας (έξω από ρουτίνες)

DIM blnEXit As Boolean

2) Στη ρουτίνα του κουμπιού EXODOS, πρόσθεσε την εντολή:

blnExit=TRUE.

3) Στην αρχή του κώδικα της ρουτίνας KATHGORIA_Exit, πρόσθεσε τον κώδικα.

If blnExit Then
blnExit=FALSE
Exit Sub
End If

Φιλικά/Γιώργος