πάτημα ενός κουμπιού με εντολή

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
aterzakis
Δημοσιεύσεις: 57
Εγγραφή: 28 Νοέμ 2007 00:06

πάτημα ενός κουμπιού με εντολή

Δημοσίευση από aterzakis » 05 Δεκ 2008 09:07

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

aterzakis
Δημοσιεύσεις: 57
Εγγραφή: 28 Νοέμ 2007 00:06

πάτημα ενός κουμπιού με εντολή

Δημοσίευση από aterzakis » 05 Δεκ 2008 11:38

κατι βρήκα
με Call onoma_Click?
είναι σε διαφοριτικές φόρμες-και οι 2 ανοιχτές όμως.
δηλαδή πχ το κλικ σε ένα κουμπί της form1 να προκαλέσει και το κλικ της form2. πώς μπορεί να γίνει?

Άβαταρ μέλους
kon73
Script Master
Δημοσιεύσεις: 224
Εγγραφή: 13 Απρ 2008 23:47
Επικοινωνία:

πάτημα ενός κουμπιού με εντολή

Δημοσίευση από kon73 » 05 Δεκ 2008 13:39

Φίλε Artezaki

Τα Events της φόρμας ακόμα και το απλό click ενός αντικειμένου είναι Private δηλαδή έχουν εμβέλεια φόρμας. Ότι θέλεις να κάνει το click μπορεις να το βάλεις σε ένα public Sub σε ένα module/Λειτουργικές Μονάδες ορίζοντας το πχ.

Κώδικας: Επιλογή όλων

Public Sub FrmClick()
' Κώδικας που τρέχει για το Click
End Sub
Το καλείς αυτό το FrmClick σωστά όπως ανέφερες με Call FrmClick σε όποιο event και σε όποια φόρμα θέλεις.

Φιλικά

kon73
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
Εικόνα

aterzakis
Δημοσιεύσεις: 57
Εγγραφή: 28 Νοέμ 2007 00:06

πάτημα ενός κουμπιού με εντολή

Δημοσίευση από aterzakis » 05 Δεκ 2008 19:05

ο κώδικας του κουμπιού είναι
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[code_asth] = " & Str(Nz(Me![aaa], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

άρα στο Public Sub FrmClick()
πρέπει αντί για Me ναι βάλω το όνομα της φόρμας?
γίνεται λίγο χαμός..
διαφορετικά εγώ σε ένα συμβάν αλλάζω την τιμή ενός αδέσμευτου πλαισίου και με το πάτημα του μουμιού έβρισκε την εγγραφή που είχε ίdio code. πώς θα μπορούσα αλλιώς να το κανω? δηλαδή τον κώδικα του κουμπιού να τον έβαζα σε κάποιο συμβάν του πλαισίου που ενημερώνεται..αλλά τα ε΄χω δοκιμα΄σει όλα και δεν παίζει..και με είσοδο, αλλαγή κτλ

Άβαταρ μέλους
kon73
Script Master
Δημοσιεύσεις: 224
Εγγραφή: 13 Απρ 2008 23:47
Επικοινωνία:

πάτημα ενός κουμπιού με εντολή

Δημοσίευση από kon73 » 05 Δεκ 2008 21:33

Φίλε artezaki

Πρέπει εφόσον ο παραπάνω κώδικας μπει σε Public Sub και σε Module / Λειτουργική μονάδα το me εδώ όντως να αλλαχθεί με αναφορά της Φόρμας. Επειδή είναι δύο διαφορετικές φόρμες μπορείς να αντικαταστήσεις το me με το Screen.ActiveForm.Name που σημαίνει το Όνομα της Φόρμας που είναι Ενεργή.
Όσο για το ποιο πεδίο να ψάχνει με ποια τιμή βάλτα σε μεταβλητές της Sub Δηλαδή

Κώδικας: Επιλογή όλων

Public Sub FrmClick(StrField, IDField as string)
rs.FindFirst "["& StrField & "] = " & Str(Nz(Forms(Screen.ActiveForm.Name).controls(IDField) , 0))
Φιλικά

Kon73
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
Εικόνα

Απάντηση

Επιστροφή στο “MS Access”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες