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

    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.


      • 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. Liikenneonnettomuus kuhmo

      Taisi Audi mennä lunastukseen ja pemari kilometritehtaalle
      Kuhmo
      40
      2496
    2. Olen aivan hajalla yhden

      Naisen takia😞
      Ikävä
      52
      946
    3. Olen pahoillani kun olen satuttanut

      Välillä kiukuttaa paljon.
      Ikävä
      62
      866
    4. Riikka Purra on mukana Suomen huutokauppakeisari -sarjassa

      Suomen huutokauppakeisari on tavallisten suomalaisten ohjelma. Sarjan suosiosta kertoo se, että nyt alkaa jo 19. kausi t
      Maailman menoa
      52
      740
    5. Kuuleppas

      ensimmäiset naissuhteet toimii miehelle eräänlaisena oppikouluna, mutta hän ei välttämättä itse ymmärrä oppineensa mitää
      Ikävä
      227
      733
    6. T.h tuomio

      Onko tämä lainvoimainen vai onko tästä valitettu? Mitenhän on mennyt linnassa joko pehmennyt pää täysin
      Suomussalmi
      10
      644
    7. Naurettavia provoja ja lavastuksia täällä

      Saa olla aika harhainen jos uskoo juttuja täällä faktoina 😆😆😆 ihmiset matkii toisia jne
      Ikävä
      81
      607
    8. Miten sä jaksat

      Pitää susta huolen.
      Ikävä
      65
      593
    9. Mitä näät

      Siinä miehessä?
      Ikävä
      47
      588
    10. Mitä oikeasti haluat?

      🥹
      Ikävä
      47
      587
    Aihe