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

322

Ää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. Oletko kertonut jo muille tunteistasi?

      Ystävillesi esimerkiksi? Minä en ole vielä kertonut kenellekään tästä meidän jutusta.
      Ikävä
      77
      4622

    2. Olisin ottanut sinusta akan itselleni

      Mutta olitkin aika itsepäinen ja hankala luonne.
      Ikävä
      180
      1897

    3. Ei sua pysty unohtamaan

      Ei vaan yksinkertaisesti pysty
      Ikävä
      124
      1590

    4. Kerro todelliset motiivit

      kaivattuasi kohtaan?
      Ikävä
      124
      1125

    5. Miten minusta tuntuu että kaikki tietää sun tunteista mua kohtaan

      Paitsi suoraan minä itse, vai mitä hlvettiä täällä tapahtuu ja miksi ihmiset susta kyselee minulta 🤔❤️
      Ikävä
      16
      1061

    6. Hei, huomenta komistus

      Yllättääkö, että olet heti mielessä. Mukavaa päivää upea ❤️
      Ikävä
      35
      1036

    7. Sunnuntain terveiset kaivatulle

      Mitä ajattelet hänestä tänään? Mitä haluaisit sanoa hänelle?
      Ikävä
      78
      933

    8. Miks et tahtonut

      Enää nähdä? Haluaisin ymmärtää
      Ikävä
      52
      896

    9. Hyvää huomenta!

      Mietin miten suhtaudut minuun, jos kerron tunteista. Voinko enää sen jälkeen olla samassa paikassa kanssasi, jos koet as
      Ikävä
      78
      872

    10. Mulla on tarkat korvat

      Kuulin sun äänen ihan selvästi.
      Ikävä
      4
      828
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt