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. Törkeä petosepäily Suomussalmella

      Uutisoi maikkari. Uhrin nimiin on nostettu pankkilainaa, hänet on saatu sijoittamaan hevosiin ja ostamaan autoja. Ei ta
      Suomussalmi
      83
      3337

    2. Poliisi etälamautti, sitten pahoinpiteli

      Vaikeasti kehitysvammaisen niin vakavasti että kuoli pian sairaalassa. Ei osannut kehitysvammainen heti noudattaa polii
      Maailman menoa
      390
      1231

    3. Anni Ihamäki saa tylyä kommenttia TTK:sta - Erityisesti tämä "vääryys" ärsyttää

      Kaikille ei ole mieleen se, että Anni Ihamäki on mukana uudella Tanssii Tähtien Kanssa -kaudella. Ihamäki saa varsin ty
      Kotimaiset julkkisjuorut
      36
      909

    4. Mies, olen pahoillani kun olen kuvitellut

      Että pitäisit minusta. En sitä mistään tähdistä kuitenkaan lukenut, mulle vaan tuli jostain semmoinen tunne, kun itse ty
      Ikävä
      65
      815

    5. Päivän Riikka: Pandan suklaatehdas Jyväskylästä Viroon

      Menkää töihin! Viroon! --- Liki sata vuotta kestänyt suklaantuotanto makeisvalmistaja Pandan tehtaalla Vaajakoskella pä
      Maailman menoa
      189
      754

    6. Mitä et ole valmis sietämään ihmissuhteissasi ja miksi?

      Aiemmin jo kyseltiin mitkä vaatimukset olivat mielestänne liiallisia. Kyselläänkin nyt sitä, että millaisilla asioilla s
      Sinkut
      271
      704

    7. Tiesitkö? Vappu Pimiän ensimmäinen aviomies ei ole Teemu-rakas

      Vappu Pimiä on tätä nykyä naimisissa Teemu Huuhtasen kanssa. Pimiä on toista kertaa naimisissa, sillä ensimmäinen liitto
      Kotimaiset julkkisjuorut
      22
      680

    8. Älä nyt ylikuormitu vaikka sinusta pidänkin rakas nainen

      Tiedän, että olet minulle oikea. En halua pilata tätä juttua malttamattomuudella, mutta epäilen. Haluan vain olla lähel
      Ikävä
      31
      608

    9. Sysmä tarvitsee päätöksiä

      Sysmä tarvitsee päätöksiä – ei p*anjauhantaa** Kirjoitan kuntapolitiikan ulkopuolisena tarkkailijana. Sysmän poliittinen
      Sysmä
      17
      575

    10. Älä katoa elämästäni

      Kävelyllä mietin olisitpa varjo takanani vierelläni sivullani Älä katoa koskaan ole siinä pidä kädestäni kiinni ole kan
      Ikävä
      33
      566
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt