Løkke til vba.

variere antal?, en inputbox eller vis du fysisk skrive antallet, eller tilfældig antal.

vis = vil

for I = 1 to antal
DoCmd.Beep
next

Noget med i vba at skrive, <25

hvad mener du med mindre end 25 ???.

Forklar lidt mere.

At når den har beepet 24 gange stopper den.
Vh Henrik

for I = 1 to 24
DoCmd.Beep
next

Det giver kun 1 beep

Jeg forstår det ikke, min giver også kun 1 beep

Se her hvad er står i hjælp.

Beep Statement Example
This example uses the Beep statement to sound three consecutive tones through the computer's speaker.

Dim I
For I = 1 To 3    ' Loop 3 times.
    Beep    ' Sound a tone.
Next I

Ja jeg har rode med i 2 dage

Det er lidt snyd - og lyden bliver lidt mærkelig - men prøv med

For counter = 1 To numbeeps
    DoCmd.Beep
    SendKeys " ", 1
Next counter

SendKeys " ", 1 bruges bare til at lave en pause.

Nå ja, du kan altså også nøjes med at skrive beep (dvs. uden docmd).

ok, men selvom jeg skriver
beep
beep
beep

får jeg kun et beep

nb. access 2000

kabbak, Jeg kører xp

superjap
stadik et beep

Så prøv med denne her - den virker, men du kan selv justere lidt på længden mellem bip'ene.

Sub MultiBeep(numbeeps)
Dim counter, i
Dim start, slut As Date
    For counter = 1 To numbeeps
        DoCmd.Beep
        start = Now()
            slut = Now()
        Do Until slut > start + (0.01 / 3600 / 24)
            slut = Now()
        Loop
    Next counter
End Sub

superjap
Nu kommer den ud og spørger hvarfor en makro jeg vil kører.
Stadik kun et beep.
Vh Henrik

Prøv i første omgang at kigge på OnTimer i Visual Basic Help
og vend tilbage, hvis du kører fast.

Superjaps kode er god nok,
men husk at skrive tallet i stedet for "numbeeps".

Superjap > var det fordi at beep ikke var færdig med lyden, inden løkken er færdig, at man ikke hørte resten.
altså lyden skal være færdigspillet inden den kaldes igen, eller hva´

kabbak

Jeg aner det faktisk ikke. Jeg gættede på noget den retning, men af og oplevede jeg også at koden var afsluttet inden bippet kom. Så jeg forstår ikke hvad der sker - derfor bliver koden også lidt klodset.

henrik13

Det er en helt selvstænding funktion jeg har skrevet. Du skal måske bare undlade at kopiere den første og den sidste linie med over i dit modul.

Superjap > hvordan får du værdien med ned i en makro "Sub MultiBeep(numbeeps)",
værdien numbeeps = hvad(måske et tekstfelt ??)

Hej.
jeg fik det til at virke ved at ændre denne linje:
Sub MultiBeep(numbeeps)
Til
Sub Mul()
Så nu kører det.
Tak for hjælpen, til alle.
Vh Henrik