Keskustelu: Ohjelmointikysymykset: Access 2003 VBA apuja

Terve, olen jonkin sortin taitaja Excelin VBA:ssa mutta Access + VBA on ihan outo, Access yksin + makrot on tuttuja. En pääse puusta pitkään, joten voitteko auttaa alkuun. Minulla on kannassa Saldo-kenttä, ja lomakkeella Lisää ja Vähennä Textboxit ja niitä varten Suorita-nappi. Kun jompaankumpaan textboxiin laitetaan luku, Suorita-napilla Saldon pitäisi kasvaa tai vähentyä luvun verran. Olisi lastenleikkiä Excelillä, mutta Accessilla meni käsi päähän. Kiitos avusta jo etukäteen :o)

Moikka escelinen!

Tässä sulle jotain...

Aseta ominaisuuksissa sen textoboxin muodoksi Yleinen luku (samaks kun tietueen kentän) ja Oletusarvoksi =0, ja sit moduuliin seuraavaa...

Global summa As Long, luku As Long, suorita As Integer

ja tapahtumiin...

Private Sub Plusnappi_Click()
summa = Saldo.Value
luku = Tekstiboxi.Value
summa = summa + luku
suorita = 1
Saldo.SetFocus
End Sub

Private Sub Miinusnappi_Click()
 summa = Saldo.Value
 luku = Tekstiboxi.Value
 summa = summa - luku
 suorita = 1
 Saldo.SetFocus
End Sub

Private Sub Saldo_GotFocus()
If suorita <> 0 Then
 Saldo.Value = summa
 suorita = 0
End If
End Sub

toivottavasti aukenee...