[es] - MS Access: Brojac

eli
jelica juric
Canada

Član broj: 3075
Poruke: 1
*.f1784.globetrotter.net

Profil

^{26.03.2002. u 02:12 - pre 268 meseci}

Zanima me kako bi se mogao napraviti brojac u Accessu koji bi prilikom unosa podakata u jednu formu brojao koliko puta se unese broj 1, 2 i 3 u jedno polje, i kad unesemo recimo broj 1 cetiri puta, da dobijem poruku da je broj jedan unijet cetri puta i da brojac ponovo pocne brojati nove cetri 1 ili 2 ili 3

Odgovor na temu

Simke
Marko Simic
Sandfield Associates (Solution
Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.xtra.co.nz

ICQ: 71578686
Sajt: www.sandfield.co.nz

Profil

Re: MS Access: Brojac

^{13.04.2002. u 00:42 - pre 267 meseci}

Ako sam dobro shvatio pitanje, ovo je otprilike sta ti treba.
Potreban su ti dva event-a, before update za text box gde unosis broj, i on activate za form. On activate event samo resetuje brojace svaki put kada se form otvori.

Option Compare Database
Option Explicit

Dim intBrojacJedan As Integer
Dim intBrojacDva As Integer
Dim intBrojacTri As Integer

Private Sub Broj_BeforeUpdate(Cancel As Integer)

Dim intTrenutniBroj As Integer

intTrenutniBroj = Me.Broj.Text

If intTrenutniBroj = 1 Then
intBrojacJedan = intBrojacJedan + 1
If intBrojacJedan = 4 Then
MsgBox ("Broj jedan unet cetiri puta")
End If
End If

If intTrenutniBroj = 2 Then
intBrojacDva = intBrojacDva + 1
If intBrojacDva = 4 Then
MsgBox ("Broj dva unet cetiri puta")
End If
End If

If intTrenutniBroj = 3 Then
intBrojacTri = intBrojacTri + 1
If intBrojacTri = 4 Then
MsgBox ("Broj tri unet cetiri puta")
End If
End If

End Sub

Private Sub Form_Activate()

intBrojacJedan = 0
intBrojacDva = 0
intBrojacTri = 0

End Sub

All beer is good. Some beer is better.

Odgovor na temu