[ACCESS] Send Keys

[hankleppe]

Ik heb de volgende code voor het invoegen van bijv º ø

code:

    Screen.PreviousControl.SetFocus
    SendKeys "ø"

Als ik de code run vervangt ø de inhoud, maar deze moet toegevoegd worden.

Google en F1 gebruikt, maar niks kunnen vinden

[Lustucru]

Kijk even naar de selstart en sellength properties van een textbox; en imho kun je beter het textboxje manipuleren dan sendkeys gebruiken als in .value=.value & char

[hankleppe]

Niesje schreef op donderdag 02 juni 2005 @ 10:43:
Kijk even naar de selstart en sellength properties van een textbox; en imho kun je beter het textboxje manipuleren dan sendkeys gebruiken als in .value=.value & char

Hmm ik heb het geprobeerd adhv F1 maar heeft niet het gewenste resultaat. De tekst moet achter de bestaande tekst komen, met eventueel een spatie ertussen.

code:

    Screen.PreviousControl.SetFocus
    SelStart = -5
    SendKeys "±"

Is dit niet mogelijk met sendkeys?

offtopic:
Goedemorgen Niesje, kopje koffie?

[ Voor 7% gewijzigd door hankleppe op 02-06-2005 11:09 ]

[Lustucru]

Sendkeys werkt ook, alleen heb ik er iets op tegen om 'zomaar' wat tekens te versturen als exact duidelijk is wat ik wil, namelijk een textboxje manipuleren. Overigens krijg je met .selstart en .value errors als de gebruiker bv van een andere knop afkomt. Dat zou je dus moeten afvangen met een check op controltype of _{on error resume next.}

code:

with screen.previouscontrol
        .text=.text & "ø"
       ' of:
        .setfocus
        .selstart = len(.text)
        sendkeys "ø"
end with

offtopic:
na, dank je, moet werken

[hankleppe]

Zou ik je een voorbeeld mdb bestand mogen toemailen? Ik krijg het na veel gepuzzel niet voor elkaar...

offtopic:
http://www.nestle.nl/nesc...ermee/www/sample_zelf.asp

[Lustucru]

doe maar (btw: 'klees geen access2k3 of xp) . zie mijn profiel.

offtopic:
noem je dat ook al koffie?

[ Voor 21% gewijzigd door Lustucru op 02-06-2005 13:03 ]

[hankleppe]

The file has left the building

offtopic:
Is dit dan wat je bedoeld? http://www.marktplaats.nl...ffiemolen%26fo%3D%26pv%3D

[ Voor 44% gewijzigd door hankleppe op 02-06-2005 14:31 ]

[Lustucru]

Drie oplossingen voor één probleem.

Visual Basic:

Option Compare Database
Option Explicit

Private Sub Knop92_Click()
    On Error GoTo err_click
    With Screen.PreviousControl
    .SetFocus
    .SelStart = Len(.Text)
    End With
    SendKeys "º"
    Exit Sub
err_click:
    'foutafhandeling
End Sub

Visual Basic:

Private Sub Knop95_Click()
    On Error GoTo err_click
    With Screen.PreviousControl
    .SetFocus
    .Text = .Text & "±"
    .SelStart = Len(.Text)
    End With
    Exit Sub
err_click:
    'foutafhandeling
End Sub

Visual Basic:

Private Sub Knop96_Click()
    On Error GoTo err_click
    Dim FocusOptie As Integer
    FocusOptie = GetOption("Behavior Entering Field")
    SetOption "Behavior Entering Field", 2
    Screen.PreviousControl.SetFocus
    SendKeys "ø"
    SetOption "Behavior Entering Field", FocusOptie
    Exit Sub
err_click:
    'foutafhandeling
End Sub

Ik vind het toch stug dat je dit niet zelf kon produceren mbv mijn eerdere post. Vooral die derde mogelijkheid geeft aan waar het probleem zit: de instelling wat er moet gebeuren als een veld de focus krijgt is gewoon een access instelling. Nofi, maar dat had je zelf ook kunnen vinden.

offtopic:
De vraag is wat je in je koffie doet. Een betablokker?

[hankleppe]

Niesje, thanks a lot! Ik gebruik je 3e oplossing en het werkt perfect!
Persoonlijk vond ik dat de F1 knop nogal summier was over de opties. Wat je bijvoorbeeld met "Behavior Entering Field" is me nog steeds niet duidelijk, maar dat maakt niet uit. Het werkt

Nogmaals, thanks!

[Boss]

Waarom niet gewoon eerst een SendKeys "{right]", dan staat je cursor aan het einde van het veld...

Of heb ik de vraag niet goed gelezen?

[hankleppe]

hmm Boss, had ook gekund. In ieder geval weer geleerd!

[Lustucru]

Boss schreef op donderdag 02 juni 2005 @ 18:41:
Waarom niet gewoon eerst een SendKeys "{right]", dan staat je cursor aan het einde van het veld...

Of heb ik de vraag niet goed gelezen?

Daarom houd ik niet zo van sendkeys. In een standaardinstallatie staat dan de cursor in het volgende veld.