Navigationsknapper

Ja du kan bare bruge gaiden til at lave dine knapper med. der er også flere muglighedder.
PS. du kan også fjerne dem i bunden.
Vh Henrik

Jeg vil også gerne lave det for dig. Min email er:
oz1bua@wanadoo.dk
Vh Henrik

Hej Henrik

Jeg fik ikke udtrykt mig klart nok. Det med guiden er nemt nok, men når du holder Access egen navigationsknap nede repeterer den?

Mvh. Vanni

Så skriv en vba kode, hvor der skal nyt klik til postskifte.
Vh Henrik

Den skal så ligge for hver knap, der skal spærres.
Vh Henrik

Hej Henrik

Access egne knapper skifter poster indtil du slipper knappen, man klikker kun een gang - jeg tænkte, det var en hændelse jeg ikke havde styr på.

Mvh. Vanni

Ja. men din løsning ligger i at slette de faste knapper, og selv oprette nogle, hvor du kan lave dine egne betingelser for knapperne.
Vh Henrik

Hej Henrik

Ok, hvordan får du repetionen til at fungere? Har du et kodeeksempel?

Mvh. Vanni

Nej ingen kode nu. Men de hjemmelavede knapper reagere ikke på at mousen holdes nede. Men sættes enter på knappen, så løber posterne vildt der ud af.
Eneste muglighed er at spærre enter, ved knapperne, det arbejder jeg på nu. Du må godt svarre på om det er acceptabelt, inden jeg laver koden.
Vh Henrik

Koden er, for en post frem:
Private Sub Tekst0_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode <= 20 Then
    Resume Next
 
Else
  DoCmd.GoToRecord , , acNext
  'Dette er for knappen en post frem
   
End If
End Sub

Enter er kun disæblet ved knapperne.
Men jeg kan sende en demo af systemet bare skriv.
Vh Henrik

Hej Henrik

Fandt ud af det - man kan slå automatisk gentagelse fra eller til. Den er default slået fra.

dim u as double
Private Sub Kommandoknap_Click()
    u = Timer
    Do While Timer < u + 0.1
        DoEvents
    Loop
    t = t + 1
    [Tæller] = t
End Sub

Mvh. Vanni

>Vanni
Den kunne jeg godt tænke mig at få en demo af. Da jeg ikke kan få den til at virke.
VH Henrik

Hej Henrik

Den er sendt.

Mvh. Vanni

Hej Henrik

Jeg kan åbbenbart ikke sende mail lige nu, men jeg klister koden ind her:

Option Compare Database
Option Explicit
Dim t As Integer

Private Sub Form_Load()

    t = 0
    [Tæller] = t
   
End Sub

Private Sub Test_Click()

    Dim u As Double
    u = Timer
    Do While Timer < u + 0.1
        DoEvents
    Loop
    t = t + 1
    [Tæller] = t

End Sub

Mvh. Vanni

>Vanni
Jeg bliver ved med at få Compiler fejl, så du må godt sende den når du kan, får så lærte jeg også noget i dag.
VH Henrik

Hej Henrik

Har du modtaget databasen nu?

Mvh. Vanni

Nej det har jeg desværre ikke.
Vh Henrik

Hej Henrik

Nu gled databasen afsted uden brok!

Mvh. Vanni

>Vanni
Nu har jeg modtaget. Tak for tilsendte.
Vh Henrik

vanni>Any chance of a copy too? eksperten@santhell.dk

vanni > Jeg er ikke helt med på, hvad I mener. Er du venlig at sende en kopi til: mugs@mail.dk

Hej terry & mugs

Har lige sendt databasen - er interesseret i kommentarer!

Henrik - hvad siger du til det?

Mvh. Vanni

>vanni
Ja når jeg holder knappen nede, teller den bare der ud af. Så jeg kan ikke se det virker.
Vh Henrik

>mugs

Glæder mig, for så virker det, som jeg havde tænkt mig. Det var det, der var ideen. I min A2K er knapperne lavet med guide ikke repeterende.

Mvh. Vanni

Hi all,
Looked at Vanni's db and it does what he wants, but so does the following. What the timer is doing is slowing things down a bit so that you dont fall off the end of your recordset :o)

[Tæller]= [Tæller] + 1
DoEvents

>terry

Det var dejlig simpel løsning. Har forsøgt at implementere repeteringen sammen med "DoCmd.GoToRecord , , acNext" men det virker kun delvist - har du en idé?

[Tæller]= [Tæller] + 1
DoEvents
DoCmd.GoToRecord , , acNext

Mvh. Vanni

>terry
Måtte jeg også få den demo.
Vh Henrik

>Henrik, jeg har kun ændret vanni's code fra

Private Sub Test_Click()

    Dim u As Double
    u = Timer
    Do While Timer < u + 0.1
        DoEvents
    Loop
    t = t + 1
    [Tæller] = t

End Sub

til
Private Sub Test_Click()

    [Tæller]= [Tæller] + 1
    DoEvents

End Sub

vanni, what do you mean "delvist"?

you could also use
Private Sub Form_Load()

    [Tæller] = 0
   
End Sub


Private Sub Test_Click()

    Dim u As Double
    u = Timer
    Do While Timer < u + 0.1
        DoEvents
    Loop
    [Tæller] = [Tæller]+1

End Sub

vanni < Jeg har ikke fået set på din db endnu. Men hvis formålet med alt dette er, at Tæller skal tælle en op, hver gang d tilføjer en ny post, kman du indsætte terry's kode i formularens OnmCurrent event, og evt. tilføje:

If Mr.NewRecord Then
terry's kode
End If

Og så kan jeg ikke stave:

If Me.NewRecord Then
terry's kode
End If

>terry
Jeg mister "repetitionen", hvis jeg indsætter "DoCmd.GoToRecord , , acNext"

Mvh. Vanni

mugs>

Hele ideen var at undgå Access egne navigationsknapper til bladre igennem et sæt poster, men at bruge mine egne knapper med repetition.

Så terrys kode kører bare:

Private Sub Test_Click()

    [Tæller]= [Tæller] + 1
    DoEvents

End Sub

Men når jeg ændrer koden til:

Private Sub Test_Click()

    [Tæller]= [Tæller] + 1
    DoEvents
    DoCmd.GoToRecord , , acNext

End Sub

Går det ligesom i stå. Tæller bliver godt nok inkrementeret, men man kan først se det, når man slipper museknappen! Og "DoCmd.GoToRecord , , acNext" virker ikke i denne sammenhæng.

Hilsen Vanni