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
- 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
Kenellä oli ryppyinen paita, josta Halla-aho mielensä pahoitti?
Ei ollut Keskisarja, jonka paita vain repsotti housujen päällä puolittain. Muistatteko tapausta?523115Miksi Halla-aho on niin hyvin menestynyt - mutta punavihreä ei?
Hyvin näkee kuinka punavihreää ottaa pahasti päähän kun Virta on taas töppäillyt pahasti. Ja kun punavihreä ei pärjää, n542315Ruoan arvonlisävero menee käytännössä tukijussille
Ilman juomia elintarvikkeiden myynti vuonna 2025 oli reilut 15 miljardia euroa. Tuolla tasolla arvonlisävero pyörii pari712215Vihreät REPEÄMÄSSÄ oijoijoi....Virran sekoilut on liikaa
Jo ennestään vihreiden kannatus on suossa vaikka puolue istuu oppositiossa, nyt tuli Virran temppu kun häipyi tuosta vaa982098Poliisi tutkii keskiviikkoiltana Kiuruveden keskustassa tapahtunutta väkivallantekoa.
Itä-Suomen poliisi tutkii Kiuruveden keskustassa keskiviikkoiltana tapahtunutta epäiltyä väkivallantekoa. Tapaus on herä261898Ruotsissa uusi vakava ongelma: Vanhusten seksuaalinen hyväksikäyttö
palvelutaloissa ja kotihoidossa. Tämäkin on ihan puhtaasti väärän maahanmuuton vaikutusta, sillä tekijät ovat kaikki keh681825Työeläkkeiden maksaminen lopetettava ASAP.
"Vanhimmat sukupolvet ovat saaneet vastinetta eläkemaksuilleen moninkertaisesti nykyisiin ja tuleviin sukupolviin verr851570Mika Poutala salasi osallistumisensa Erikoisjoukkoihin
Poutala ryhtyi ministeriksi 13.6.2025 ja 5.8.2025 ilmoitettiin hänen olevan seuraavalla Erikoisjoukot-kaudella. http461354Siis HYI OLKOON! Ihmiset, eikö enää ole mitään rajaa?
https://www.iltalehti.fi/viihdeuutiset/a/4142eeb2-a589-4109-a5d0-e8f341df585c "Susanna Penttilän seksibussi kauhistutta1401318Puuma Martina iski nuoren miehen
Martina ja Hajji Muhis oikealta nimeltään Muhammad Abdilrasoon hempeilivät Tallinnassa. Hajji 28 vuotias ja Martina pian1661139