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

326

Äänestä

    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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. SDP jo 100 % suositumpi kuin persut

      Kertoo Hesarin uusin kannatuskysely. Demareiden kannatus on miltei tuplat verrattuna persuihinl. Suomen kansa ei selväst
      Maailman menoa
      115
      10773

    2. Voiko normaali ihminen ryhtyä vasemmistolaiseksi?

      Tätä jäin pohdiskelemaan.
      Maailman menoa
      255
      4656

    3. SDP haluaa 40 000 nettomaahanmuuttajaa

      SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah
      Maailman menoa
      177
      4021

    4. Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen

      No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat
      Maailman menoa
      177
      3513

    5. PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas

      https://www.verkkouutiset.fi/a/hs-gallup-sdpn-suosio-laskee-ps-nousussa/#0a7d2507 Ylivoimainen viime kuukausien nousija
      Maailman menoa
      82
      3349

    6. Mikä tämä henkilö mahtaa touhuta Parkanossa

      Kamalaa https://www.ylasatakunta.fi/teksti/pirkanmaan-karajaoikeus-vangitsi-koiran-tappamisesta-epaillyn-6.68.127794.b58
      Parkano
      42
      3137

    7. Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia

      tai muuta kehitysmaalaista. Mites tässä näin kävi? Tiedän hyvin, että esim. somaleita lentää ulos mm. Hekan asunnoista,
      Maailman menoa
      79
      3126

    8. Ikävä sinua mies

      Vuosia kuluu, mutta tunteet ei ole hävinnyt. Tasoittuneet toki, kun ei olla nähty. Järki palannut päähän kuitenkin. Se i
      Ikävä
      27
      2689

    9. Hienoa! Eduskunta luopui käteisen käytöstä

      Nyt tuo sama muutos pitää saada myös muuhun yhteiskuntaan. Käteistähän ei tarvitse tänä päivänä enää kuin rikolliset.
      Maailman menoa
      68
      1831

    10. Kiinnostaa - ei kiinnosta - kiinnostaapas

      Selittäkää hämmentyneelle miksi miehiä ei ikinä kiinnosta silloin, kun sitä olisi itsekin kiinnostunut? Sitten kun siirt
      Sinkut
      180
      1665
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt