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
246
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
Kuka maksaa Elokapinan töhrinnän?
Vieläkö tukevat Elokapinan toimintaa mm. Aki Kaurismäki, Sofi Oksanen, Paleface, Koneen Säätiö ym. ? Kenen kukkarosta ot5833868Muuttaisiko viesti mitään
Haluaisin laittaa viestin, mutta muuttaisiko se mitään. Oletko yhä yhtä ehdoton vai valmis kyseenalaistamaan asenteesi j483318- 382791
Valpuri Nykänen elokapina
Aikas kiihkomielinen nainen kun mtv:n uutiset haastatteli. Tuollaisiako ne kaikki on.662749Oon vähän ihastunut suhun nainen
Vaikka toisin jokin aika sitten väitin mutta saat mut haluamaan olemaan parempi ihminen :)192134- 322081
Se että tavattiin
Hyvin arkisissa olosuhteissa oli hyvä asia. Olimme molemmat lähestulkoon aina sitä mitä oikeasti olemme. Tietysti pieni121967- 291855
Oot pala mun sielua
Jos toivot, että lähden mä lähden. Jos toivot, että jään mä jään. Koen, että olet mun sielunkumppani, mutta lämmöllä my171800Hei T........
Ajattelin kertoa että edelleen välillä käyt mielessä.... En ole unohtanut sinua, enkä varmasti ikinä... Vaikka on kulunu471749