Centar za edukaciju-BiH


switch Lista naslova: Access trikovi

#61 30.07.2013 20:23
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

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

#62 02.09.2013 13:29
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#63 02.09.2013 22:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Otvori kontrol panel
Mozda niste znali kako otvoriti kontrol panel kodom.
Shell "control", vbNormalFocus
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#64 24.09.2013 20:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

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

#65 26.09.2013 19:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#66 28.09.2013 10:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#67 29.09.2013 10:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#68 29.09.2013 10:21
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#69 29.09.2013 14:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

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

#70 03.10.2013 19:13
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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.
Pozdrav
↑  ↓

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


Sva vremena su GMT +01:00. Trenutno vrijeme: 9: 49 am.