Ανενεργό πλήκτρο
 

καλησπερα !!

θα μπορουσε καποιος να με βοηθησει με το πατημα του πληκτρου το ιδιο το πλήκτρο να γινεται ανενεργο;;;

:036:

To μήνημα λάθους στο λέει
pliktro.SetFocus
pliktro.Enabled = False

γιατι εμένα συνεχιζει να το κανει το προβλημα ??? :fryingpan:


Private Sub pliktro_Click()

pliktro.SetFocus 'χρειάζεται για να μεταφερθεί η εστίαση
pliktro.Enabled = False 'από το κουμπί πριν γίνει αόρατο
End Sub

:036::036:

Καλησπέρα σας,

Χρονιά Πολλά!!!

Σβήσε την γραμμή pliktro.SetFocus

Και δοκίμασε

Private Sub pliktro _Click()
Me.pliktro.Enabled = False
End Sub

Αλλιώς βαλέ εδώ

Private Sub pliktro _MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.pliktro.Enabled = False
End Sub

Ευχαριστώ

ουτε το ενα ουτε το αλλο !!!!!!

:sntoup::sntoup::sntoup::sntoup::baaa:

test.SetFocus
pliktro.Enabled = False

ή
test.SetFocus
pliktro.Visible= False

ΚΑΛΗΜΕΡΑ pakos

Το test που υπάρχει ;
επίσης είναι μέσα στο click του πλήκτρου,
δηλαδή έτσι...

Private Sub KOUMPI_Click()
test.SetFocus
pliktro.Enabled = False
End Sub

...γιατί έτσι δεν λειτουργεί τίποτε!!!!
Ευχαριστώ πολύ πάντως που ασχολήθηκες.


:036::036::036::036::036::036::036::036:

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

χρονια πολλα και καλες γιορτες
μεσα στη φορμα εχεις ενα πεδιο test= santimentos
θα κανεις setfocus το πεδιο που εχει τιμη "Santimentos"

Private Sub KOUMPI_Click()
ΤΟ ΠΕΔΙΟ ΜΕ ΤΙΜΗ santimentos.SetFocus
pliktro.Enabled = False
End Sub

δηλαδη

Me.pedio.setfocus 'για να φυγει η εστιαση απο το κουμπι και μετα
me.pliktro.Enabled = False 'για να γινει ανενεργο ή
me.pliktro.Visible= False 'για να γινει αποκρυψει

αρχειο για δοκιμη
 

αρχειο για δοκιμη