zxz 30.11.2010 23:49
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

zxz 15.11.2010 18:35
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.

zxz 15.11.2010 21:31
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.

zxz 16.11.2010 03:27
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.

zxz 18.11.2010 16:56
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..

zxz 06.12.2010 00:54
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.

zxz 06.12.2010 01:16
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

zxz 07.12.2010 01:46
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.

zxz 07.12.2010 20:55
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.

zxz 08.12.2010 11:25
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