Kao sto naslov kaze :-)
Kako napraviti neki help za bazu u Access-u?
Zaključano
Zakačeno
izmenjeno 1 put, poslednji put Getsbi 01.09.2007. u 06:04
Izmene poruke
- Getsbi01.09.2007. u 06:04zapis iz teksta poruke
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.
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.
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
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.
E, super ideja. Ali mislio sam nesto klasicnije - kao standardni help?
Ovo je bila ideja kako to uraditi pomoću samog Accessa, što bi rekli u njegovoj režiji. Inače postoji dosta softfera za izradu helpova koji se mogu pozvati kasnije iz Accessa. Ja znam bar za dva.
1. HTML Help Workshop je deo Microsoftovog Visual Studio.Net-a i doživeo je kao zasebna alatka nekoliko izdanja. Ono što njega karakteriše je jednostavnost u korišćenju za programera i mogućnost pisanja HTML dokumenata u gotovo svim tekst editorima i procesorima. Samo spajanje strana i povezivanje sadržaja kao i kompajliranje u fajl ekstenzije .chm je više nego prosto.
2. Drugi je Help Development Studio firme Divcom Software koji se odlikuje mogućnostima pravljenja Win Helpova, Html Helpova i Web Helpova.
I jedan i drugi se mogu naći na Web-u.
1. HTML Help Workshop je deo Microsoftovog Visual Studio.Net-a i doživeo je kao zasebna alatka nekoliko izdanja. Ono što njega karakteriše je jednostavnost u korišćenju za programera i mogućnost pisanja HTML dokumenata u gotovo svim tekst editorima i procesorima. Samo spajanje strana i povezivanje sadržaja kao i kompajliranje u fajl ekstenzije .chm je više nego prosto.
2. Drugi je Help Development Studio firme Divcom Software koji se odlikuje mogućnostima pravljenja Win Helpova, Html Helpova i Web Helpova.
I jedan i drugi se mogu naći na Web-u.