Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pitanje u vezi sa osobinom TAG

[es] :: Access :: Pitanje u vezi sa osobinom TAG

[ Pregleda: 1920 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.165.*



Profil

icon Pitanje u vezi sa osobinom TAG08.05.2008. u 07:27 - pre 164 meseci
Ima vb cod koji funkconise sa osobinom TAG.Zanima kako to da ucinim u macrou,npr set value.
Primjer,imam sljedece BUTTON:Command1,Command2,TAG im je npr, "SAKRIJ".Kako da u makrou napisem izraz da im VISIBLE bude NO.Ime forme npr,Form1.
Item:Forms!Form1! -------.Visible
Expression:No

Hvala unaprijed
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.



+79 Profil

icon Re: Pitanje u vezi sa osobinom TAG08.05.2008. u 13:52 - pre 163 meseci
Evo nekoliko primera gde se koristi TAG da bi se manipulisalo kontrolama. Jedna od njih radi bas ono sto trazis - sakriva TAGirane kontrole. jedan moj poznanik je ovo dosta davno napisao, radi, provereno. Procitaj neka zapazanja, posle koda.

Code:

Function ClearControls(frm As Form, strTAG As String) As Boolean
'*******************************************
'Name:      ClearControls (Function)
'Purpose:   Clears all controls on the given form that
'           have specified strTAg in their Tag property
'Author:    Dejan
'Date:      February 16, 2000, 02:57:47 PM
'Called by:
'Calls:
'Inputs:
'Output:    nothing
'*******************************************

Dim ctl As Control
For Each ctl In frm.Controls
    If InStr(1, ctl.Tag, strTAG) > 0 Then
        ctl.Value = Null
    End If
Next
End Function


Function ToggleVisible(frm As Form, strTAG As String) As Boolean
'*******************************************
'Name:      ToggleVisible (Function)
'Purpose:   toggle controls' visibility, for controls that have strTAG
'           somewhere in their Tag property
'Author:    Dejan
'Date:      February 22, 2000, 02:08:19 PM
'Called by:
'Calls:
'Inputs:    frm:=form hat contains controls
'           strTAG:= code to be found in the Tag property. If found, visibility will be toggled
'Output:    nothing
'*******************************************


Dim ctl As Control
For Each ctl In frm.Controls
    If InStr(1, ctl.Tag, strTAG) > 0 Then
        ctl.Visible = Not ctl.Visible
    End If
Next

End Function


Function ToggleVisibleRep(rep As Report, strTAG As String) As Boolean
'*******************************************
'Name:      ToggleVisible (Function)
'Purpose:   toggle controls' visibility, for controls that have strTAG
'           somewhere in their Tag property
'Author:    Dejan
'Date:      February 22, 2000, 02:08:19 PM
'Called by:
'Calls:
'Inputs:    frm:=form hat contains controls
'           strTAG:= code to be found in the Tag property. If found, visibility will be toggled
'Output:    nothing
'*******************************************


Dim ctl As Control
For Each ctl In rep.Controls
    If InStr(1, ctl.Tag, strTAG) > 0 Then
        ctl.Visible = Not ctl.Visible
    End If
Next

End Function


Primeti da ove funkcije dozvoljavaju da TAG bude slozen string. Na primer Tage = 'CLEAR_INVISIBLE' ima dva 'koda', CLEAR i INVISIBLE. Navedene funkcije proveravaju sadrzaj Tag-a funkcijom instr. Tako, mozes da pozoves funkciju ToggleVisible kao
ToggleVisible (frm:= frmMojaForma, strTAG = 'INVISIBLE') i to ce promeniti vidljivost svih kontrola koje TAG-u negde imaju string CLEAR.Ovo povecava vrednost Tag-a mnogostruko - koristis TAg za vise od jedne 'property'


 
Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
*.team.ba.



Profil

icon Re: Pitanje u vezi sa osobinom TAG14.05.2008. u 13:38 - pre 163 meseci
Prvo da se zahvalim na odgovoru,ovo sa VB6 mi je OK,ali me zanima kako da to obavim u MAKRO-u bez VB6.
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.



+79 Profil

icon Re: Pitanje u vezi sa osobinom TAG14.05.2008. u 13:57 - pre 163 meseci
Ne znam kako se pristupa TAgovima preko makroa, niti da li to uopste moze. Makroe ne koristim pa ne umem da ti kazem. U svakom slucaju, mislim da iz amkroa moze da se pozove VB funkcija, sto bi ti mozda pomoglo.
 
Odgovor na temu

[es] :: Access :: Pitanje u vezi sa osobinom TAG

[ Pregleda: 1920 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.