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
254
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
Aivosyöpää sairastava Olga Temonen TV:ssä - Viimeinen Perjantai-keskusteluohjelma ulos
Näyttelijä-yrittäjä Olga Temonen sairastaa neljännen asteen glioomaa eli aivosyöpää, jota ei ole mahdollista leikata. Hä912900Pelotelkaa niin paljon kuin sielu sietää.
Mutta ei mene perille asti. Miksi Venäjä hyökkäisi Suomeen? No, tottahan se tietenkin on jos Suomi joka ei ole edes soda2991686Mikä saa ihmisen tekemään tällaista?
Onko se huomatuksi tulemisen tarve tosiaan niin iso tarve, että nuoruuttaan ja tietämättömyyttään pilataan loppuelämä?2461557- 871391
IL - VARUSMIEHIÄ lähetetään jatkossa NATO-tehtäviin ulkomaille!
Suomen puolustuksen uudet linjaukset: Varusmiehiä suunnitellaan Nato-tehtäviin Puolustusministeri Antti Häkkänen esittel4021374Nyt kun Pride on ohi 3.0
Edelliset kaksi ketjua tuli täyteen. Pidetään siis edelleen tämä asia esillä. Raamattu opettaa johdonmukaisesti, että3981292Kiitos nainen
Kuitenkin. Olet sitten ajanmerkkinä. Tuskin enää sinua näen ja huomasitko, että olit siinä viimeisen kerran samassa paik21079Esko Eerikäinen tatuoi kasvoihinsa rakkaan nimen - Kärkäs kommentti "Ritvasta" lävähti somessa
Ohhoh! Esko Eerikäinen on ottanut uuden tatuoinnin. Kyseessä ei ole mikä tahansa kuva minne tahansa, vaan Eerikäisen tat381037Hyväksytkö sinä sen että päättäjämme ei rakenna rauhaa Venäjän kanssa?
Vielä kun sota ehkäpä voitaisiin välttää rauhanponnisteluilla niin millä verukkeella voidaan sanoa että on hyvä asia kun329874Miksi Purra-graffiti ei nyt olekkaan naisvihaa?
"Pohtikaapa reaktiota, jos vastaava graffiti olisi tehty Sanna Marinista", kysyy Tere Sammallahti. Helsingin Suvilahden257855