Access

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

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

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=12

Lue lisää

kiitos viesteistä oli ISO apu