svojstvo na on current ??

[ gorancho @ 21.02.2010. 20:30 ] @

Postoji li nacin da se dobije na On Current nesto kao
" me.LabelOpis.caption = me.PoljeKojeImaFokus.StatusBarText " ?

[ Catch 22 @ 21.02.2010. 22:05 ] @

Mislim da znam šta pokušavaš i to je izvodivo, ali iz više koraka.

Ispisivanje HELP teksta za aktivnu kontrolu na svakoj formi

1. Na svakoj formi treba napraviti jedno unbound tekstualno polje i dati mu isti naziv (ovde: TxtHELP)

2. Upisati vrednosti za svako polje na formi
-ControlTip Text
-StatusBar Text

3. Za svako polje na formi upisati vrednost za događaj (event) On Got Focus: =Opis()
3a. U slučaju da za navedeno polje postoji event procedura za On Got Focus, onda se u samoj proceduri dodaje jedan red: Opis

4. Napraviti u nekom modulu funkciju sličnu ovoj (slobodno prepravite primer prema vlastitim potrebama)
_{Zamenite dole pomenute nazive formi vlastitim nazivima}

Code:
'+------------------------------------
' ISPISUJE TxtHELP POLJE SA OPISOM
' ZA AKTIVNU KONTROLU (ToolTipText)NA FORMI
' by Catch 22 @ www.elitesecurity.org
'+------------------------------------
Public Function Opis()
Dim frm As Form, stLine1 As String

If Screen.ActiveForm.Name = "PODLOGA" Then
Exit Function
Else
    Set frm = Screen.ActiveForm
End If
' OVAJ DEO MOŽETE IZOSTAVITI ========================
    If Screen.ActiveForm.Name = "PRETRAGA" _
    Or Right(Screen.ActiveForm.Name, 1) = "?" Then

        stLine1 = Screen.ActiveForm.Name & " - " _
        & Screen.ActiveControl.ControlTipText
    Else
' KRAJ DELA KOJI MOŽETE IZOSTAVITI =====================

        stLine1 = "" & Screen.ActiveControl.ControlTipText

    End If      'AKO STE IZOSTAVILI GORNJU SEKCIJU ONDA OVAJ RED NIJE POTREBAN!

    frm.TxtHELP = stLine1
    frm.TxtHELP.BackColor = Forms!PODLOGA.FormHeader.BackColor         ' OVAJ DEO MOŽETE TAKOĐE IZOSTAVITI
       Screen.ActiveControl.StatusBarText = _
        Screen.ActiveForm.TxtHELP

End Function

5. Po želji uključiti u opcijama Accessa prikaz statusne linije (Display Status Bar) kako bi se i tu prikazivao tekst helpa za svako aktivno polje

_{[Ovu poruku je menjao Catch 22 dana 21.02.2010. u 23:33 GMT+1]}

[ gorancho @ 21.02.2010. 23:14 ] @

Hvala puno.
Probao sam i radi baš kako si opisao! I super je jer je unuverzalna Ali život je ....

Problem kod mene je to što se nalazim u subformi koja je Datasheet a TxtHELP treba smestiti u glavnoj formi.

[ Catch 22 @ 21.02.2010. 23:52 ] @

Pa ne znam u čemu je problem trebalo bi da radi i na subformi

Dodaj ovaj deo koda za On Load

Code:
Private Sub Form_Load()
Me.Parent.SetFocus
Me.AllowAdditions = Me.Parent.DataEntry ' OVO MOŽEŠ I DA IZOSTAVIŠ (DA NE ŠIRIMO PRIČU DALJE)
End Sub

[att_img]

PS
Jedna od varijacija na temu funkcije OPIS, koja ispituje i tip kontrole pa onda dodaje određeni help tekst
_{Promenljive su definisane na nivou celog modula, ovde bi trebalo da se ubace...}

Code:
'+------------------------------------
' ISPISUJE TxtHELP POLJE SA OPISOM
' ZA AKTIVNU KONTROLU (ToolTipText)NA FORMI
'+------------------------------------
Public Function OPIS()
strLine1 = "" & Screen.ActiveControl.ControlTipText

Set frm = Screen.ActiveForm

If Screen.ActiveForm.Name = "PRETRAGA" Then

strLine2 = "...klikni bilo gde na radnu površinu da zatvoriš sve otvorene prozore"
       Screen.ActiveControl.StatusBarText = _
        strLine1 & "...   ili: " & strLine2
GoTo OPISANIJE
Exit Function
Else

With Screen.ActiveControl
            Select Case .ControlType
            Case acTextBox
            strLine2 = "*  F3=IZLAZ  *  F8=MENI  *  F9=ŠTAMPA  *  F10=TRAŽI"
            Case acComboBox, acListBox
            strLine1 = "Odaberi podatak sa padajuće liste"
            strLine2 = "*  F3=IZLAZ  *  F8=MENI  *  F9=ŠTAMPA  *  F10=TRAŽI  *  F4=OTVORI / ZATVORI LISTU  *  F5=UNOS NOVIH (Dupli klik)"
            End Select
End With
GoTo OPISANIJE
End If

OPISANIJE:

    frm.TxtHELP = strLine1

        Screen.ActiveControl.StatusBarText = _
        Screen.ActiveForm.TxtHELP & "  " & strLine2

End Function

_{[Ovu poruku je menjao Catch 22 dana 22.02.2010. u 01:02 GMT+1]}

[ Catch 22 @ 26.02.2010. 23:53 ] @

???? Nestade pokretač teme bez traga i glasa, kao da ništa nije ni pitao!

_{[Ovu poruku je menjao Catch 22 dana 27.02.2010. u 08:34 GMT+1]}

[ gorancho @ 02.03.2010. 02:07 ] @

Iskreno se izvinjavam sto nisam odgovorio Catch 22-u ali ne uspevam da dođem do računara od drugih obaveza.
Prvi deo sam probao i nastavio da eksperimentišem. Za drugi deo sa subform na zalost nisam stigao ali
je predamnom.
U svakom slučaju se izvinjavam i hvala Catch 22