Centar za edukaciju-BiH


switch Lista naslova: Access trikovi

#1 15.11.2010 17:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Access trikovi
Kako u tekst box upisati vise redova?
Napravite Auto formu od neke tbele gdje imate napr. ime polja opis.
Idite na dizajn forme odnosno kliknite na dizajn ovog tekst moksa.
U property Skroll bar stavite vertical.
Prosirite ovo polje po vertikali.
Idite na view forme i upisite nesto u taj tekst boks i tada dzite pritisnut taster ctrl te pritisnite enter.
Doci cete u novi red istog boksa i mozete pisati dalje.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 4 puta. Posljednja izmjena 14.10.2021 11:07 od strane Avko. ↑  ↓

#2 15.11.2010 20:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Kako napraviti jedinstven dizajn formi
Kako napraviti jedinstven dizajn formi?
Napravite jednu formu i na nju ubacite tekst box combo list subformu.
Dizajnirajte po zelji pozadinu unutarnji dio kontrola obrub kontrola.
Zapisite pod imenom templata te je podignite ponovo na dizajn.
Sada idite u meni Format-->Autoformat.
Kliknite na control customize.
Odaberite opciju Create New Autoformat based on the form "Templata"
Kliknite na OK.
Sada kada pravite formu od neke tabele nemojte odabirati auto form nego form.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 03.03.2012 22:53 od strane zxz. ↑  ↓

#3 16.11.2010 02:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Kako napraviti meni Bar?
Kako napraviti meni Bar?
Idite na meni.
View-->Toolbars-->Customize
Opcija New (gorelijevo komandni taster)
Upisite ime tulbara:
Moj
PreuzmiIzvorni kôd (Visual Basic):
  1. Function MojMeni()
  2. Dim MeniBar
  3. Dim Kontrola
  4. Dim K As ComboBox
  5. Set MeniBar = CommandBars("moj")
  6. If MeniBar.Visible = False Then MeniBar.Visible = True
  7.  
  8. Set Kontrola = MeniBar.Controls.Add(Type:=2)
  9. Set Kontrola = MeniBar.Controls.Add(Type:=3)
  10. Set Kontrola = MeniBar.Controls.Add(Type:=4)
  11. Kontrola.Style = 1
  12. With Kontrola
  13. .Caption = "Godina:"
  14. .Text = Year(Date)
  15. .AddItem "2010", 1
  16. .AddItem "2009", 2
  17. End With
  18. End Function
  19.  
  20. Function otvori()
  21. Dim godina
  22. godina = Application.CommandBars.ActionControl.Text
  23. MsgBox "otvorena:" & godina
  24. End Function
Ovaj kod kopirajte u neki modul.
U Prozor Imediate ukucajte:
?MojMeni
Pritisnite enter.

Ako vam se svidja ova tema idemo dalje.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 3 puta. Posljednja izmjena 03.03.2012 22:54 od strane zxz. ↑  ↓

#4 18.11.2010 15:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Access trikovi
Meni je u startu bila to ideja. Jedinop mi je zao sto ne uspijevam mladje ljude privuci.
Ima jos ljudi ovdje kojima je isti cilj. Pomenucu roza getbi itd..
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 30.11.2010 22:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Kako procitati putanju do access-a
Kako procitati putanju do access-a
Function AccessPutanja()
AccessPutanja = SysCmd(9)
end function
7--verzija accessa
13--putanja i ime system.mdw
ovo zadnje obavezno provjerite
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 15.02.2016 17:11 od strane zxz. ↑  ↓

#6 05.12.2010 23:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Eval Je funkcija access VBa
Eval Je funkcija access VBa i ne postoji u Vb.
Postojala je na komodorovm basicu.
Kako radi:
Ukoliko napisemo neki strin i upotrijebimo standardne operatore za neke matematicke izraze ona ce teo i obradditi.
Primjer:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function EvalFunkcija()
  2. Dim Str As String
  3. Dim Rezultat As Double
  4. Str = "2+3*5/2"
  5. Rezultat = Eval(Str)
  6. End Function

Isprobajte nije uopste lose a i zatreba ponekad doduse.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 03.03.2012 22:58 od strane zxz. ↑  ↓

#7 06.12.2010 00:16
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Animacija forme
Ovdje vam necu nista opisati.
Isprobajte sami.
Napravite jednu formu i na on activate prekopirajte kod ispod.

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Activate()
  2. Dim i As Integer
  3. Dim K As Integer
  4. For i = 0 To 7565 Step 1
  5. Me.InsideHeight = i
  6. Next i
  7. For K = 0 To 11455 Step 1
  8. Me.InsideWidth = K
  9. Next K
  10. End Sub

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 03.03.2012 22:59 od strane zxz. ↑  ↓

#8 07.12.2010 00:46
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Aces izvjestaj
Kreirajte jedan prazan izvjestaj.
Na detalj on print stavite ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
  2. Print "Ime ovog izvjestaja je:" & Me.Name
  3. End Sub

E sad se vi dalje igrajte i vidite sta sve mozete napraviti.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 03.03.2012 23:01 od strane zxz. ↑  ↓

#9 07.12.2010 19:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Šahovska tabla u izvještaju
Accessov izvjestaj je nesto sto je po meni najbolje uradjeno u accessu.
Evo ja cu dati jos jedan primjer.
Da napomenem samo da su podaci mogli biti i iz tabele.
Kreirajte prazan izvjesta.
Detalj izvjestaja prosirite otprilike na sirinu A4 formata.
Na detail on Print postavite ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
  2. Dim DuzTeksta As Single
  3. Dim DuzinaPapira As Single
  4. Dim Sredina As Single
  5. Dim I As Integer
  6. Dim N As Integer
  7. Dim StartX As Integer
  8. Dim StartY As Integer
  9. Dim Ispuna As Boolean
  10. Dim Boja
  11.  
  12. DuzinaPapira = Me.Width
  13. Me.ForeColor = 255
  14. Me.FontSize = 18
  15. Me.FontBold = True
  16. DuzTeksta = Me.TextWidth("Å AHOVKA TABLA")
  17. Sredina = (DuzinaPapira - DuzTeksta) / 2
  18. Me.CurrentX = Sredina
  19. Print "Å AHOVSKA TABLA"
  20. StartY = Me.CurrentY + 1000
  21.  
  22. For N = 1 To 8
  23.     For I = 0 To 7000 Step 1000
  24.             If Ispuna = True Then
  25.             Ispuna = False
  26.             Me.FillStyle = 0
  27.             Else
  28.             Ispuna = True
  29.             Me.FillStyle = 1
  30.             End If
  31.         Me.Line (I + 1000, StartY + 1000)-(I, StartY), 0, B
  32.     Next I
  33. Ispuna = Ispuna + 1
  34. StartY = StartY + 1000
  35. Next N
  36. End Sub
Pokrenite izvjestaj.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 03.03.2012 23:01 od strane zxz. ↑  ↓

#10 08.12.2010 10:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Naredba parent
Kada dodamo na formu neku kontrolu i vecina od njih ima i labelu vezanu za sebe.
U labeli napisemo na sto se kontrola odnosi.
Poslije nam cesto treba da procitamo koja labela pripada kojoj kontroli.
To mozemo iscitai na sledeci nacin:
Dim a
a=Me.ImeLabele.Parent.Name
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

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


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 07 am.