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.
Access
joku vaan
7
776
Vastaukset 7
- 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
http://mureakuha.com/koodikirjasto/25
Voi joutua hieman muokkaamaan omien tarpeiden mukaan.- 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 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
Kassara kirjoitti:
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=12kiitos viesteistä oli ISO apu
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Ampuminen kylpylässä
Onko vornasen timbe käynyt hiukan kylpemässä vai mikä tämä ampumatapaus on kylpylässä? Tuntuu aika villi meno olevan naa501168Moottoripyöräonnettomuus
Mopomiitissä tapahtunut onnettomuus ja uutisointi. Ajoradan ylityksen vaarallisuudesta ei mitään uutisointia. Ei myöskää84915- 164887
Jos oikeasti haluat mies
Tiedät mitä on tehtävä. Luotan, että etenet jos haluat. En voi tehdä enää mitään kun ei ole numeroasi.105834Uusi ruokapaikka
Tuleeko Haapavedelle uusi lounaspaikka ,haetaan kokkia? Uusi firma kyseessä29795Kerro minulle totuus
Minä haluan kuulla sen nyt. Kenen kanssa sinä olet nykyisin, ja miksi jätit minut? 🐒197710Miten sinä voit?
Kysytkö kukaan sitä sinulta? Olen huomannut, että jos kohtaa empaattisen ihmisen ja hän kysyy noin, saattaa padot murtua93697Hautakivien massapoisto aloitettu Härkökankaan vanhalla hautausmaalla kaikessa hiljaisuudessa!
Suomussalmen seurakunnan kirkkoneuvosto on tehnyt historiansa surullisimman päätöksen hautojen haltuunotosta ja raivauks41667- 23632
Hei, voitko kuunnella
Voisitko auttaa minua selvittämään asioita? En halua ajaa sinua hulluuteen kanssani, en sitoa sinua, en esittää vaatimu122615Kemijärvellä vesionnettomuus
Pitkänsillan ja taiteilijanniemen välillä nähty henkilön painuvan veden alle. Mitä on tapahtunut? Onko vesihiisi taas as20601- 61592
VILLISIKALAUMA TULOSSA IISALMEEN
Yle: Poliisi varoittaa Iisalmen keskustaa lähestyvästä villisikalaumasta Poliisi on pyytänyt Pohjois-Savossa Iisalmessa43586Useita poliisiautoja kunnantalolla
Maijojen kyydissä tuttuja naamoja ja nyt kannetaan arkistolaatikoita autoihin. Nyt se on alkanut. Pidätykset.12545On todella ikävää
Todella ikävää, että asiat ovat menneet tällaisiksi. Tämä ei ollut missään vaiheessa tarkoitukseni. Olen tehnyt virheit78510- 78493
- 39485
- 57485
sinulle....
Olen ymmärtänyt, ettei minua haluta enää takaisin. Mitään pahaa en koskaan halunnut sinulle. Ikävä että kuvittelit niin.75477- 55467