zxz 30.07.2013 20:23
Predmet:Kako istaci polje koje je u focusu

Napravite jednu autoformu na odnovu neke vase tabele.
U timer interval upisite 100 a na on timer postavite ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Timer()
  2. On Error Resume Next
  3.     Screen.PreviousControl.ForeColor = 0
  4.     Screen.PreviousControl.BackColor = 16777215
  5.     Me.ActiveControl.ForeColor = 252525
  6.     Me.ActiveControl.BackColor = 65535
  7. End Sub

zxz 02.09.2013 13:29
Predmet:Blinkanje

Ako zelite napraviti da vam neki objekat na formi blinka onda to mozete napraviti na sledeci nacin.
Primjer blinkanja labele.
Kreirajte formu i na nju postavite jedan text box.
Texbox ima i labelu i ako ste sve uradili kako je navedeno labela ce imati ime label1.
Na timer interval forme stavite 250
Na on timer ovaj kod:
Private Sub Form_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub

zxz 02.09.2013 22:14
Predmet:Otvori kontrol panel

Mozda niste znali kako otvoriti kontrol panel kodom.
Shell "control", vbNormalFocus

zxz 24.09.2013 20:32
Predmet:Temp Query

Da nebi pravili mnostvo Querya, mozete jedan koristiti vise puta.
Napravite neki Query o zelji samo mu ime mora biti TempQ.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function QueryTemp(SQL As String) As Boolean
  2. Dim Db As Database
  3. Dim QTemp As QueryDef
  4.  
  5. On Error GoTo Greska
  6. Set Db = CurrentDb
  7. Set QTemp = Db.QueryDefs("TempQ")
  8. QTemp.SQL = SQL
  9. QueryTemp = True
  10. Izlaz:
  11. Exit Function
  12. Greska:
  13. QueryTemp = False
  14. End Functio
n
Pokrenite ovu proceduru te nakon toga pogledajte svoj Query.

PreuzmiIzvorni kôd (Visual Basic):
  1. Function PozivQ()
  2. Dim SQL As String
  3. Dim I As Boolean
  4. SQL = "SELECT * FROM MsysObjects"
  5. I = QueryTemp(SQL)
  6. End Function

zxz 26.09.2013 19:04
Predmet:Ime modula kao ime access procedure

Kreirajte novi modu i u njega prekopirajte ova kod ispod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function DatumI()
  2. Dim Dat As Date
  3.  
  4. Dat = Date
  5. MsgBox Dat
  6. End Function

Zatvorite modul i zapisite ga pod imenom Date
Ponovo podignite modul te pokrenite proceduru.
Procedura ce vam prijaviti gresku na date.
To je zato sto ste dali ime modula Date.
Promijenite ime modula i sve ce raditi.
Ovo je samo primjer kako treba paziti pri dodjeli imena.

zxz 28.09.2013 10:15
Predmet:Greska VB-a

Prekopirajte ovu proceduru u neki modul te pokrenite.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Mnozi()
  2. Mnozi = 300 * 300
  3. End Function
Prijavit ce vam gresku Run time error 6.
Sada stavite iza 300 uzvicnik i sve ce da radi.

zxz 29.09.2013 10:17
Predmet:Re: Access trikovi

Napravili ste formu i na njoj imate polja za unos podataka.
Ukoliko su vam u nekom polju podaci djelimicno vidljivi zbog sirine polja ili pak sto je mali font onda mozete pritiskom na tatere shift+F2 dobiti zoom podataka iz tog polja.

zxz 29.09.2013 10:21
Predmet:Re: Access trikovi

Ukoliko hocete neku exelovu tablicu da uvucete u access onda to mozete uraditi metodom vuci spusti tj. privucete ikonu exel dokumenta na ikonu accessa.

zxz 29.09.2013 14:26
Predmet:Save record

Kako sve mozemo zapisati trenutni rekord na formi:
1. RunCommand acCmdSaveRecord
2. DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
3. Me.Refresh
4. Me.Dirty = False

pmiroslav 03.10.2013 19:13
Predmet:Re: Access trikovi

Ako imate neku tablicu sa Autonumber poljem i imate potrebu da ručno dodate ili izmjenite broj u autonamber polju, možete to uraditi na slijedeći

način:
1. Za svaki slučaj napravite Backup baze.
2. Ako je tablica relacijski vezana sa drugim tablicama treba ići na
    Tools > Relationships pa desni klik na relacijsku vezu izabrati Edit Relationship...
    Odčekirati Enforce Referential Integrity
3. File > Get External Data > Import
    U prozoru Import pronači istu bazu koja je otvorena i iz nje uvesti tablicu u kojoj želimo napraviti promjene.
    (Access će je automatski preimenovati, ako je originalna tablica npr. tblArtikli, uvezena tablica bit će tblArtikli1)
4. Sada otvorite originalnu tablicu i obrišite sve rekorde.
5. Otvorite uvezenu tablicu u Design View i Autonumber polje promjenite u Number.
6. Sada u novoj tablici možete promjeniti ili dodati novi podatak.
7. Napravite Appened Query koji će podatke iz nove tablice dodati u staru praznu tablici
    INSERT INTO tblArtikli
    SELECT tblArtikli1.*
    FROM tblArtikli1;
4. Ponovno uredite Relacijske veze kako su bile.