Prvo tabela sa tekstualnim poljem recimo IME_PRG u kojem se unese nazivi svih formi i memo poljem u kojima su tekstovi koji predstavlja ono što korisnik dobije kao pomć uvezi svake pojedinačne forme.
Potom jedna forma neka se zove "Help_poruka" koja se zasniva na tabeli i znosi na ekran memo polje, sa sledećim kodom na događaj On Open.
Code:
Private Sub Form_Open(Cancel As Integer)
' kod koji pokrece help za svaku stavku menija
Dim Forma As Form
Dim Izvestaj As Report
Dim Upit As Object
Dim Ime_Dok As String
Ime_Dok = ""
For Each Forma In Forms 'ispituje u otvorenim obrascima i puni Ime_Dok
If Forma.Name <> "Help_Poruka" Then Ime_Dok = Forma.Name
Next
If Ime_Dok <> "" Then
Me.Filter = "[IME_PRG]='" & Ime_Dok & "'"
Me.FilterOn = True ' filtrira i prikazuje pronadjeno
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub
Na kraju u svakoj drugoj formi na događaj On Key Down, dva reda koda:
If KeyCode = vbKeyEscape Then DoCmd.Close
If KeyCode = vbKeyF1 Then KeyCode = 0: DoCmd.OpenForm "Help_poruka"
Da bi se help forma zatvorila na Esc. i drugi red da bi se sprečilo otvaranje Access-ovog Helpa.
[Ovu poruku je menjao Getsbi dana 01.09.2007. u 06:04 GMT+1]