Iskanje vrednosti z gumbom ob besedilu
S kontrolnikom WklButtonEdit, vezanim na polje obrazca, uporabnik vrednost vnese sam ali jo pridobi z gumbom:
poišče račun Windows v iskalnem pogovornem oknu, preizkusi niz povezave ali zamenja skrivnost.
Zahteva WKL Forms Object Library 1.43 ali novejšo različico.
Pregled rešitve
- Vežite ga kot polje z besedilom: Vir kontrolnika (
ControlSource) navaja polje. - Gumb sproži
ButtonClick; vaša procedura odpre pogovorno okno in rezultat zapiše v polje (zapis se spremeni in shrani kot pri vsakem urejanju) ter vValue(kontrolnik ga takoj prikaže). - Skrivnosti kot besedilo samo za branje: nastavite
TextEditable = FalseinPasswordMask = True, gumbu pa dajte napis „Spremeni…“.PasswordMaskskrije samo prikaz: v vezanem polju in vValueje vrednost še vedno navadno besedilo.
Izvedba
Obrazec frmIdentity, vezan na tblIdentity, s kontrolnikom WklButtonEdit btnAccount, vezanim na polje Account:
' Once, in design view (or on the designer's page Gumb); saved with the form.
With Forms!frmIdentity!btnAccount
.ControlSource = "Account"
.Object.ButtonText = "Poišči račun"
.Object.Caption = "Račun Windows"
End With
' Module of frmIdentity: the button fetches the account.
Private Sub btnAccount_ButtonClick()
Dim account As String
account = InputBox("Račun Windows (DOMAIN\Name):", "Poišči račun", Nz(Me!Account, ""))
If Len(account) = 0 Then Exit Sub
Me!Account = account ' the field: the record is now changed (dirty)
Me!btnAccount.Object.Value = account ' the control: shows it at once
End Sub
Skrivnost, ki jo zamenja samo vaše lastno pogovorno okno:
With Forms!frmIdentity!btnSecret.Object
.TextEditable = False
.PasswordMask = True
.ButtonCaption = "Spremeni..."
.ButtonText = "Spremeni skrivnost"
End With
Opombe
- Med uporabnikovim tipkanjem berite kontrolnik. Kontrolnik vsako spremembo sporoči Accessu, ki jo ob shranjevanju zapisa prebere v polje; do takrat ima
Me!Accountlahko še prejšnjo vrednost (enako kot pri vezanemWklToggleSwitch). - Locked in AllowEdits. Zaklenjen kontrolnik (
Locked) ali obrazec zAllowEdits = Falsezavrne tipkanje; gumb še vedno sprožiButtonClick, zato v proceduri preveriteMe.AllowEdits, kadar bi pogovorno okno spremenilo zapis. - Esc vrne vrednost pred uporabnikovo prvo spremembo; drugi Esc obdela Access, ki razveljavi spremembe zapisa.
- Ne v odseku s podrobnostmi neprekinjenega obrazca: Access tam ustvari en sam primerek; v seznamu uporabite stolpec kontrolnika
WklGrid.
Sorodne teme
sl/wiki/msaccess/comctl/how-to/look-up-a-value-with-a-button.txt · Zadnja sprememba: uporabnika Wolfgang van der Stille