Access 2003 VBA Kopiointi uudeksi tietueeksi

qwerty12

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

4

355

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • mmm

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

      Docmd.GotoRecord ObjectType, ObjectName, Record, Offset

      • qwerty12

        Ei vaan vieläkään toimi.

        Kaunis kiitos kuitenkin.

      • mmm
        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

      • qwerty12
        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.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Persujen vaalilupaus oli euron bensa

      Nyt puhutaan jo kolmen euron bensasta. Kyseessä on Suomen historian törkein vaalipetos.
      Maailman menoa
      96
      2191

    2. Vain vasemmistohallitus saa minut menemään töihin

      Änkyräkapitalistien sortaessa kansaa en laita rikkaakaan ristiin. Elän mielummin Kelan tuilla, ja jos niitä leikataan, n
      Maailman menoa
      45
      2142

    3. Maataloustuet perittävä korkojen kera takaisin

      Yrittäjiltä jotka ovat myyneet tuotantoaan ulkomaille. Veronmaksajan kustantama tuki on tarkoitettu elintarvikkeiden hi
      Maataloustuki
      50
      1855

    4. Topi osti Askon

      Hieno mies. Pelastaa työpaikkoja. Kiitokset myös emännälleen, joka pitää isännän virkeänä. https://www.is.fi/taloussan
      Maailman menoa
      75
      1380

    5. Mitä kirjainta kaipaat?

      Pitkästä aikaa tämmöistä. Onko kirjain muuttunut edellisestä. ☺️
      Ikävä
      90
      1326

    6. Kastaa ja upottaa on eri sanat

      Kastaa ja upottaa on eri sanat ja niillä on eri merkitys. Eikä Jeesusta haudattu upottamalla maahan kaivettuun kuoppaan
      Kaste
      219
      1151

    7. Uskomatonta touhua!

      Ei olis uskonut että kateus yrittäjää kohtaan menee noin pitkälle. TTP:ssa irrotettu sähköjohto jäätelöaltaasta. Kaikki
      Haapavesi
      31
      1130

    8. Oliko se oikeasti epäselvää

      sinulle että olin ihastunut sinuun? (Ymmärrän että siitä on aikaa, eikä voi olettaa että kaikkea muistaisi tai että men
      Ikävä
      62
      1093

    9. Miten hän sinua katsoi?

      😊😊😊😊😊😊
      Ikävä
      68
      969

    10. Miksi eduskuntatalon portaille sytyttään tänään 8 645 kynttilää?

      Oikeus elämään ry järjestää lauantaina 21.3.2026 tapahtuman, jossa Eduskuntatalon portaille sytytetään 8 645 kynttilää.
      Luterilaisuus
      285
      920
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt