Access

joku vaan

Olen tehnyt exclin VBA:lla ohjelman, joka tekee viitenumeroon tarkkarin(eli viimeisen nro:n).
Kysymys kuuluukin miten saan sen liitettyä accessin raporttiin. Itse olen yrittänyt rakennenäkymässä, tehden siihen muokkausruudun ja siihen siirtää, mutta ei onnistu. Toivoittavasti joku ymmärsi mitä tarkoitan.

7

741

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • juhakorkeapudas

      onnistuu mutta tietenkin koodi täytyy muuntaa Accessiin sopivaksi (viittaukset soluihin yms.).

      Pystytkö laittamaan koodia?

      • joku vaan

        Tällainen on se koodin pätkä jota olen sinne sovittanut.


        Sub tarkista()
        '*** Määrittelyt ***
        Dim viite As String
        Dim pituus As Integer
        Dim toisto As Integer
        Dim uusisana As String
        Dim tarkiste As String

        '*** Toiminta ***
        viite = Cells(4, 2)
        pituus = Len(viite)


        '*** Käännetään viite ilman viimeistä nroa ***
        For toisto = 1 To pituus
        uusisana = Mid(viite, toisto, 1) & uusisana
        Next toisto

        '*** Suoritetaan laskutoimenpide ***
        For toisto2 = 1 To pituus
        viitenro = Mid(uusisana, toisto2, 1)
        tarkiste = "731731731731731731731"
        varmistus = Mid(tarkiste, toisto2, 1)
        tulo = tulo (varmistus * viitenro)
        Next toisto2

        '*** tarkistetaan montako merkkiä tulossa on ***

        uusipituus = Len(tulo)
        uusipituus = uusipituus - 1

        '*** ja määritetään seuraavat täydet kymmenet ***
        tulo2 = Mid(tulo, uusipituus, 1)
        tulo2 = tulo2 1
        tulo2 = tulo2 & "0"

        erotus = tulo2 - tulo

        tarkkari = Right(erotus, 1)

        Cells(15, 1) = viite & tarkkari

        End Sub


    • koodia
      • joku vaan

        taitaa olla muokkaus kenttään tulostus koodista. Miten se tehdään.


      • joku vaan kirjoitti:

        taitaa olla muokkaus kenttään tulostus koodista. Miten se tehdään.

        Tuo on Vba-funktio, joka toimii suunnilleen samoin kuin Accesin omat funktiot. Tee muokkausruutu tai käytä olemassaolevaa, laita siihen lauseke (tuossa funktion nimi on "laskeviite") =laskeviite(LaskuNo). Muuta nuo esimerkkilausekkeen nimet niiksi joita itse käytät.



      • joku vaan

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

    Luetuimmat keskustelut

    1. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      110
      1615
    2. 105
      1175
    3. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      138
      1061
    4. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      959
    5. Keitä oli kunnanjohtajan erottajat?

      Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni
      Ilmajoki
      50
      844
    6. Atte Harjanne usuttaa eläkeläisvihaan

      Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v
      Maailman menoa
      240
      838
    7. Miten pääsee ujon naisen pään sisään?

      Siis tosi tosi tosi ujon...
      Ikävä
      127
      833
    8. Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.

      Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?
      Maailman menoa
      70
      735
    9. Pridekulkue kiellettävä?

      Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla
      Luterilaisuus
      178
      709
    10. Mä oon tyytyväinen, että ei ole enää tunteita.

      Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu
      Ikävä
      55
      689
    Aihe