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
i need help!!!
3
227
Vastaukset
- 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
Valkeakosken 15-v tapauksessa ihmettelen ??
On sääli, että pahoja ihmisiä liikkuu aina vapaana eri puolilla Suomea, mutta minkä ihmeen takia 15-vuotiaan nuoren täyt52013077Nyt ahdistaa
Joku nuori tyttö on surmattu Valkeakoskella. En tunne ihmistä, mutta silti se koskettaa. Uutisissa oli hiljattain, että3498494Valkeakosken tappo
"Tyttö löytyi poliisin mukaan kuolleena läheisestä metsästä muutaman sadan metrin päässä kotoaan. Uhrin löysivät hänen k407839Puhuuko Orpo niin totta kuin osaa?
Vai osaisiko "en muuta keksinyt" -Orpo edes vähän paremmin puhua totta? https://www.iltalehti.fi/politiikka/a/f8d5241f-354254615-vuotiaan ruumis valkeakoskella
Nuoria tyttöjä tappavat miessaalistajat ja toiset nuoret. Miessaalistajille ruumiin kätkeminen tai tuhoaminen ei ole on62414Salakamera! Kirsikka Simberg julkaisi Farmilla otetut salakuvat: "Paha tapa" paljastuu! Katso kuvat!
Oho, no nyt on kyllä rikottu sääntöjä… Farmi Suomi -kuvauksista paljastuu yllättävää materiaalia. Lue lisää: https://w91987Laita viestiä?
Sitten kun on sinulle hyvä hetki, minä odotan. Jotain jäi kesken ja haluan viedä sen loppuun 😘951703Kuka oli tekijä?
Jos tekijä oli suomalainen, onko hänen vanhempiaan jo tavoitettu? Mitä mieltä ovat aikamiespoikansa teosta? Entä puoliso231626Keski-ikäinen nainen raiskasi miehen
https://www.hs.fi/helsinki/art-2000010451173.html Ei olisi varmasti kymmenen vuotta nuorempana tarvinnut pakottaa.1921530Olen ollut pois täältä neljä kuukautta
Neljä kuukautta sitten olin tosiaan psykoottinen, ja jouduinkin osastolle hoidettavaksi kahdeksi kuukaudeksi. Ystävyys-1881353