Rekisteröidy

Access 2003 VBA Kopiointi uudeksi tietueeksi

Terve

Sain aikaseksi tehtyä seuraavanlaisen VBA-koodin:
Se tekee seuraavaa: Kopioi valitun osan tiedot. Muuttaa koodin ja avaimen lukua suuremmaksi. Sen pitäisi vielä siirtyä juuri kopioituun uuteen osaan. Mutta sitä se ei tee. Ilmoittaa vain että objekti ei ole avoinna. Missä vika?




Private Sub kopioiSQL_Click()
On Error GoTo Err_kopioiSQL_Click


uusinumero = DMax("[Avain]", "[OsatT]") 1
kopioitava = DMax("[Koodi]", "[OsatT]") 1

CurrentDb.Execute "INSERT INTO OsatT (Avain, Tyyppi, koodi, size, valmistaja, Nnumero) " & _
"SELECT " & CLng(uusinumero.Value) & ", Tyyppi," & CLng(kopioitava.Value) & ", size, valmistaja, Nnumero " & _
"FROM OsatT WHERE Avain=" & CLng(Avain.Value), Koodi = " & CLng(koodi.Value)"

Me.Refresh




DoCmd.GoToRecord , DMax("[Avain]", "[OsatT]")


Exit_kopioiSQL_Click:
Exit Sub

Err_kopioiSQL_Click:
MsgBox Err.Description
Resume Exit_kopioiSQL_Click

End Sub

Tämä kopioi osan tiedot sekä muuttaa avain ja koodin numeroa suuremmaksi luvuksi. Nyt kun yritän avata samaan syssyyn niin Access ilmoittaa että objekti se ja se ei ole avoinna?

Missä vika?

Vastauksista kiitokset
4374
Äänestä

Muut lukivat myös

Vastaukset 4

Vanhimmat

GotoRecord komennossa on väärät argumentit. Yrität laittaa tietuenumeron tietokantaobjektin nimen tilalle.

Docmd.GotoRecord ObjectType, ObjectName, Record, Offset

Äänestä

  • Ei vaan vieläkään toimi.

    Kaunis kiitos kuitenkin.

    Äänestä

  • qwerty12 kirjoitti:

    Ei vaan vieläkään toimi.

    Kaunis kiitos kuitenkin.

    Private Sub kopioiSQL_Click()
    On Error GoTo Err_kopioiSQL_Click

    uusinumero = DMax("[Avain]", "[OsatT]") 1
    kopioitava = DMax("[Koodi]", "[OsatT]") 1

    CurrentDb.Execute "INSERT INTO OsatT (Avain, Tyyppi, koodi, size, valmistaja, Nnumero) " & _
    "SELECT " & CLng(uusinumero) & ", Tyyppi," & CLng(kopioitava) & ", size, valmistaja, Nnumero " & _
    "FROM OsatT WHERE Avain=" & CLng(Me!Avain) & "AND koodi = " & CLng(Me!koodi)

    Me.Requery
    DoCmd.GoToRecord acDataForm, Me.Name, acLast

    Exit_kopioiSQL_Click:
    Exit Sub

    Err_kopioiSQL_Click:
    MsgBox Err.Description
    Resume Exit_kopioiSQL_Click

    Äänestä

  • mmm kirjoitti:

    Private Sub kopioiSQL_Click()
    On Error GoTo Err_kopioiSQL_Click

    uusinumero = DMax("[Avain]", "[OsatT]") 1
    kopioitava = DMax("[Koodi]", "[OsatT]") 1

    CurrentDb.Execute "INSERT INTO OsatT (Avain, Tyyppi, koodi, size, valmistaja, Nnumero) " & _
    "SELECT " & CLng(uusinumero) & ", Tyyppi," & CLng(kopioitava) & ", size, valmistaja, Nnumero " & _
    "FROM OsatT WHERE Avain=" & CLng(Me!Avain) & "AND koodi = " & CLng(Me!koodi)

    Me.Requery
    DoCmd.GoToRecord acDataForm, Me.Name, acLast

    Exit_kopioiSQL_Click:
    Exit Sub

    Err_kopioiSQL_Click:
    MsgBox Err.Description
    Resume Exit_kopioiSQL_Click

    Suuret kiitokset tuosta. Olen niin surkea tässä koodauksessa ettei tuu mistää mitää. Mutta vielä kerran suuret kiitokset. Hyvin toimii.

    Äänestä

Luetuimmat keskustelut

  1. Älä unohda minuaNainen ethän unohda minua. Asiat olisivat voineet mennä toisin, olisi vain pitänyt uskaltaa lähestyä sinua kun annoit siihen mahdollisuuden. Olen pettynyt itseeni, ja se kyllä närästää. Naiselle Mieheltä
    Ikävä87 vastausta849 lukukertaa
  2. Nyt on nytTurha miettiä menneitä tapahtumia. Niitä ei saa tekemättömäksi. Tärkeintä on mitä tekee nyt ja tulevaisuudessa. Korjausliikkeetkin voi tehdä jos niihin tuntee tarvetta. Paluu tulevaisuuteenkin voi olla mahdollinen jos v…
    Ikävä49 vastausta451 lukukertaa
  3. Kadutko mies?Silloin kuin vielä yritin lähestyä, etkä tarttunut siihen. Asioista pitäisi voida aina keskustella.
    Ikävä29 vastausta379 lukukertaa
  4. Hyvää huomentaEräälle Naiselle ❤️‍🩹
    Ikävä54 vastausta367 lukukertaa
  5. Eläkeikä nousee 70 vuoteen. Joudunko palaamaan työelämään?Nyt se on sitten päätetty, että eläkeikä Suomessa nostetaan 70 vuoteen. https://www.is.fi/politiikka/art-2000012324133.html Pääsin 67 vuotiaana eläkkeelle viime syksynä. Tarkoittaakohan tämä, että joudun palaamaan takai…
    Maailman menoa119 vastausta353 lukukertaa
  6. Haluatko ettäUnohdetaan toisemme?
    Ikävä36 vastausta320 lukukertaa
  7. Onko tällainen kuvio teistä okOnko tällainen kuvio teidän mielestänne ihan normaali ja hyväksyttävä? Nainen seurustelee miehen kanssa, mutta pitää samaan aikaan läheistä yhteyttä toiseen mieheen kertomatta tälle toiselle, että on parisuhteessa. Tämä…
    Ikävä45 vastausta316 lukukertaa
  8. Jos haluat viestin...Olen vielä tämän illan palstalla. Laita halutessasi vinkki, sinä komea keski-ikäinen mies 😗
    Ikävä39 vastausta316 lukukertaa
  9. Tuntuu kuin olisin vaimosiSe on erikoista se.
    Tunteet56 vastausta311 lukukertaa
  10. Nyt kun kaikki on ohiToivon, että sulla menee hyvin ja pystyisin sinut kokonaan unohtamaan. Joskus on vaikeita hetkiä ja olen tosi pahoillani, miten sinua loukkasin ja loukkaan yhä. Se täytyy saada loppumaan.
    Ikävä28 vastausta295 lukukertaa
  11. Empaattiset ihmisetOnko empaattiset ihmiset, etenkin naiset antavaisempia, kun ns. tavikset? Kaverin puolesta kysyn Oisko niinku mahkui?
    Ikävä74 vastausta291 lukukertaa
  12. Pitäisikö Vantaa liittää Helsinkiin.Mitä mieltä olette asiasta?
    Maailman menoa90 vastausta290 lukukertaa
  13. Niin haluaisin sut nähdä ja jutella!🙂
    Ikävä23 vastausta275 lukukertaa
  14. TTK-juontaja Veronica Verho lataa suorat sanat tatuointien arvostelijoille: "Mä toivoisin, että..."Veronica Verho juontaa Tanssii Tähtien Kanssa -ohjelmaa yhdessä Ernest Lawsonin kanssa. ​Yksi puhuttaneimmista aiheista on ollut, miten suosikkijuontajan näyttävät tatuoinnit sopivat ohjelman pukuohjeistukseen ja tullaa…
    Kotimaiset julkkisjuorut17 vastausta274 lukukertaa
  15. Sut tahtoisinSinä senkin kusimutteri menit ja katkaisit kaiken yhteyden minuun. Tajuan nyt, että meidän roolit vaihtuivat ja sinä projektoit omia pelkojasi minuun. Anna minun välittää sinusta, älä työnnä mua pois. En oo vaatinut sul…
    Ikävä14 vastausta270 lukukertaa
  16. Nyt sinä siellä pohjoisessaNainen siellä laita viesti!
    Ikävä88 vastausta264 lukukertaa
  17. Perussuomalaiset nostamassa eläkeiän 70 vuoteenRiikka Purran johtama valtiovarainministeriö haluaa nostaa eläkeiän 70 vuoteen ja taloutta sopeutettaisiin ensi vaalikaudella 8–11 miljardilla eurolla. Perussuomalaisten johtama ministeriö ilmeisesti arvelee, että seits…
    Perussuomalaiset81 vastausta259 lukukertaa
  18. Mahdatko ymmärtääEttä olet samassa korissa kaikkein rakkaimpien kanssa. Öitä.
    Ikävä19 vastausta250 lukukertaa
  19. Tunnetko piston sydämessäsiTunnetko piston sydämessäsi?
    Ikävä29 vastausta247 lukukertaa
  20. Hyttikallion koulu homeessaHyttikallion koulu on homeessa ja opettajat on painostettu olemaan hiljaa asiasta, myöskään mitään korjauksia ei ole tehty, vakavia tapaturmia tapahtunut kun turvavälineet ovat lähteneet irti yms. Ilmeisesti halutaan kä…
    Haapavesi12 vastausta239 lukukertaa

Kommentoi aloitusta

qwerty12 kirjoitti:

Terve

Sain aikaseksi tehtyä seuraavanlaisen VBA-koodin:
Se tekee seuraavaa: Kopioi valitun osan tiedot. Muuttaa koodin ja avaimen lukua suuremmaksi. Sen pitäisi vielä siirtyä juuri kopioituun uuteen osaan. Mutta sitä se ei tee. Ilmoittaa vain että objekti ei ole avoinna. Missä vika?




Private Sub kopioiSQL_Click()
On Error GoTo Err_kopioiSQL_Click


uusinumero = DMax("[Avain]", "[OsatT]") 1
kopioitava = DMax("[Koodi]", "[OsatT]") 1

CurrentDb.Execute "INSERT INTO OsatT (Avain, Tyyppi, koodi, size, valmistaja, Nnumero) " & _
"SELECT " & CLng(uusinumero.Value) & ", Tyyppi," & CLng(kopioitava.Value) & ", size, valmistaja, Nnumero " & _
"FROM OsatT WHERE Avain=" & CLng(Avain.Value), Koodi = " & CLng(koodi.Value)"

Me.Refresh




DoCmd.GoToRecord , DMax("[Avain]", "[OsatT]")


Exit_kopioiSQL_Click:
Exit Sub

Err_kopioiSQL_Click:
MsgBox Err.Description
Resume Exit_kopioiSQL_Click

End Sub

Tämä kopioi osan tiedot sekä muuttaa avain ja koodin numeroa suuremmaksi luvuksi. Nyt kun yritän avata samaan syssyyn niin Access ilmoittaa että objekti se ja se ei ole avoinna?

Missä vika?

Vastauksista kiitokset

Anonyymi
5000

Ilmoita asiaton sisältö

  • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

  • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

  • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

  • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

  • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

  • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

Jaa keskustelu