Postoji li nacin da se dobije na On Current nesto kao
" me.LabelOpis.caption = me.PoljeKojeImaFokus.StatusBarText " ?
" me.LabelOpis.caption = me.PoljeKojeImaFokus.StatusBarText " ?
svojstvo na on current ??
Zaključano
Zakačeno
izmenjeno 1 put, poslednji put Catch 22 21.02.2010. u 23:33
Izmene poruke
- Catch 2221.02.2010. u 23:33zapis iz teksta poruke
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
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
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
'+------------------------------------
' 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
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.
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.
izmenjeno 1 put, poslednji put Catch 22 22.02.2010. u 01:02
Izmene poruke
- Catch 2222.02.2010. u 01:02zapis iz teksta poruke
Pa ne znam u čemu je problem trebalo bi da radi i na subformi
Dodaj ovaj deo koda za On Load
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...
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
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
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
'+------------------------------------
' 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
izmenjeno 1 put, poslednji put Catch 22 27.02.2010. u 08:34
Izmene poruke
- Catch 2227.02.2010. u 08:34zapis iz teksta poruke
???? Nestade pokretač teme bez traga i glasa, kao da ništa nije ni pitao!
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
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