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 19.04.2013 15:54
Predmet:Re: Access trikovi

Sta sve mozemo sa msgboxsom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function MsgO()
  2. Dim Str As String, Titl As String
  3. Dim Stil As Integer, I As Integer, N As Integer
  4. Dim M As Integer
  5.  
  6. Str = "Neko upozorenje" & vbCr & "ili obavjestenje"
  7. Titl = "Napomena"
  8.  
  9. For I = 0 To 64 Step 16
  10.   M = I + 5
  11.   For N = I To M
  12.     msgbox Str, N, Titl
  13.   Next N
  14. Next I
  15. 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):
  1. Private Declare Function FlashWindow Lib "User32" (ByVal hWnd As Long, _
  2.  ByVal lngInvert As Long) As Long
Na on timer stavite ovaj kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Timer()
  2. Dim Hw
  3.  Hw = Forms("MojaForma").hWnd
  4.  FlashWindow Hw, True
  5. 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):
  1. Function AutoKmpakt()
  2. Application.SetOption "Auto compact", True
  3. 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 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):
  1. Private Sub Text0_KeyPress(KeyAscii As Integer)
  2. Const Strg = "%$#!/*?&+.,;:-<>\|[]{}§"
  3. Dim Poz As Integer
  4. Dim KeyStr As String
  5.  
  6. KeyStr = Chr$(KeyAscii)
  7. Poz = InStr(1, Strg, KeyStr)
  8.  
  9. If Poz > 0 Then
  10. KeyAscii = 0
  11. End If
  12. 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):
  1. Private Sub Form_Load()
  2. Me.Text1 = Date
  3. End Sub
Na KeyPress tekst polja staviti sledeci kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. Select Case KeyAscii
  3.     Case 43            ' Plus key
  4.        KeyAscii = 0
  5.         Screen.ActiveControl = Screen.ActiveControl + 1
  6.     Case 45            ' Minus key
  7.        KeyAscii = 0
  8.         Screen.ActiveControl = Screen.ActiveControl - 1
  9.     End Select
  10. 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
IDDatumStanje
101.01.2013233
201.02.2013656
301.03.2013799
401.04.2013902

Sada bi htjeli da dobijete stanje od do.
SQl bi izgledao Ovako:
PreuzmiIzvorni kôd (SQL):
  1. SELECT T1.Datum AS Od,(SELECT MIN(T2.Datum)
  2. FROM Ocitanja T2
  3. WHERE T2.Datum>T1.datum) AS Do,T1.stanje
  4. FROM Ocitanja AS T1;