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

776

Äänestä

    Vastaukset 7

    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 kirjoitti:

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

        Ostin viime keväänä tuon. Se on enkunkielinen mutta selkeästi kirjoitettu, suosittelen lämpimästi, eikä pahan kalliskaan.

        http://www.amazon.com/s/ref=nb_ss_/002-8502564-4380842?url=search-alias=aps&field-keywords=acces 2003 vba&x=13&y=12

      • joku vaan

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Miksi et halua kaivattusi

      kanssa suhteeseen? Onko jokin syy vaikka rakastat häntä?
      Ikävä
      142
      1334

    2. Miten hän käyttäytyy kun näette jossain?

      😁
      Ikävä
      73
      1223

    3. Carunan hinnat

      Yks proffa vauuttaa, ettei Caruna voi noin vain nostaa hintoja koska suomen laki kieltää, toinen proffa sanoo että Carun
      Maailman menoa
      105
      986

    4. Mikä sun kaivatussa on se miksi ihastuit

      ja ikävöit? Eli se jokin asia, mikä aiheutti tunteen, että tuossa on sitä jotain? Meinasitko tehdä asialle jotain vai ka
      Ikävä
      50
      925

    5. Koetko vielä et

      Olen elämäsi rakkaus?
      Ikävä
      78
      822

    6. Kunnan päätie ja sen lähialueet

      Arvon hyrynsalmelaiset. Tätä palstaa on näin Ukkohallan mökkiläisena ihan viihteellistä lukea. Milloin teitä ahdistaa la
      Hyrynsalmi
      40
      798

    7. Joko uskallat.

      Huomenna nähdään.
      Ikävä
      45
      791

    8. Oletko tullut siihen

      Tulokseen ettet saa minua
      Ikävä
      67
      663

    9. Olen tumma ja tulinen

      Ja vielä suora - en ollut sinua varten. n to m
      Ikävä
      113
      634

    10. Tunnustuksia

      Haluatko tunnustaa jotain, mitä on sydämelläsi?
      Ikävä
      47
      588
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt