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

[artchrist73]

καλησπερα !!

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

[tsgiannis]

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

[artchrist73]

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


Private Sub pliktro_Click()

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

[vraxnakisg]

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

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

Σβήσε την γραμμή 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

Ευχαριστώ

[artchrist73]

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

[pakos]

test.SetFocus
pliktro.Enabled = False

ή
test.SetFocus
pliktro.Visible= False

[artchrist73]

Αρχική Δημοσίευση από pakos

test.SetFocus
pliktro.Enabled = False

ή
test.SetFocus
pliktro.Visible= False

ΚΑΛΗΜΕΡΑ pakos

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

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

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




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

[pakos]

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

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

[pakos]

δηλαδη

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

[pakos]

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