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
366
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
Joensuun kaupunki levittelee tonttitietoja Keskisuomalaiselle
Sähköposteja ja tonttitietoja levitellään mm. Pasi Koivumaalle273445Tiesitkö tätä ex-miehistä? Noriko Salo jysäytti yllätyspaljastuksen
Noriko Salo ja ex-F1 kuski Mika Salo olivat naimisissa v. 1999-2022. Kirsi Salon ex-mies puolestaan on muusikko Sammy A122579Kuka? Riehui valtuuston kokouksessa tänään ?
Onko puolangan puolesta porukkaa. Vaikuttaa siltä. Sairasta.1162550Huh, huh! Sofia Belorf ei ole itse pessyt hiuksiaan kolmeen vuoteen
Sofia Belorf elää ökyelämää Dubaissa. Sofian arjessa kulta, raha ja luksus ovat vahvasti läsnä. Luksuselämään tottuneell1082195Toivoisitko Rakas vielä?
Haluaisitko vielä? Uskoisin osaavani näyttää sinulle, kuinka ainutlaatuinen nainen olet.761703Ihan pieni näkeminen vaan
👋 ja minä olisin valmis jo vaikka mihin sun kanssa. Nämä on näitä.. 🤫🫣😘💥481604Sointu Borg tilittää - Ei suostu enää tähän työhön: "Katastrofi"
Sointu Borg on mediapersoona, joka löi itsensä läpi Diili-realityssä. Borg on monipuolinen tekijä: mediapersoona, juonta261546Keskustelua kasteesta
You tubessa kaksi pappia keskustelivat kasteesta ja kritisoivat raamatullista uskovien kastetta. Toinen heistä yritti4001305- 1371267
Tulipalo viimeyönä
Olipa ikävä kuulla tämä tulipalo, nyt on jatkuvasti asuinpaloja.Grillikausi alkanut.Grillit pois parvekkeilta ja asuntoj151156