[es] - Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

Sancho
Bajric Sanel
Cazin

Član broj: 24687
Poruke: 23
*.as54.bi.bih.net.ba.

Profil

Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

^{05.01.2005. u 12:07 - pre 234 meseci}

Sta ima narode???
Imam jedan problemcic, koji to i vjerovatno nije, al ljudi meni je mozak zablokirao, pa neide.
Ako ko imam kakvu ideju, nek se javi.
Problem je sljedeći:

Na formi imam text box u koji je unesen određeni datum, npr. 22.10.2004

E sad, krajnji rok važenja te oznake je npr 21.02.2005.
Na koji način da mi se na formi postavi komanda koja će mi javiti deset dana prije isteka, dakle 11.02.2005 da je ostalo jos deset dana do isteka.

Radi se o isteku osiguranja za auto npr.

Dakle, pocetak 22.10.2004
istek 21.02.2005

Poruka na formi koja ce mi javiti 11.02.2005 da je do isteka ostalo jos 10 dana.

Hvala svima unaprijed i veliki pozdrav!!!

Sancho

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

^{05.01.2005. u 14:41 - pre 234 meseci}

Masala Sancho, biznis se siri :-) Bilo je knjigovodstvo a sad radimo i osiguranje. Svaka cast (ozbiljno).

Od Karjnjeg datuma oduzmi tvoj OdredjeniDatum. Ako je rezultat <=10 dana, prikazi poruku. Stavi ovo u formin OnCurrent event. Kad god se pomeris sa rekorda na rekord, obavice se provera i po potrebi ce se pojaviti poruka.

:-)

Odgovor na temu

Sancho
Bajric Sanel
Cazin

Član broj: 24687
Poruke: 23
*.as54.bi.bih.net.ba.

Profil

Re: Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

^{06.01.2005. u 09:02 - pre 234 meseci}

Hvala ti Zidar, tvoji prijedlozi su uvijek konstruktivni :()
Ali sad se pojavio novi problem, i to sa mojim sefom.
Naime, na Current forme sam stavio :

If [Osiguranje istek] - Date <= 10 Then MsgBox "Ostalo je još manje od deset dana do isteka osiguranja na Vašem vozilu. Molimo produžite policu osiguranja!!!"

Ali, sef kaze da to njemu na valja, i da hoce da mu blinka datum,

Tj.nece lik poruku, neg kad se ispuni uvjet, da blinka datum u text boxu,a kod onih koji ne potpadaju pod uvjet, da datum ne blinka.
U VBA ne znam koja je komanda za blinkanje slova, pa bi mi pomoc opet dobro dosla.
Hvala!!!

Sancho

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
217.71.52.*

Sajt: www.icentar.ba

+2 Profil

Re: Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

^{07.01.2005. u 17:26 - pre 234 meseci}

Uf Sanele puno ti zahtjevan taj tvoj sef. Mijenjaj ga.
Dobro hajde neka mu blinka.

Evo ti kod.

Option Compare Database
Option Explicit
Dim B As Boolean

Private Sub Form_Current()
If T.Value <= (Date - 10) Then
Me.OnTimer = "[Event Procedure]"
Else
Me.OnTimer = ""
End If
End Sub

Private Sub Form_Timer()
If B = True Then
Me.T.ForeColor = 16777215 'boja
B = False
ElseIf B = False Then
Me.T.ForeColor = Me.T.ForeColor = 0 ' boja
B = True
End If
End Sub

T-datumsko polje na formi
Pozdrav i sretan rad.

zxz

Odgovor na temu

Sancho
Bajric Sanel
Cazin

Član broj: 24687
Poruke: 23
*.as54.bi.bih.net.ba.

Profil

Re: Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

^{08.01.2005. u 11:05 - pre 234 meseci}

Sta drugo da ti kazeme, do HVALA!!! :)
A sefa cu promjeniti nadam se ukoro, veliki je gnjavator.
Ko da je iz cirkusa, sve samo neka blinka hahahaha

Sancho

Odgovor na temu

Sancho
Bajric Sanel
Cazin

Član broj: 24687
Poruke: 23
*.as54.bi.bih.net.ba.

Profil

Re: Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

^{08.01.2005. u 12:10 - pre 234 meseci}

Ej hvala ti mnogo,kod je izvrstan, ali imam jedan problem.
Na formi imam vise datumskih polja.

To je sad sef rekao, da hoce ne samo istek osiguranja, vec i bazdacije,tahografe, i ostal sranja.

Ukupno imam sedam datumskih polja koja trebaju da "blinkaju ".

Tvoj kod radi,svaka cast, vjerovatno sam nesto previdio,ali ne znam kako da napravim to isto za preostalih 6 polja.
Molim te, vjerujem da znas, pa cim prije mi javi, jer me ovaj sef od konja pojede.

Eto,hvala ti mnogo

Sancho

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
217.71.52.*

Sajt: www.icentar.ba

+2 Profil

Re: Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

^{08.01.2005. u 16:56 - pre 234 meseci}

E ne znam st cemo sa tvojim sefom.
Sledece je muzicka zelja.

Ima toga ime: preventivni,redovni,bazdarenje tahografa itd.
Dobro evo mislim da ces se ti snaci.
Samo kad sve pokrenes onda pusri on error resume next nebi valjalo u toku rada da nesto stane zbog blinkanja.
Pozdrav i sretan rad.

Option Compare Database
Option Explicit
Dim Uvjet(1 To 7) As Integer
Dim Ime As String

Private Sub Form_Current()
Dim I As Integer

'On Error Resume Next

For I = 1 To 7
Ime = "T" & I
Uvjet(I) = False
Me(Ime).BackColor = 16777215
Me(Ime).ForeColor = 0
Next I

For I = 1 To 7
Ime = "T" & I
If Me(Ime) <= (Date - 10) Then
Uvjet(I) = 1
Else
Uvjet(I) = 3
End If
Next I
End Sub

Private Sub Form_Timer()
Dim I As Integer

'On Error Resume Next

For I = 1 To 7
Ime = "T" & I
If Uvjet(I) = 1 Then
Me(Ime).ForeColor = 16777215
Me(Ime).BackColor = 8454143
Uvjet(I) = 2
ElseIf Uvjet(I) = 2 Then
Me(Ime).ForeColor = 0
Me(Ime).BackColor = 16777215
Uvjet(I) = 1
End If
Next I
End Sub

zxz

Odgovor na temu

Sancho
Bajric Sanel
Cazin

Član broj: 24687
Poruke: 23
*.as54.bi.bih.net.ba.

Profil

Re: Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

^{10.01.2005. u 10:39 - pre 234 meseci}

Izonicu, covjece, izgubio sam se totalno sam se pobrkao, ne ide....

Ne kontam, kod radi ali za jednu stavku, odnosno datumsko polje.
Blage veze nemam kako da napise kod za dva datumska polja, kamoli za sedam, u stvari ne znam gdje i kako da napisem za drugo datumsko polje, pa trece, i tako to, da li u produzetku, ili kako!!! :(

Izvini, ali stvarno ne znam, nisam se nikada susretao sa ovim, a koliko vidim ti jesi ito kako, pa te molim, vec sam bezobrazan, ali eto,
molim te da mi pojasnis kako da to uradim sa sedam polja da mi blinkaju, kako i gdje da u kodu uvrstim nazive polja.

Hvala ti mnogo, pravi si i izvini na ssmetanjima. :(

Sancho

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
217.71.52.*

Sajt: www.icentar.ba

+2 Profil

Re: Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

^{10.01.2005. u 18:49 - pre 234 meseci}

Pa napravio sam ti za svih 7 polja samo sam ja uzeo da se polja zovu T1,T2;T3 itd.
a sub ti pise gdje stavit.
Ako uspijes javi pozdrav.

zxz

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Potrebna pomoć, ideja, štagod u vezi datumskog upozorenja u na formi

^{10.01.2005. u 21:15 - pre 234 meseci}

U nekom modulu snimis ovu funkciju:

Code:

Function FlashCtl(ctl As Control)
With ctl
.ForeColor = (IIf(.ForeColor = vbRed, vbWhite, vbRed))
End With
End Function

Na tvojoj formi, u design modu selektujes text boxove koje zelis da blinkuju. U Tag property upises 'FLASH' (bez navodnika). Onda u forminom modulu napises ovakav kod:

Code:

Option Compare Database
Option Explicit

Private Sub Form_Current()
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.Tag = "FLASH" Then
        If ctl.Value <= (Date - 10)  Then
                Me.TimerInterval = 300
            Else
                Me.TimerInterval = 0
                ctl.ForeColor = vbBlack
            End If
    End If
Next
End Sub

Private Sub Form_Timer()
Dim ctl As Control

For Each ctl In Me.Controls
    If TypeOf ctl Is TextBox Then
        If ctl.Tag = "FLASH" And ctl.Value <= (Date - 10) Then
            Call FlashCtl(ctl)
        End If
    End If
Next ctl

End Sub

Kod mene je prordilo nekako, valjda ce i kod tebe.

:-)

Odgovor na temu