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

371

Äänestä

    Vastaukset 3

    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. Orpo pelästyi, kun asiat tulivat ilmi ? Hallitus ei enää tuekaan Garden hanketta

      Pääministerinä Orpo on vastuussa hallituksensa päätöksenteosta. Hallitus päätti avokätisestä tuesta hankkeelle, joka ei
      Kansallinen Kokoomus
      354
      1302

    2. Martinan tyttärestä hieno haastattelu IL

      Martina on kasvattanut fiksun tyttären.
      Kotimaiset julkkisjuorut
      406
      1165

    3. Muuttaisitko kaivattusi luokse

      heti asumaan? 🛒
      Ikävä
      102
      915

    4. Mitä kaivattusi

      pelkää? 👻
      Ikävä
      82
      837

    5. Samassa kylässä asuu yks mies...

      Jota en voi sietää... yök!
      Ikävä
      78
      822

    6. Mitä odotat kohtaamiselta?

      Niin, otsikossa kysymys.
      Ikävä
      82
      756

    7. Mitähän ajattelet

      Nykyään minusta tai meistä tai tapahtuneista?
      Ikävä
      51
      734

    8. Ei käy sääliksi sitä miestä

      Sitä saa mitä tilaa.
      Ikävä
      104
      725

    9. Mä olen tosi

      Ylpeä sinusta 🫂 Ajatuksissani pyydän sulle paljon suojelusta ja varjelusta. Sinua rakastettaan ja susta välitetään. Mui
      Ikävä
      39
      690

    10. Sanotaan se sitten tässä

      Rakastan sua mies varmaan.
      Ikävä
      37
      686
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt