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]