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

286

Ää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. Ikävä sinua

      Onkohan sulla ollut sama tunne kuin mulla viimeisten parin päivän aikana, eilen varsinkin. Ollaan oltu ihan lähellä ja k
      Ikävä
      35
      4393

    2. Oletko sä oikeesti varattu?

      Että sen takii ei voida olla tekemisissä?
      Ikävä
      55
      3015

    3. Otavassa tapahtuu!

      Rakennuspalo, yläkerta tulessa. Henkirikosta epäillään. Tiettyä henkilöautoa etsitään, minkä mahdollinen epäilty ottanut
      Mikkeli
      46
      2918

    4. Horoskooppikysely

      Oma ja ikävän kohteen horoskooppi? Sopivatko yhteen?
      Ikävä
      30
      2703

    5. Pitkäaikaiset työttömät työllisyystöillä takaisin yhteiskuntaan

      Vaikka se vähän maksaakin, niin parempi on valtion teettää hanttihommia, jottei yksilöistä tule yhteiskuntakelvottomia.
      Maailman menoa
      340
      2651

    6. Tulemmeko hyvin

      Toimeen ja juttuun keskenämme? Luulen, että sopisit hyvin siihen ☀️ympäristöön, paljon kaikkea erilaista.♥️mietin tätä s
      Ikävä
      8
      2605

    7. Rakas, kerro mulle

      Miltä se tuntuu?
      Ikävä
      38
      2279

    8. Kesäseuraa

      Kesäseuraa mukavasta ja kauniista naisesta. Viesti tänään mulle muualla asiasta jos kiinnostaa Ne ketä tahansa huoli, t
      Ikävä
      54
      2035

    9. Tiedän kuka sinä noista olet

      Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta
      Ikävä
      46
      1693

    10. Suuri tulipalo

      Missä mikä palaa?
      Kiuruvesi
      2
      1683
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt