Centar za edukaciju-BiH


switch Lista naslova: Access trikovi
Stranice (10):1,2,3,4,5,6,7,8,9,10

#51 17.02.2013 09:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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"
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#52 17.02.2013 15:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#53 19.04.2013 14:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#54 24.04.2013 21:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 17.09.2013 20:41 od strane zxz. ↑  ↓

#55 29.04.2013 12:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#56 30.04.2013 12:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Prilozi:
Informacije o tipu datoteke za:zip  dijagram.zip
Preuzimanja:416
Velicina datoteke:14.65 KB


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#57 22.05.2013 09:51
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Prikaz dana u sedmici
Veoma jednostavan primjer kako prikazati dan u sedmici.

Prilozi:
Informacije o tipu datoteke za:zip  Dan.zip
Preuzimanja:368
Velicina datoteke:4.79 KB


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#58 23.05.2013 10:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#59 04.07.2013 09:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#60 05.07.2013 09:53
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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;

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 05.07.2013 09:57 od strane zxz. ↑  ↓

Stranice (10):1,2,3,4,5,6,7,8,9,10


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 30 pm.