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

691

Äänestä

    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.

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

      • Kassara
      • joku vaan

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Persut eivät ole kertoneet euronkaan edestä säästökohteita

      Mutta änkyttävät kysellä niistä muilta jatkuvasti. Vaikuttaa ettei persuilla ole kykyä omaan ajatteluun ja päätöksenteko
      Maailman menoa
      266
      3348

    2. Työeläkeloisinta Suomen suurin talousongelma

      Työeläkeloisinta maksaa vuodessa lähes 40 miljardia euroa, josta reilut 28 miljardia on pois palkansaajien ostovoimasta.
      Maailman menoa
      80
      1448

    3. Vältelläänkö me molemmat toisiamme??

      😘
      Ikävä
      66
      1213

    4. Mun mielestäni on tosi loukkaavaa

      Nainen, että luulet palatan typeriä, sekavia ja ilkeitä viestejä mun kirjoittamiksi. Mä en ole katkera, epätoivoinen, ra
      Ikävä
      199
      1049

    5. Persujen puoluekokous 2026

      Missä ja Milloin pidetään ?
      Maailman menoa
      54
      943

    6. Odotettu tulos Taivalvaaran hiihtokeskuksen osalta

      "MCS Finland Oy on ilmoittanut Taivalkosken kunnalle 30.4.2026, että se irtisanoo Taivalkosken kunnan ja MCS Finland Oy:
      Taivalkoski
      48
      943

    7. Mikä se viehättävin

      Asia on kaivatussasi?
      Ikävä
      63
      941

    8. Mikä kaivatussasi

      Viehättää ulkoisesti ja mikä sisäisesti?
      Ikävä
      42
      787

    9. Mitä tekisit jos

      Aamulla vierestäni heräisit
      Ikävä
      47
      772

    10. Olet hirviö

      Eikä kukaan saa mua muuttamaan mieltäni.
      Ikävä
      113
      726
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt