i need help!!!

onneton tytsy

kertokaa mulle mitä tässä koodinpätkässä tapahtuu???oikeesti, mä en osaa tätä yhtään..:(

Private Sub cmdEdellinen_Click()
On Error GoTo edel_virhe
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If
Exit Sub
edel_virhe:
Exit Sub
End Sub

Private Sub Haku_Click()
Dim viesti As Variant, oletus As Variant, apu As Variant
Dim haluttuAine As String
Dim intLkm As Integer
viesti = "Anna koodi:"
oletus = "1"
haluttuAine = InputBox(viesti, "Koodi", oletus)
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset("koodi") = Val(haluttuAine) Then
Exit Do
End If
Adodc1.Recordset.MoveNext
Loop
If Adodc1.Recordset.EOF Then
MsgBox "Ei löytynyt, paina selauspainiketta", 0, _
"Tarkista syöte"
End If
End Sub

3

346

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • dlp

      Haetaan tietokannasta haluttu koodi.

      • onneton tytsy

        ahaa..hmm..voisko saada vähän vielä tarkennusta tuosta koodinpätkästä..
        ei oikein noilla neuvoilla vielä avaudu..:(


      • dlp
        onneton tytsy kirjoitti:

        ahaa..hmm..voisko saada vähän vielä tarkennusta tuosta koodinpätkästä..
        ei oikein noilla neuvoilla vielä avaudu..:(

        haluttuAine = InputBox(viesti, "Koodi", oletus)
        * kysyy mitä haetaan
        Adodc1.Recordset.MoveFirst
        * siirtää osoittimen ekan tietueen kohdalle
        Do While Not Adodc1.Recordset.EOF
        * toistetaan kunnes tietueet on käyty läpi
        If Adodc1.Recordset("koodi") = Val(haluttuAine)
        * tarkistetaan onko etsitty koodi tässä tietueessa
        Then
        Exit Do
        * poistutaan jos etsitty koodi löytyi
        End If
        Adodc1.Recordset.MoveNext
        * siirrytään seuraavaan tietueeseen
        Loop
        * toistorakenne päättyy
        If Adodc1.Recordset.EOF Then
        * tarkistetaan ollaanko käyty kaikki tietueet läpi,
        * jos on -> etsittyä ei löytynyt
        MsgBox "Ei löytynyt, paina selauspainiketta", 0, _
        "Tarkista syöte"
        End If
        End Sub


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Kansalla on oikeus tietää miksi persut pettävät

      Koko kulunut hallituskausi on kysytty persuilta, minkä vuoksi he ovat pettäneet käytännössä jokaisen vaalilupauksen, ain
      Maailman menoa
      147
      7932
    2. Venäjän armeijan evp-upseeri: Armeija surkeassa tilassa, jonka läpäisee kaiken kattava

      valehtelu. Venäläiset alkaneet pohtia julkisesti maan todellisia tappioita. Z-bloggari ja 3. luokan kapteeni (evp.) Mak
      Maailman menoa
      132
      3199
    3. Minkälaisen viestin

      Laittaisit ikävöinnin kohteelle, jos rohkenisit?
      Ikävä
      164
      2092
    4. Kansalla on oikeus tietää mikä on SDP:n talousohjelma jolla maan talous

      saadaan nousuun? Miksi puolue piilottelee sitä, vai eikö sitä ole? Tähän asti olemme vaan saaneet kuulla hallituksen ha
      Maailman menoa
      91
      1814
    5. Ammattiliitto 900 euroa/vuosi - Työttömyyskassa 72 euroa/vuosi

      Ammattiliitosta eroamalla voi säästää jopa 800 euroa vuodessa. Mitä enemmän tienaat, sitä enemmän maksat liitolle. Esim
      Maailman menoa
      163
      1718
    6. Miten voit olla niin tyhmä

      että et tajunnut että sua vedätettiin? Tietäisitpä miten hyvät naurut on saatu. Naiselle
      Tunteet
      180
      1617
    7. Missä vaiheessa

      Päätit irl luovuttaa minun suhteeni?
      Ikävä
      138
      1302
    8. Kyriake=Kirkko

      Kirkko, Kyriake Kirkko-sana tulee kreikankielen sanasta Kyriake=Herran omat, Kristuksen omaksi kastettujen suuri joukko
      Kaste
      93
      976
    9. Millaisena uskot

      Kaivattusi kokevan tunteensa?
      Ikävä
      80
      924
    10. Mitä haluat eniten

      Kaivattusi kanssa?
      Ikävä
      53
      824
    Aihe