iCentar » Racunari i oprema » Programirannje i baze podataka » Access

zxz	17.02.2013 10:28
Predmet:Re: Access trikovi Kako export-ovati objekat i Access-a u text fajl i import-ovati ga nazad Ako dodje do korupcije ili ostecenja Access baze, obicno repair i/ili importovanje objekata u novi fajl pomaze. Ali ako ni ovo ne radi, onda mozete da koristite komandu Application.SaveAsText da snimite objekat u text fajl i da ga komandom Application.LoadFromText ucitate u novi Access fajl. Ako imamo formu "frmProducts" i zelimo da je exportujemo u text fajl, onda: Otvorite code editor i immediate (debug) prozoru kucajte Application.SaveAsText acForm, "frmProducts", "C:\frmProducts.txt" Za import se koristi: Application.LoadFromText acForm "frmProducts", "C:\frmProducts.txt"

zxz

17.02.2013 10:28

Predmet:Re: Access trikovi

Kako export-ovati objekat i Access-a u text fajl i import-ovati ga nazad

Ako dodje do korupcije ili ostecenja Access baze, obicno repair i/ili importovanje objekata u novi fajl pomaze. Ali ako ni ovo ne radi, onda mozete da koristite komandu Application.SaveAsText da snimite objekat u text fajl i da ga komandom Application.LoadFromText ucitate u novi Access fajl.

Ako imamo formu "frmProducts" i zelimo da je exportujemo u text fajl, onda:
Otvorite code editor i immediate (debug) prozoru kucajte
Application.SaveAsText acForm, "frmProducts", "C:\frmProducts.txt"

Za import se koristi:
Application.LoadFromText acForm "frmProducts", "C:\frmProducts.txt"

zxz	17.02.2013 16:03
Predmet:Re: Access trikovi Ukoliko imate u nekom folderu neku svoju app. u accessu i ako napravite neku slicicu bmp i date joj isto ime kao i vase app. u acesu te je kopirate u isti folder onda ce se podizati ta slicica pri podizanju access app.

zxz

17.02.2013 16:03

Predmet:Re: Access trikovi

Ukoliko imate u nekom folderu neku svoju app. u accessu i ako napravite neku slicicu bmp i date joj isto ime kao i vase app. u acesu te je kopirate u isti folder onda ce se podizati ta slicica pri podizanju access app.

zxz	19.04.2013 15:54
Predmet:Re: Access trikovi Sta sve mozemo sa msgboxsom. PreuzmiIzvorni kôd (Visual Basic): Function MsgO() Dim Str As String, Titl As String Dim Stil As Integer, I As Integer, N As Integer Dim M As Integer Str = "Neko upozorenje" & vbCr & "ili obavjestenje" Titl = "Napomena" For I = 0 To 64 Step 16 M = I + 5 For N = I To M msgbox Str, N, Titl Next N Next I End Function Ovo nema primjenu ali sad skontajte sta mozete sa ovim napraviti.

zxz

19.04.2013 15:54

Predmet:Re: Access trikovi

Sta sve mozemo sa msgboxsom.

PreuzmiIzvorni kôd (Visual Basic):

Function MsgO()
Dim Str As String, Titl As String
Dim Stil As Integer, I As Integer, N As Integer
Dim M As Integer
Str = "Neko upozorenje" & vbCr & "ili obavjestenje"
Titl = "Napomena"
For I = 0 To 64 Step 16
M = I + 5
For N = I To M
msgbox Str, N, Titl
Next N
Next I
End Function

Ovo nema primjenu ali sad skontajte sta mozete sa ovim napraviti.

zxz	24.04.2013 22:31
Predmet:Trepcuca forma Napravite jednu formu i dajte joj ime "MojaForma" Timer interval stavite na 1000. Na vrh modula postavite ovaj kod: PreuzmiIzvorni kôd (Visual Basic): Private Declare Function FlashWindow Lib "User32" (ByVal hWnd As Long, _ ByVal lngInvert As Long) As Long Na on timer stavite ovaj kod: PreuzmiIzvorni kôd (Visual Basic): Private Sub Form_Timer() Dim Hw Hw = Forms("MojaForma").hWnd FlashWindow Hw, True End Sub

zxz

24.04.2013 22:31

Predmet:Trepcuca forma

Napravite jednu formu i dajte joj ime "MojaForma"
Timer interval stavite na 1000.
Na vrh modula postavite ovaj kod:

PreuzmiIzvorni kôd (Visual Basic):

Private Declare Function FlashWindow Lib "User32" (ByVal hWnd As Long, _
ByVal lngInvert As Long) As Long

Na on timer stavite ovaj kod:

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Form_Timer()
Dim Hw
Hw = Forms("MojaForma").hWnd
FlashWindow Hw, True
End Sub

zxz	29.04.2013 13:10
Predmet:Re: Access trikovi Ukoliko zelite da vam app. radi automatski kompakt pri zatvaranju iste onda pokrenite ovaj kod: PreuzmiIzvorni kôd (Visual Basic): Function AutoKmpakt() Application.SetOption "Auto compact", True End Function

zxz

29.04.2013 13:10

Predmet:Re: Access trikovi

Ukoliko zelite da vam app. radi automatski kompakt pri zatvaranju iste onda pokrenite ovaj kod:

PreuzmiIzvorni kôd (Visual Basic):

Function AutoKmpakt()
Application.SetOption "Auto compact", True
End Function

zxz	30.04.2013 13:43
Predmet:Dijagram u izvjestaju Ako zelite napraviti neki grafcki pregled u izvjestaju onda skite ovaj primjer. Mozda vam pomogne.
Prilozi: dijagram.zip (Velicina datoteke:14.65 KB)

zxz

30.04.2013 13:43

Predmet:Dijagram u izvjestaju

Ako zelite napraviti neki grafcki pregled u izvjestaju onda skite ovaj primjer.
Mozda vam pomogne.

Prilozi:
dijagram.zip (Velicina datoteke:14.65 KB)

zxz	22.05.2013 10:51
Predmet:Prikaz dana u sedmici Veoma jednostavan primjer kako prikazati dan u sedmici.
Prilozi: Dan.zip (Velicina datoteke:4.79 KB)

zxz

22.05.2013 10:51

Predmet:Prikaz dana u sedmici

Veoma jednostavan primjer kako prikazati dan u sedmici.

Prilozi:
Dan.zip (Velicina datoteke:4.79 KB)

zxz	23.05.2013 11:01
Predmet:Zabrana unosa nekog karaktera Kako zabraniti unos nekog ili nekih karaktera iz nekog polja na formi. Primjer: Napravite neku formu: Postavite na nju neki textbox. Na On Key Pres ovog polja postavite ovaj kod: PreuzmiIzvorni kôd (Visual Basic): Private Sub Text0_KeyPress(KeyAscii As Integer) Const Strg = "%$#!/?&+.,;:-<>\\|[]{}§" Dim Poz As Integer Dim KeyStr As String KeyStr = Chr$(KeyAscii) Poz = InStr(1, Strg, KeyStr) If Poz > 0 Then KeyAscii = 0 End If End Sub ovo su znaci koje necete moci unijeti: "%$#!/?&+.,;:-<>\\|[]{}§" Znakove mozete dodavati po zelji.

zxz

23.05.2013 11:01

Predmet:Zabrana unosa nekog karaktera

Kako zabraniti unos nekog ili nekih karaktera iz nekog polja na formi.
Primjer:
Napravite neku formu:
Postavite na nju neki textbox.
Na On Key Pres ovog polja postavite ovaj kod:

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Text0_KeyPress(KeyAscii As Integer)
Const Strg = "%$#!/*?&+.,;:-<>\|[]{}§"
Dim Poz As Integer
Dim KeyStr As String
KeyStr = Chr$(KeyAscii)
Poz = InStr(1, Strg, KeyStr)
If Poz > 0 Then
KeyAscii = 0
End If
End Sub

ovo su znaci koje necete moci unijeti:
"%$#!/*?&+.,;:-<>\|[]{}§"
Znakove mozete dodavati po zelji.

zxz	04.07.2013 10:44
Predmet:Datum + - Ukoliko zelimo u nekom text polju sa datumom da mozemo mijenjati datum na vise i na nize sa tasterima + i - onda to mozemo napraviti na sledeci nacin. Krerati formu i na formi jedan text box pod nazivom text1. Na on loda forme staviti ovaj kod: PreuzmiIzvorni kôd (Visual Basic): Private Sub Form_Load() Me.Text1 = Date End Sub Na KeyPress tekst polja staviti sledeci kod: PreuzmiIzvorni kôd (Visual Basic): Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 43 ' Plus key KeyAscii = 0 Screen.ActiveControl = Screen.ActiveControl + 1 Case 45 ' Minus key KeyAscii = 0 Screen.ActiveControl = Screen.ActiveControl - 1 End Select End Sub

zxz

04.07.2013 10:44

Predmet:Datum + -

Ukoliko zelimo u nekom text polju sa datumom da mozemo mijenjati datum na vise i na nize sa tasterima + i - onda to mozemo napraviti na sledeci nacin.
Krerati formu i na formi jedan text box pod nazivom text1.
Na on loda forme staviti ovaj kod:

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Form_Load()
Me.Text1 = Date
End Sub

Na KeyPress tekst polja staviti sledeci kod:

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 43 ' Plus key
KeyAscii = 0
Screen.ActiveControl = Screen.ActiveControl + 1
Case 45 ' Minus key
KeyAscii = 0
Screen.ActiveControl = Screen.ActiveControl - 1
End Select
End Sub

zxz

05.07.2013 10:53

Predmet:Period od do

Ukoliko imate napr. Tablicu koja se zove Ocitanja i u njoj polja:
ID
Datum
Stanje

ID	Datum	Stanje
1	01.01.2013	233
2	01.02.2013	656
3	01.03.2013	799
4	01.04.2013	902

Sada bi htjeli da dobijete stanje od do.
SQl bi izgledao Ovako:

PreuzmiIzvorni kôd (SQL):

SELECT T1.Datum AS Od,(SELECT MIN(T2.Datum)
FROM Ocitanja T2
WHERE T2.Datum>T1.datum) AS Do,T1.stanje
FROM Ocitanja AS T1;