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
601
Vastaukset
- 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
Lääppijä Lindtman jäi kiinni itse teosta
Lindtman kyselemättä ja epäasiallisesti koskettelee viestintäpäällikköä. https://www.is.fi/politiikka/art-20000117808521713931Huomaatteko Demari Tytti ei esitä pahoitteluitaan
Samanlainen ilmeisesti kuin Marin eli Uhriutuu no he ovat Demareita ja muiden yläpuolella siis omasta mielestään813119Turvaan tulleet lähettävät omia lapsiaan vaaraan - hullua
MOT-ohjelman jakso ”Loma vaihtui kahleisiin” kertoi, kuinka Suomessa ja muualla Euroopassa asuvat somaliperheet lähettäv472155Vedonlyöntiä .
Olen valmis lyömään ison vedon , että homma kaatuu . Jos kerta Sivonen ei lähde mukaan , niin ei tuoho usko kukaan muuka232133Mikä on pahinta, mitä kaivatullesi
pelkäät tapahtuvan? Jos kuolemaa, vakavia sairauksia yms. ei lasketa?551935TUNNISTELAATIKKO
Tähän ketjuun voi laittaa yhdellä tai kahdella lauseella (tai vaikka yhdellä sanalla) täydellisen tunnisteen, jonka vain851341Tykkäätkö enemmän tavis- vai julkkiskisaajista tv:ssä?
Tykkäätkö enemmän tavis- vai julkkiskisaajista tv:ssä? Moni reality ja visailuohjelma luottaa julkkiksiin, mutta sentään251278- 401270
Zoo jatkaa - jatkuuko mustamaalaus?
Tänään on päätetty Zoon avaamisesta uudelleen. Mielenkiintoista nähdä kautokurujen reaktio, nyt kun kyse ei ole kunnalli581058Valehdella saa, totuus salataan
Vaikuttaa vähän siltä, että sensuuria toteutetaan juorupalstallakin. Asioita saa kaunistella ja vääristellä, mutta totuu10768